Highlighting every other row containing data

[oam]

I have search and cannot find a code or conditional formatting formula that will highlight every other row with multiple columns (A4:BB250) only if the rows contain data.

Does anyone know of a way to do this?

Thank you for your help

[SamT]

Maybe something like this

sub VBAX_SamT()
dim r as long
dim ColorMe as boolean
dim WsF AS object
set WsF = application.worksheet.function

ColorMe = True 'to start with a highlighted row

for r = 4 to 250' or 'To Cells(Rows.Count, "BB").End(xlUp).Row
if WsF.Count(Rows.(r)) and ColorMe then ' Count? or CountA?
range("A" & r & ":BB" & r). interior.colorIndex = 5 'Adjust color to suit
ColorMe = not ColorMe
end if
next r
end sub

[oam]

SamT,

Thank you a quick response.

I get an error when I run the code "Application does not support this property or method" Also, I get an error on this line but they maybe related.
Thank you again for your help

WsF.Count(Rows.(r))ColorMe Then' Count? or CountA?

[YasserKhalil]

Just remove dot from this line after worksheet

Set WsF = application.worksheet.function

And also remove dot from this line after rows

If WsF.Count(Rows.(r)) And ColorMe Then ' Count? or CountA?

[YasserKhalil]

May be (if you mean to color only the row if all cells in the same row has data)

Sub Test()
    Dim r   As Long
    Dim WsF As Object
    
    Set WsF = Application.WorksheetFunction
     
    For r = 4 To 250
        If WsF.CountA(Rows(r)) = 54 Then
            Range("A" & r & ":BB" & r).Interior.ColorIndex = 5
        End If
    Next r
End Sub

[SamT]

I get an error when I run the code "Application does not support this property or method" Also, I get an error on this line

With Property and Method errors, first, always look at the error line for typos, misspellings, missing or extra dots and other punctuation.

With "A Without B" errors, check for missing and mismatched "End"s and "Next"s in the code around the error line

[Bob Phillips]

I have search and cannot find a code or conditional formatting formula that will highlight every other row with multiple columns (A4:BB250) only if the rows contain data.

Does anyone know of a way to do this?

Thank you for your help

=MOD(ROW(),2)=0

[oam]

Thank you all for your help.

[Tom Jones]

XLD you did not read carefully requirement.

Originally Posted by oam I have search and cannot find a code or conditional formatting formula that will highlight every other row with multiple columns (A4:BB250) only if the rows contain data.

=MOD(ROW(),2)=0