Applying formatting to even and odd rows with vba in a table

[wbstadeli]

Hi all,

I have a table called "Orders" in my worksheet "Work Order". How can i write a macro to select all the odd rows (excluding header) in columns 2 through 4 of the table, and apply a certain custom number format " 0 "R.H. and then with all the even rows (excluding header) with the same columns, apply a custom number format of "0 "L.H."? Any help would be appreciated!

 

[Norie]

I'm not 100% sure of the formatting you want to use but give this a try.

Sub FormatTable()
Dim tbl As ListObject
Dim rngData As Range
Dim rngRow As Range

    Set tbl = Sheets("Work Order").ListObjects(1)

    Set rngData = tbl.DataBodyRange

    For Each rngRow In rngData.Rows

        If rngRow.Row Mod 2 = 0 Then
            Intersect(rngRow, tbl.ListColumns(2).Range.Resize(, 3)).NumberFormat = "0 ""R.H."""
        Else
            Intersect(rngRow, tbl.ListColumns(2).Range.Resize(, 3)).NumberFormat = "0 ""L.H."""
        End If
    Next rngRow

End Sub

 

[wbstadeli]

Beautiful, this worked awesome!! Thanks