Copying imported data

Kiwi den

Board Regular
Joined
Feb 17, 2014
Messages
118
Not sure if this is possible, but I will ask anyway.
I have a worksheet that gets data imported from a survey form
This data is imported into Sheet 1 Row A1 through to A12

What i would like to do is once the data is imported, is to copy it to Sheet 2 rows A1 to A12, so I delete Sheet 1 info, this will allow me to import next survey
What I want is to keep data on sheet 2, but the next survey data to be copied from Sheet 1 rows A1 to A12 to Sheet 2 rows B1 to B12 and so on for all survey results Sheet 2 rows C1 to c12, Sheet 2 rows D1 to D12 etc
this is to keep a record of all results on Sheet 2, while leaving Sheet 1 clear for new imported data.

your thoughts appreciated
 

Some videos you may like

Excel Facts

Copy formula down without changing references
If you have =SUM(F2:F49) in F50; type Alt+' in F51 to copy =SUM(F2:F49) to F51, leaving the formula in edit mode. Change SUM to COUNT.

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
41,087
Office Version
365
Platform
Windows
How about
Code:
Sub KiwiDen()
   Sheets("Sheet1").Range("A1:A12").Copy Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
End Sub
 

Kiwi den

Board Regular
Joined
Feb 17, 2014
Messages
118
hi thanks for this,
my bad the cells to copy are actually A2 - O2
could you please advise the code as my attempts end in failure
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
41,087
Office Version
365
Platform
Windows
Do you still want to copy them to row 1 of sheet2?
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
41,087
Office Version
365
Platform
Windows
In that case use
Code:
Sub KiwiDen()
   Sheets("Sheet1").Range("A2:O2").Copy Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
End Sub
 

Kiwi den

Board Regular
Joined
Feb 17, 2014
Messages
118
thanks, but it doesn't stack the records as a list under each row, ie; sheet 2 1st set of records goes from A2 - O2, the next set goes from sheet 2 P2 - AE2
rather than to A3 - O3 and A4 - O4 etc
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
41,087
Office Version
365
Platform
Windows
:confused: Please see your reply in post#5
 

Kiwi den

Board Regular
Joined
Feb 17, 2014
Messages
118
ok yes misunderstood, I wanted them to go to row 1
then to row2, then row3 etc to form a list
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
41,087
Office Version
365
Platform
Windows
Ok, how about
Code:
Sub KiwiDen()
   Sheets("Sheet1").Range("A2:O2").Copy Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,099,788
Messages
5,470,785
Members
406,720
Latest member
tylergaps

This Week's Hot Topics

Top