Sub routine to test and color cells
Closed
Ian
-
26 Aug 2009 à 09:19
venkat1926 Posts 1863 Registration date Sunday 14 June 2009 Status Contributor Last seen 7 August 2021 - 27 Aug 2009 à 20:17
venkat1926 Posts 1863 Registration date Sunday 14 June 2009 Status Contributor Last seen 7 August 2021 - 27 Aug 2009 à 20:17
Related:
- Sub routine to test and color cells
- Color 65535 - Guide
- Html text color - Guide
- Sound card color code - Guide
- Rj45 color code - Guide
- Powertoys color picker - Download - Other
2 responses
venkat1926
Posts
1863
Registration date
Sunday 14 June 2009
Status
Contributor
Last seen
7 August 2021
811
26 Aug 2009 à 20:13
26 Aug 2009 à 20:13
your data is from A1 down in column A
try this macro ( modify to suit you)
try this macro ( modify to suit you)
Sub test()
Dim rng As Range, c As Range
Set rng = Range(Range("A1"), Cells(Rows.Count, "A").End(xlUp))
For Each c In rng
If c <> "" And c <> 1 Then c.Interior.ColorIndex = 3
Next c
End Sub
venkat1926
Posts
1863
Registration date
Sunday 14 June 2009
Status
Contributor
Last seen
7 August 2021
811
27 Aug 2009 à 20:17
27 Aug 2009 à 20:17
I do not understand this did not work. What do you mean that it stops at C<> line.
it works i n my computer
one moe thing in your first message said that "if the cell is empty leave". but the cell is not empty but has zero(0) in the cell.
so change
c<>""
into
c<>0
check again
it works i n my computer
one moe thing in your first message said that "if the cell is empty leave". but the cell is not empty but has zero(0) in the cell.
so change
c<>""
into
c<>0
check again
27 Aug 2009 à 07:57
However I could not get it to go past the "If c <> line..."
This is a typical column
a
c
c
1
d
a
0
b
I only want to leave 1 and 0. All other answers )a,b,c,d) to be coloured red
Would this command be useful to determine the spreadsheet size i.e. avoid counting column by column?
Worksheets(1).Range("a1:k50")
Hope you can help, again!
Thanks
Ian