Copy formats from row 2 down to nRows
 

Hi
I'm trying to copy row 2 and copy the formats down the sheet to the last row
(I have already defined nRows). I'm having trouble selecting the nRows to
paste into...

Rows("2:2").Select
Selection.Copy
Rows("3:3 & nRows").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Copy formats from row 2 down to nRows
 

Rows("2:2").copy
Rows("3:"&nRows).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:= False

--
kassie

never stop learning




"Meltad" wrote in message
...
Hi
I'm trying to copy row 2 and copy the formats down the sheet to the last
row
(I have already defined nRows). I'm having trouble selecting the nRows to
paste into...

Rows("2:2").Select
Selection.Copy
Rows("3:3 & nRows").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Copy formats from row 2 down to nRows
 

Try to fix this row
Rows("3:3 & nRows").Select
to
Rows("3:" & nRows).Select

Regards,
Stefi

€žMeltad€� ezt Ã*rta:

Hi
I'm trying to copy row 2 and copy the formats down the sheet to the last row
(I have already defined nRows). I'm having trouble selecting the nRows to
paste into...

Rows("2:2").Select
Selection.Copy
Rows("3:3 & nRows").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Copy formats from row 2 down to nRows
 

Thanks (and thanks Stephi), this worked but now I get an error on the paste -
says range is too large...
How can I get around this? My spreadsheet has 22939 rows.


"Kassie" wrote:

Rows("2:2").copy
Rows("3:"&nRows).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:= False

--
kassie

never stop learning




"Meltad" wrote in message
...
Hi
I'm trying to copy row 2 and copy the formats down the sheet to the last
row
(I have already defined nRows). I'm having trouble selecting the nRows to
paste into...

Rows("2:2").Select
Selection.Copy
Rows("3:3 & nRows").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False