Looping Format

Hi everyone,

I need some help a looping format, here is the problem:

I have data in col A B C , and i need each time both A1 B1 C1 is equal
to zero the text color is white, and so on until A100 B100 C100; i
have thinking in someting but is not working...

Can you help me....


Thanks


______________________

Sub color()
Dim icol As Integer
Dim ilin As Integer
Dim r As Range

ilin = 0
icol = 0
Sheets("Certificado").Select
For ilin = 0 To ilin = 114
If (r.Cells(ilin, 1) = 0 And r.Cells(ilin, 2) = 0 And r.Cells(ilin,
3) = 0) Then
'Range(Cells(ilin1, 1), Cells(ilin1, 2), Cells(ilin1, 3)).Select
Font.ColorIndex = 2
End If
Next ilin

With all cells selected, cell A1 active, conditional format formula is:
=AND($A1=$B1,$A1=$C1,$A1=0)
format to white text.

This format can be applied to all cells/rows within selection.

--
Best Regards,

Luke M
"Totoshi" wrote in message
...
Hi everyone,

I need some help a looping format, here is the problem:

I have data in col A B C , and i need each time both A1 B1 C1 is equal
to zero the text color is white, and so on until A100 B100 C100; i
have thinking in someting but is not working...

Can you help me....


Thanks


______________________

Sub color()
Dim icol As Integer
Dim ilin As Integer
Dim r As Range

ilin = 0
icol = 0
Sheets("Certificado").Select
For ilin = 0 To ilin = 114
If (r.Cells(ilin, 1) = 0 And r.Cells(ilin, 2) = 0 And r.Cells(ilin,
3) = 0) Then
'Range(Cells(ilin1, 1), Cells(ilin1, 2), Cells(ilin1, 3)).Select
Font.ColorIndex = 2
End If
Next ilin

Why not just this...

=AND($A1=0,$B1=0,$C1=0)

....seems like that would work as well and the structure is much simpler.

--
Rick (MVP - Excel)



"Luke M" wrote in message
...
With all cells selected, cell A1 active, conditional format formula is:
=AND($A1=$B1,$A1=$C1,$A1=0)
format to white text.

This format can be applied to all cells/rows within selection.

--
Best Regards,

Luke M
"Totoshi" wrote in message
...
Hi everyone,

I need some help a looping format, here is the problem:

I have data in col A B C , and i need each time both A1 B1 C1 is equal
to zero the text color is white, and so on until A100 B100 C100; i
have thinking in someting but is not working...

Can you help me....


Thanks


______________________

Sub color()
Dim icol As Integer
Dim ilin As Integer
Dim r As Range

ilin = 0
icol = 0
Sheets("Certificado").Select
For ilin = 0 To ilin = 114
If (r.Cells(ilin, 1) = 0 And r.Cells(ilin, 2) = 0 And r.Cells(ilin,
3) = 0) Then
'Range(Cells(ilin1, 1), Cells(ilin1, 2), Cells(ilin1, 3)).Select
Font.ColorIndex = 2
End If
Next ilin

It works just fine,


Thanks