View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Nigel Nigel is offline
external usenet poster
 
Posts: 923
Default Copy-Paste a Row via a cell reference

This will do it ----
Rows(2).Copy Destination:=Rows(Range("B2"))

but it would be worth putting a check that the value in B2 is numeric and in
range by using.....

With Range("B2")
If .Value 0 And .Value <= 65536 Then
Rows(2).Copy Destination:=Rows(.Value)
Else
MsgBox "Value of B2 is out of range"
End If
End With


--
Cheers
Nigel



"AMY Z." wrote in message
...
Hi,
I'm trying to do something that is more advanced of my elementary VBA

skills.
I would like to create a procedure (macro) that would copy Row 2 and paste
it according to the value in cell B2. (B2 being the row number to paste

to).

IE: If B2 says 11. The macro would copy Row 2 , then paste to Row 11.
Row 2 will always be the Row that is copied. But the value in B2 can

change
to another row reference.

I'm just learning VBA for Excel and have figured out the Row(2) , Select,
Copy, Paste part. But not sure how to word the code as reference to B2.

My
attempts have not worked.

Thank you for your time on this,
Amy