PasteFormat into Columns if Condition is Met

[ricardo9316]

So guys, I am trying to tell VBA to Paste Format over every column if the condition is met within the Range (C1:N1) equalizing to 1.

I've this script working for Grouping Columns in other reports but I cant figure out how to tell it to do PasteFormat instead.


Columns("Z").Select
Selection.Copy


Dim c As Range

For Each c In Range("C1:N1")
If c.Value = "1" Then c.EntireColumn.Select
Selection.Paste

Next c

 

[rpaulson]

try this,

Sub Macro1()

Columns("Z:Z").Copy

For Each c In Range("C1:N1")

If c.Value = 1 Then

c.Columns.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If

Next c
End Sub

hth,
Ross

 

[ricardo9316]

Thanks Ross,

I keep getting this excel issue when trying to run.

"you can't paste this here because the copy area and paste area aren't the same size"

Is there another way to write the script to bypass this? Maybe instead applying against entire Columns we can try applying to ranges within the columns aligned with the cells that meet the condition.

I'll say that I tried to apply with script to a new blank sheet thinking there might be something hidden in my current worksheet but still get the same issue in return