jtodd

Board Regular
Joined
Aug 4, 2014
Messages
145
Hi
can anyone show me how to change this macro to paste values and formats but not formulas.

Sub CopyStuff()

Range("AA4:AD34").Copy

Sheets("SummaryData").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteValues

End Sub


if i try and add more than 1 pastespecial it comes up with errors ??
 

Some videos you may like

Excel Facts

Can you AutoAverage in Excel?
There is a drop-down next to the AutoSum symbol. Open the drop-down to choose AVERAGE, COUNT, MAX, or MIN

jtodd

Board Regular
Joined
Aug 4, 2014
Messages
145
Thanks for you quick reply , I have tried this but get the debug message ?
 

MARK858

MrExcel MVP
Joined
Nov 12, 2010
Messages
13,323
Office Version
  1. 365
  2. 2010
Platform
  1. Windows
  2. Mobile
Try

Code:
With Sheets("SummaryData").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
  .PasteSpecial xlPasteValues
  .PasteSpecial xlPasteFormats
End With
 

jtodd

Board Regular
Joined
Aug 4, 2014
Messages
145

ADVERTISEMENT

Again thanks for your quick reply but again i get a debug message , the first pastespecial is highligted .
 

jtodd

Board Regular
Joined
Aug 4, 2014
Messages
145
Sorry , i have just tried again and it works fine , user error.;)

Many thanks for your help
 

Watch MrExcel Video

Forum statistics

Threads
1,108,614
Messages
5,523,919
Members
409,542
Latest member
Shezz01

This Week's Hot Topics

Top