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
|