VBA Colored Rows (Conditional Formatting

[Livin404]

Greetings, I came up with a VBA Code that works precisely as I would like it to. However, I have three columns and a few do not have any data at all. It is those I like to have a supplemental statement put into my VBA where the Rows that have no data any any of the three columns on the same row will not be filled. Some rows I have data in column A and no data in Column C; those are fine. It's when there is no data at all in any of the three Columns I don't want the cell filled. Thank you,

Sub Format_FID_ROWS()
Dim i, Count As Long
Dim wsAct As Worksheet
  
  Set wsAct = ActiveSheet
  Application.ScreenUpdating = False
  With Sheets("Inbound FIDS")
    .Activate
i = 1
Count = Sheets("Inbound FIDS").Cells(Rows.Count, "A").End(xlUp).Row

Do While i <= Count

Range(Cells(i, 1), Cells(i, 3)).Interior.Color = RGB(45, 45, 185)
i = i + 1

If i > Count Then
Exit Do
End If
Range(Cells(i, 1), Cells(i, 3)).Interior.Color = RGB(34, 34, 147)
i = i + 1

Loop
End With
wsAct.Activate
  Application.ScreenUpdating = True
End Sub

 

[ekrause]

I added a quick check before formatting to see if all three columns are blank using

If Cells(i, 1) = "" And Cells(i, 2) = "" And Cells(i, 3) = "" Then

You can see it in the code below. Try this:

Sub Format_FID_ROWS()

Dim i, Count As Long
Dim wsAct As Worksheet
  
  Set wsAct = ActiveSheet
  Application.ScreenUpdating = False
  With Sheets("Inbound FIDS")
    .Activate
i = 1
Count = Sheets("Inbound FIDS").Cells(Rows.Count, "A").End(xlUp).Row

Do While i <= Count
    If Cells(i, 1) = "" And Cells(i, 2) = "" And Cells(i, 3) = "" Then
    
    Else
        Range(Cells(i, 1), Cells(i, 3)).Interior.Color = RGB(45, 45, 185)
    End If
    
    i = i + 1
        
    If i > Count Then
        Exit Do
    End If

    If Cells(i, 1) = "" And Cells(i, 2) = "" And Cells(i, 3) = "" Then
    
    Else
        Range(Cells(i, 1), Cells(i, 3)).Interior.Color = RGB(34, 34, 147)
    End If
    
    i = i + 1
Loop
End With
wsAct.Activate
  Application.ScreenUpdating = True
End Sub

 

[Livin404]

It's wonderful, thank you!

 

[WernerS]

Thx to the both off you. Iy helpt wonderfully.