Macro Help - ASAP - Please!

[Theo]

I have this macro which works great.
But I need to ALSO copy/paste the format of the cells

Sub Macro1()
Sheets("Sheet1").Rows("1:1").Copy
Sheets("Sheet2").Rows("3:5").PasteSpecial
Paste:=xlPasteValidation, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

 

[Per Jessen]

I have this macro which works great.
But I need to ALSO copy/paste the format of the cells

Sub Macro1()
Sheets("Sheet1").Rows("1:1").Copy
Sheets("Sheet2").Rows("3:5").PasteSpecial
Paste:=xlPasteValidation, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Hi Theo

Substitute "Paste:=xlPasteValidation" with "Paste:=xlPasteAll"

//Per

 

[Mike H]

Theo,

This should do it

Sub Macro1()
Sheets("Sheet1").Rows("1:1").Copy
Sheets("Sheet2").Rows("3:5").PasteSpecial
End Sub

Mike

 

[Theo]

I don't want it to paste all - just the validation and the format.

 

[Theo]

But I only want to paste the validation and the format?

 

[Theo]

But I only want to paste the validation and the format?

 

[Dave Peterson]

Paste it twice

Sheets("Sheet1").Rows("1:1").Copy

Sheets("Sheet2").Rows("3:5").PasteSpecial Paste:=xlPasteValidation, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Sheet2").Rows("3:5").PasteSpecial Paste:=xlPasteFormats

 

[JLGWhiz]

VBA PasteSpecial does not support what you want to do in a single action.
You will have to to accomplish it in a secondary action.

 

[Gary Keramidas]

just add another line of code:

Sub Macro1()
Sheets("Sheet1").Rows("1:1").Copy

With Sheets("Sheet2").Rows("3:5")
.PasteSpecial Paste:=xlPasteValidation, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With

End Sub

 

[Theo]

Cool - I had tried repeating it, but I did not have the End With statement -
I'll try that!
Thanks!