Forum Discussion

ONG ZHEN YANG RP's avatar
ONG ZHEN YANG RP
Brass Contributor
May 18, 2018

Needs Help Editing a Simple Code

I am creating a code that would make all odd rows yellow and all even rows white It's not working properly right now so I would appreciate any help editing it! The error is that the subscript is out...
Formulas & Functions
VBA
Matt Mickle's avatar
Matt Mickle
Bronze Contributor
May 18, 2018

This is a little bit simpler then what you have.  Instead of looping through the cells individually one at a time you can just color the whole row at once.

 

Note: Column T is Column # 20

 

Sub loops_exercise()

    Dim R As Integer
    
    For R = 1 To 20
        If R Mod 2 = 0 Then
            Range("A" & R & ":T" & R).Interior.Color = vbWhite
        Else
            Range("A" & R & ":T" & R).Interior.Color = vbYellow
        End If
    Next R

End Sub

Resources