Copying the Same Row from Another Sheet

[Forever_EX]

I have two worksheets, "Items" and "Originals".

I run a UserForm from "Items".

I want to be able to:

• Find the current row I am on.
• Go to that same row on "Originals".
• Copy the row, and paste the data back onto the same row in "Items".

I have come up with this but it just tells me what row I am on:

Private Sub OriginalButton_Click()

Dim CurrentItem As Long


CurrentItem = ActiveCell.row


MsgBox CurrentItem

????

????

Application.CutCopyMode = False

Worksheets("Items").Activate

Thank you in advance!

 

[mrshl9898]

Private Sub OriginalButton_Click()

Dim CurrentItem As Long


CurrentItem = ActiveCell.Row


Worksheets("Originals").Rows(CurrentItem).Copy Worksheets("Items").Rows(CurrentItem)


Application.CutCopyMode = False


End Sub

 

[Forever_EX]

THANK YOU SO MUCH

you make it look easy