Highlight Rows Yellow

[jo15765]

I have a workbook that has data from column A - column BB

In Column F we have a userid column
I want to
1) sort the workbook by column F ascending
2) every other userid I want to highlight the row yellow - so leave 1st user id white, when user id changes highlight yellow, when user id changes again leave white, when userid changes again highlight row yellow

Kinda like the Table Design but I only see a way to do every other row, I don't see a way to do each time the userid changes.

[rollis13]

Is something like this what you are after ? I didn't consider sorting since you can do that with the Macro Recoder and then intergrate it.

Option Explicit
Sub ColorRowsByID()
    Dim firstRow  As Long
    Dim IColor As Long
    Dim first  As Variant
    Dim second As Variant
    Application.ScreenUpdating = False
    firstRow = 2
    IColor = 6
    Range(Cells(firstRow, 1), Cells(firstRow, 54)).Interior.ColorIndex = IColor
    Do While Cells(firstRow, "F") <> ""
        first = Cells(firstRow, "F").Value
        second = Cells(firstRow, "F").Offset(1, 0).Value
        If second = first Then
            Range(Cells(firstRow, 1), Cells(firstRow, 54)).Interior.ColorIndex = IColor
        Else
            Range(Cells(firstRow, 1), Cells(firstRow, 54)).Interior.ColorIndex = IColor
            If IColor = 6 Then IColor = xlNone Else IColor = 6
        End If
        firstRow = firstRow + 1
    Loop
    Application.ScreenUpdating = True
End Sub

[jo15765]

@rollis13 - yes that highlights as I needed, thank you

[rollis13]

Thanks for the positive feedback, glad having been of some help.