color multiple rows
 

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

color multiple rows
 

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

On 28 Apr., 15:43, bernd wrote:
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

color multiple rows
 

This is exactly how I meant it.

Thank you Per!