color multiple rows

[bernd]

Hi,

Can someone help me out with the following problem:

In comlumn A the macro has to look for the value "0".
Everytime this value is found this row and the row below have to be
coloured.

Someone?

Thank in advance.

Bernd

 

[Per Jessen]

Hi

Try this:

Sub ColorRows()
FirstRow = 1
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For r = FirstRow To LastRow
If Cells(r, "A").Value = "0" Then
Rows(r).Resize(2).Interior.ColorIndex = 6
End If
Next
End Sub

Best regards,
Per

 

[bernd]

This is exactly how I meant it.

Thank you Per!