Need Sample VBA Code

[Guest]

I have a cell (A3) with conditional formatting.

Via VBA code, I want to be able to say "Make the conditional formatting for
cells A6 through A500 the same as the conditional formatting for cell A3".

 

[Tom Ogilvy]

Sub ABCD()
Range("A3").Copy
Range("A6:A500").PasteSpecial xlPasteFormats

End Sub

Copies all the formatting from Cell A3 including the Conditional formatting.

 

[Guest]

apply the following code to every cell you need to

Range("a3").Copy
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

or if the conditional formatting will always be the same

lookup formatcondition, in the help index to program the format conditions
directly
(xl2003)

 

[Lars-Åke Aspelin]

I have a cell (A3) with conditional formatting.

Via VBA code, I want to be able to say "Make the conditional formatting for
cells A6 through A500 the same as the conditional formatting for cell A3".

Try this

Range("A3").Select
Selection.Copy
Range("A6:A500").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Hope this works as expected.

Lars-Åke