Sub ExcelTurkey()
Dim i&
Range("A:AJ").Interior.ColorIndex = xlNone
For i = 1 To Cells(Rows.Count, "A").End(3).Row
If WorksheetFunction.IsOdd(Cells(i, 1).Value) Then
Range("A" & i & ":AJ" & i).Interior.ColorIndex = 4
Cells(i + 1, "C").Interior.ColorIndex = 4
i = i + 1
Else
Range("A" & i & ":AJ" & i).Interior.ColorIndex = 15
Cells(i + 1, "C").Interior.ColorIndex = 15
End If
Next i
i = Empty
End Sub
Sub ExcelTurkey()
Dim i&
Range("A:AJ").Interior.ColorIndex = xlNone
For i = 1 To Cells(Rows.Count, "A").End(3).Row
If Cells(i, 1).Value <> "" Then
If WorksheetFunction.IsOdd(Cells(i, 1).Value) Then
Range("A" & i & ":AJ" & i).Interior.ColorIndex = 4
Cells(i + 1, "C").Interior.ColorIndex = 4
i = i + 1
Else
Range("A" & i & ":AJ" & i).Interior.ColorIndex = 15
Cells(i + 1, "C").Interior.ColorIndex = 15
End If
End If
Next i
i = Empty
End Sub