color formatting from vbe

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

N+ - 24 May 2008 13:30 GMT

hi all.. i need to make the macro to format all the cells of my workbook like
this...

if cell is equal to 2 then
paint it red
end if

if cell is equal to 1 then
paint it blue
end if

help me !! byyy

Reply to this Message

Gary''s Student - 24 May 2008 14:35 GMT

You could use Conditional Formatting, but with VBA:

Sub color_them()
For Each r In ActiveSheet.UsedRange
v = r.Value
If v = 1 Then
r.Interior.ColorIndex = 3
Else
If v = 2 Then
r.Interior.ColorIndex = 5
End If
End If
Next
End Sub

Signature

Gary''s Student - gsnu200788

> hi all.. i need to make the macro to format all the cells of my workbook like
> this...
[quoted text clipped - 8 lines]
>
> help me !! byyy

Reply to this Message