Posts by jindon

    Re: consolidate rows into single row

    What is the reason to place blank row in row 1?
    It's not a good practice and also a bad procedure name "sort"....

    Re: auto generate table based on selection w/ variables

    1) Data in Sheet1, header starting from A1
    2) Output to Sheet2

    Re: Randomized Task Rota

    See if this is how you wanted

    Re: Randomized Task Rota

    Having read your instructions, hard to understand how you want it.
    Do you want

    1) Randomize col.F within Name 1- 4 where col.E has Senior
    2) Randomize col.F within Name 8 - 9 where col.E has ESI
    Third criteria is not clear to me.

    Re: Repeat Transpose - Repeat amount of Rows.

    See if this is how you wanted

    Sub test()
        Dim i As Long, n As Long
        With Sheets("sheet1")
            For i = 1 To .Range("a" & Rows.Count).End(xlUp).Row Step 32
                n = n + 2
                .Cells(i, 1).Resize(32).Copy
                Sheets("sheet2").Cells(n, 1).Resize(2).PasteSpecial Transpose:=True
        End With
    End Sub

    Re: Help in Array

    1) You must give us all the link(s) that you posted same question in other forum(s).

    2) You must use code tag when you post vba code.

    That's all in forum rule.

    Re: Retrieve Most Recent Data In Column

    The attached always updates automatically whenever you select "Latest Ratings" sheet.
    In ThisWorkbook module

    Private Sub Workbook_Open()
        Run Sheets("latest ratings").CodeName & ".worksheet_activate"
    End Sub

    In "Latest Ratings" sheet module

    Re: Retrieve Most Recent Data In Column

    I would not use formula....

    You can either use vba or do it manually...
    1) select data range and copy including header.
    2) paste to the other sheet and sort descending by date.
    3) go to [RemoveDuplicates] by first column.
    4) sort ascending by first column.

    That's what the code does.

    Re: Retrieve Most Recent Data In Column


    Hummm Formula...
    =INDEX('Rating History'!$B$5:$D$8,MAX(IF('Rating History'!$B$5:$B$8=$B7,ROW('Rating History'!$B$5:$B$8)-4)),COLUMN(B1))
    confirm with Ctrl + Shift + Enter (Array forumla entry)
    then copy right + down.

    Re: Macro to combine rows with common data and delete duplicates

    Try change to

    Re: Add a column with file name while importing .csv file in vba

    See if this is how you wanted (not tested)


    Re: Highlights Cells Begins with Multiple Criteria

    That is equivalent to

    Set Lookin = Columns(1).Find(What:= xItem & "*", LookAt:= xlWhole, MatchCase:= False)

    xItem & "*" means cell begin with xItem.

    Re: Highlights Cells Begins with Multiple Criteria

    Just a little alteration of pike's

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