alternating line color with same values

[michael1963]

I need to write a macro in order to format a worksheet so that the line colors are alternating (ex: red and yelow), for easy reading

11 mark 11 with red
11 mark 11 with red
25 mark 25 with Yellow
25 mark 25 with Yellow
25 mark 25 with Yellow
09 mark 9 with red
09 mark 9 with red
44 mark 44 with Yellow
55 mark 55 with red

this values are in one column

thanks

[Shijesh Kumar]

try this macros

Please Login or Register  to view this content.

usage - place the cursor on the first cell contain the data ..
and run macros

[michael1963]

thanks

but what wrong with this code


Sub color_it()
Dim p As Range

Set p = Workbooks("paint.XLS").Sheets("1").Range("a2:a7")
xcolor = vbRed
Do While p.Value <> ""
x = ActiveCell.Value
Do While ActiveCell.Value = x
ActiveCell.Interior.Color = xcolor
ActiveCell.Offset(1, 0).Activate

Loop

If xcolor = vbRed Then
xcolor = vbGreen
Else
xcolor = vbRed
End If
Loop
End Sub

i get type mismatch for p

[michael1963]

THIS IS THE NEW CODE

Sub color_it()
Dim p As Range



Set p = Workbooks("paint.XLS").Sheets("1").Range("a2:a7")
p.Activate
xcolor = vbRed
Do While ActiveCell.Value <> ""
x = ActiveCell.Value
Do While ActiveCell.Value = x
ActiveCell.Interior.Color = xcolor
ActiveCell.Offset(1, 0).Activate

Loop

If xcolor = vbRed Then
xcolor = vbGreen
Else
xcolor = vbRed
End If
Loop
End Sub

[shg]

Please read the forum rules, and then edit both your posts to add code tags.