If row is even then

[pincivma]

Hi All

I'm struggling with this code. I don't know how to do it in VBA. Here is what I want the code to say:

If row is even then

Code goes here

End If

Thanks.

 

[JoeMo]

Hi All

I'm struggling with this code. I don't know how to do it in VBA. Here is what I want the code to say:

If row is even then

Code goes here

End If

Thanks.

Maybe:

If row mod 2 = 0 then
'code here

M

 

[Michael M]

Try

Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
    For r = 1 To lr
        If r Mod 2 = 0 Then
            'your code here
        End If
    Next r
End Sub

 

[Fluff]

Another option

   Dim i As Long
   For i = 1 To 10
      If Application.IsEven(i) Then Rows(i).Interior.Color = 56789
   Next i

 

[pincivma]

Hi Fluff

This is funny. My brother's nickname is Fluff. Anyway, thanks for your input. However, I'm still struggling with the macro so I'm sending you a code that I did. I want even rows to be gray and uneven rows to be no color. Here is my macro but it does not work properly. Check it out and tell me what I did wrong.

Sub ClearCheckmark()

Sheets("Sheet1").Select
If Row Mod 2 = 2 Then

With Selection
.Clear ' This code deletes the check mark and the color green
.Style = "Grey" 'sets the cell style using a custom style named Custom Gray
End With
End If

If Row Mod 2 = 1 Then ' for odd rows

With Selection
.Clear ' This code deletes the check mark and the color green
End With
End If
ActiveCell.Offset(0, 1).Select

End Sub

 

[Michael M]

I don't have a "Grey" style so you can modify this to suit

Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
    For r = 1 To lr
        If r Mod 2 = 0 Then
          With Rows(r)
            .Clear ' This code deletes the check mark and the color green
            .Style = "Check Cell" 'sets the cell style using a custom style named Custom Gray
        End With
        Else:
        Rows(r).Clear
        End If
    Next r
End Sub

 

[pincivma]

Hi All
Thanks for all your replies. However, I don't think that I have made myself understood. All I want the macro to do is clear the check mark in the cell that I select (ActiveCell.Select), i.e. only one cell and clear that cell only. Then, all I want the macro to do is this: If the row is even, color only that one cell grey (not the whole row). If the row is odd, then just clear that cell only. However, all those macros that have been posted are all great. I can store them and use them when the need arises

Thanks

 

[Michael M]

Maybe this then...

Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
    For r = 1 To lr
        If r Mod 2 = 0 Then
          With Range("A" & r)
            .Clear ' This code deletes the check mark and the color green
            .Style = "Check Cell" 'sets the cell style using a custom style named Custom Gray
        End With
        Else:
        Range("A" & r).Clear
        End If
    Next r
End Sub

 

[RoryA]

Maybe this:

Sub ClearCheckmark()

Sheets("Sheet1").Select
With activecell
   .Clear ' This code deletes the check mark and the color green
   If .Row Mod 2 = 0 Then .Style = "Grey" 'sets the cell style using a custom style named Custom Gray
   .Offset(0, 1).Select
End With
End Sub

 

[pincivma]

I finally got the macro to work. Thanks to Michael and Rory. Both macros work. Now it is just a matter of deciding which one to use.
Thanks guys.