copy and paste special question
I have copied some data over using copy and paste special and trying to find a easy way to continue on sheet i.e I have on sheet 1 cell a2 copied from sheet 2 cell a2 and sheet 1 cell b2 copied from sheet 2 cell e2. what im trying to do is to be able to copy the copy and paste special formula on. Therefore sheet 1 a3 is from sheet 2 a3 and sheet 1 b3 is from sheet 2 cell e3. I want to be able to copy the columns down so I dont have to copy and paste special every cell. Can anyone help? -- tweacle |
copy and paste special question
tweacle,
Assuming that there is no other data below the data that you want to copy then try the Macro: Sub CopyIt() Dim LasteRow As Long Dim LastaRow As Long LastaRow = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row LasteRow = Sheets("Sheet2").Cells(Rows.Count, 5).End(xlUp).Row Application.ScreenUpdating = False Sheets("Sheet2").Activate Sheets("Sheet2").Range(Cells(2, 1), Cells(LastaRow, 1)).Copy Sheets("Sheet1").Range("A2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Sheets("Sheet2").Range(Cells(2, 5), Cells(LasteRow, 5)).Copy Sheets("Sheet1").Range("B2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Sheets("Sheet1").Activate Application.ScreenUpdating = True End Sub -- HTH Sandy In Perth, the ancient capital of Scotland and the crowning place of kings with @tiscali.co.uk "tweacle" wrote in message ... I have copied some data over using copy and paste special and trying to find a easy way to continue on sheet i.e I have on sheet 1 cell a2 copied from sheet 2 cell a2 and sheet 1 cell b2 copied from sheet 2 cell e2. what im trying to do is to be able to copy the copy and paste special formula on. Therefore sheet 1 a3 is from sheet 2 a3 and sheet 1 b3 is from sheet 2 cell e3. I want to be able to copy the columns down so I dont have to copy and paste special every cell. Can anyone help? -- tweacle |
copy and paste special question
Sandy Mann Wrote: tweacle, Assuming that there is no other data below the data that you want to copy then try the Macro: Sub CopyIt() Dim LasteRow As Long Dim LastaRow As Long LastaRow = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row LasteRow = Sheets("Sheet2").Cells(Rows.Count, 5).End(xlUp).Row Application.ScreenUpdating = False Sheets("Sheet2").Activate Sheets("Sheet2").Range(Cells(2, 1), Cells(LastaRow, 1)).Copy Sheets("Sheet1").Range("A2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Sheets("Sheet2").Range(Cells(2, 5), Cells(LasteRow, 5)).Copy Sheets("Sheet1").Range("B2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Sheets("Sheet1").Activate Application.ScreenUpdating = True End Sub -- HTH Sandy In Perth, the ancient capital of Scotland and the crowning place of kings with @tiscali.co.uk "tweacle" wrote in message ...- I have copied some data over using copy and paste special and trying to find a easy way to continue on sheet i.e I have on sheet 1 cell a2 copied from sheet 2 cell a2 and sheet 1 cell b2 copied from sheet 2 cell e2. what im trying to do is to be able to copy the copy and paste special formula on. Therefore sheet 1 a3 is from sheet 2 a3 and sheet 1 b3 is from sheet 2 cell e3. I want to be able to copy the columns down so I dont have to copy and paste special every cell. Can anyone help? -- tweacle - Brilliant Many Thanks -- tweacle |
All times are GMT +1. The time now is 02:48 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com