Posts by jindon

    Re: Filter, Sort, Macro... what to do?


    If you are talking about my code then change to

    Re: Help in Array


    Post here, I just need to see a few 10 rows of data to see what you are trying to do. should have before/after.

    Re: Filter, Sort, Macro... what to do?


    See if this works,

    Re: VBA For Each Loop


    Non Array


    =IFERROR(INDEX(A2:G2,0,MATCH("*",A2:G2,0)),"IN-SCOPE")


    VBA

    Code
    Sub test()
        With Cells().CurrentRegion
            .Columns("h").Offset(1).Resize(.Rows.Count - 1).FormulaR1C1 = _
            "=iferror(index(rc1:rc7,0,match(""*"",rc1:rc7,0)),""IN=SCOPE"")"
        End With
    End Sub

    Re: Create Summary and Report from text file


    See if this is how you wanted.

    Re: Repeat Transpose - Repeat amount of Rows.


    Quote from webtechhosts;758295

    Y20000 rows of data


    Re: Create Summary and Report from text file


    Output in Summary sheet

    Re: Clever way of formatting names nicely?


    Re: Repeat Transpose - Repeat amount of Rows.


    Re: Populate Dates in different cells between date range - VBA


    Re: Randomized Task Rota


    What do you mean by "very close"?
    If the code doesn't do what you asked in your post #4, you should specify how it is not working completely, otherwise I think I am not capable to understand what you are asking.

    Re: Copy columns with word starts xxxx and paste to another sheet


    Try

    Code
    Sub test()
        Dim x, ws As Worksheet
        Set ws = Sheets.Add
        With Sheets("sheet1").Cells(1).CurrentRegion
            x = Filter(.Parent.Evaluate("if((left(" & .Rows(1).Address & ",4)=""name"")+(left(" & _
            .Rows(1).Address & ",6)=""result"")," & .Rows(1).Address & ",char(2))"), Chr(2), 0)
            ws.Cells(1).Resize(, UBound(x) + 1).Value = x
            .AdvancedFilter 2, ws.Cells(1).CurrentRegion, ws.Cells(1).CurrentRegion
        End With
    End Sub