From: Totoshi on
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
From: Luke M on
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" <jferreira80(a)gmail.com> wrote in message
news:83e965e5-2c28-4de7-8478-cb6b23eab90c(a)z17g2000vbd.googlegroups.com...
> 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


From: Rick Rothstein on
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" <lukemoraga(a)nospam.com> wrote in message
news:#qq3u8d9KHA.508(a)TK2MSFTNGP06.phx.gbl...
> 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" <jferreira80(a)gmail.com> wrote in message
> news:83e965e5-2c28-4de7-8478-cb6b23eab90c(a)z17g2000vbd.googlegroups.com...
>> 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
>
>
From: Totoshi on
It works just fine,


Thanks