Try this macro (this will color rows 2,4,6,8 etc red)
Sub test()
Dim j As Integer, k As Integer
j = Range("a1").End(xlDown).Row
'j is the last row
For k = 1 To j
If k Mod 2 = 0 Then
Cells(k, "a").EntireRow.Interior.ColorIndex = 3
End If
Next k
End Sub
if you want rows 1,3,5,7 etc to be colored change the following line in the above macro If k Mod 2 = 0 Then into If k Mod 2 = 1 Then |
Quote
Sub test()
Dim j As Integer, k As Integer
j = Range("a1").End(xlDown).Row
'j is the last row
For k = 1 To j
If Rows(k).Hidden = False Then
Cells(k, "a").EntireRow.Interior.ColorIndex = 3
End If
Next k
End Sub
|
Alternative itunes compatible 6th generation Copy paste rows fill color Excel macro change color background Excel macro count number of rows Excel macro set border fill of cell Excel macro shift up blank rows Excel macro transpose every rows to columns Fill color when value changes in cells Hide rows in excel by macro How get macro list in excel file using vb codes How to auto color fill certain cells in excel Hp 1215 laser color - download If then statement with fill color Macro color cells excel Macro to copy cell formatting from one worksheet to another Macro to take two rows in excel Outlook macro Vb macro to count of rows for each sheet and save it in text file