moving data between worksheets

bartlett · Apr 25th, 2002, 06:16 AM

I am trying to create a macro where i copy a name from sheet a and paste in sheet b. The problem comes when I paste the second name. My macro will paste it over the original name and I need it to move to the next cell-creating a list essentially. Help!!

jimboy · Apr 25th, 2002, 10:29 AM

try this;

Sub Macro1()
'
ActiveCell.Copy
ActiveSheet.Next.Select
Do Until ActiveCell = Empty

If ActiveCell = Empty Then
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Activate
'moves the cell down one
Else
ActiveCell.Offset(1, 0).Range("A1").Activate
End If
Loop
ActiveSheet.Paste
End Sub

bartlett · Apr 25th, 2002, 01:07 PM

jimboy,
thanks-works perfectly.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 25th, 2002, 06:16 AM	#1
bartlett Join Date: Apr 2002 Posts: 52	I am trying to create a macro where i copy a name from sheet a and paste in sheet b. The problem comes when I paste the second name. My macro will paste it over the original name and I need it to move to the next cell-creating a list essentially. Help!!

Apr 25th, 2002, 10:29 AM	#2
jimboy Board Regular Join Date: Apr 2002 Posts: 2,318	try this; Sub Macro1() ' ActiveCell.Copy ActiveSheet.Next.Select Do Until ActiveCell = Empty If ActiveCell = Empty Then ActiveSheet.Paste ActiveCell.Offset(1, 0).Range("A1").Activate 'moves the cell down one Else ActiveCell.Offset(1, 0).Range("A1").Activate End If Loop ActiveSheet.Paste End Sub

Apr 25th, 2002, 01:07 PM	#3
bartlett Join Date: Apr 2002 Posts: 52	jimboy, thanks-works perfectly.