Formattinb cells

D

Don Guillett

Why not just use format>formula is>conditional formatting
=a2=$a$1 and format as desired>copy format using format painter.
 
G

Gary''s Student

try:

Sub Charles()
cl = 2
rw = 2
Sheets("Sheet1").Cells(cl, rw).Interior.ColorIndex = 14
End Sub
 
C

Charles

Hi
Is it possible to change the background color of a column of cells depending
on the value
of the cell at the top of the column.
I have written a macro to do this but can't find a statement to do this:

worksheets:)Sheet1").cells(cl,rw).backcolor = QBColor(14)

Error message method not supported and nowhere in the help can I find an
answer.

Suggestions would be appreciated

Thanks

Charles
 
C

Charles

Thanks Garry
The method works fine if I run it in its own sub routine.
I need to call it every time the month changes and this I do using a combo
box.
The problem is that when I call it from the combo_click sub or even if I
add the code to the combo_click sub I get an error (Unable to use ColorIndex
procedure of Internal Class)

Charles
 
C

Charles

Thanks Garry
The method works fine if I run it in its own sub routine.
I need to call it every time the month changes and this I do using a combo
box.
The problem is that when I call it from the combo_click sub or even if I
add the code to the combo_click sub I get an error (Unable to use ColorIndex
procedure of Internal Class)

Charles
 
Top