PDA

View Full Version : Solved: Fill down just paste special format



Shazam
01-27-2006, 10:55 AM
Hey everyone,

I'm trying to do a fill down effect but doing a paste special format.


With Range("A2:P" & Range("A65536").End(xlUp).Row)
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False


Any ideas how to achieve this?

Zack Barresse
01-27-2006, 11:02 AM
Can you explain what you are trying to do with your code? We have no idea what your Selection is.. What formats are you trying to copy, from where to where?

Shazam
01-27-2006, 11:09 AM
I'm sorry. I have conditional formatting formulas in A2 thru P2 and I would like to copy A2 thru P2 and pastespecial down to the last active cell in Column A.


With Range("A2:P" & Range("A65536").End(xlUp).Row)

Zack Barresse
01-27-2006, 11:22 AM
Try something like this ..

Sub FillCF()
Range("A2:P2").Copy
Range("A3:P" & Cells(Rows.Count, "A").End(xlUp).Row).PasteSpecial xlPasteFormats
End Sub

Shazam
01-27-2006, 11:33 AM
You are the man!:clap:


Thank You!

Zack Barresse
01-27-2006, 12:43 PM
Ahem .. may I? .. Shazam!