Copy, PAste Special, Format only HELP

[chefdt]

I'm a bit brain dead tonight and cant make this work.

Simply trying to copy the formatting of the range from N4:N5 to the entire columns of O and T, both starting in row 4.

Row length will be variable from sheet to sheet. Here is what I have.

Sub reformatStripes()'
' reformatStripes Macro
'
Dim lastrow As Long
    lastrow = Range("A" & Rows.Count).End(xlUp).Row
'
    Selection.Copy
    Range("N4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O4:O" & lastrow).Select.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("T4:T" & lastrow).Select.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
    
    

End Sub

 

[Jonmo1]

Try

Range("N4").Copy
Range("O4:O" & lastrow).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Range("T4:T" & lastrow).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

 

[chefdt]

It selects N4 for copying and stops....no error, but no copying or pasting.

 

[Jonmo1]

Works fine for me.
Granted it's only copying N4 (that's what your posted code copied), but your description said you wanted N4:N5.

So perhaps you wanted

Range("N4:N5").Copy
Range("O4:O" & lastrow).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Range("T4:T" & lastrow).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

 

[chefdt]

Bingo that was it. It's one of those "old school" reports that has every other row shaded. When I performed the calculations, i lost the formatting.

Thanks a ton.

DT

 

[Jonmo1]

You're weclome.