Looping Format
in [Functions]
|
From: Totoshi on 17 May 2010 11:52 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 17 May 2010 12:37 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 17 May 2010 12:54 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 17 May 2010 13:07 It works just fine, Thanks
|
Pages: 1 Prev: count the number of rows with entries greater than zero Next: Convert a text in a date format |