Use And in IF Statement VBA

[billandrew]

Afternoon

My question today is I am trying to apply multiple conditions to a cell. The first condition formats the cell blue if the mod is 0. I would also like to format the font bold. (Maybe other formatting as well) The code I am using below. Thank You.

Sub format_every_other_row()


finalrow = Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To finalrow
If x Mod 2 = 0 Then
Cells(x, 1).Interior.Color = rgbCornflowerBlue
Else: Cells(x, 1).Interior.Color = rgbDeepPink


End If
Next


End Sub

 

[Beyond_avarice]

You can "house" a lot of actions within a True (before Else) or False(Else) result.

    finalrow = Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To finalrow
    If x Mod 2 = 0 Then
        Cells(x, 1).Interior.Color = rgbCornflowerBlue
        Cells(x, 1).Font.Bold
        Else: Cells(x, 1).Interior.Color = rgbDeepPink
    
    
    End If
Next

 

[billandrew]

Thank you.

I actually started to use the with statement below the if. Is this practical.

Sub FormateveryOtherRow2()


finalrow = Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To finalrow
If x Mod 2 = 0 Then


With Cells(x, 1)
.Interior.Color = rgbCornflowerBlue
.Font.Bold = True
.Font.Size = 11
.Font.Name = "Arial"




End With
Else: Cells(x, 1).Interior.Color = rgbDeepPink


End If


Next


End Sub