copy on double click in sheet1 and then paste into next available row in sheet2.

[Sonican]

I am very new to vba, which i why i am asking this, I'm sure to most people on here this is a very simple process, but I just cant get it to work.
So here is what i am trying to do.
In sheet one i have a table. in column A, i have an ID number with leading zeros. what i need to happen is when i double click this number, I need it to copy over into sheet2, keeping the leading zeros and starting at cell a1 and from then on each ID number i double click be pasted into the next cell below.

Thank you so much in advance, i'm so lost its sad

 

[Roderick_E]

Right click sheet1, VIEW CODE and copy paste this:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lastrow As Long
If Target.Column = 1 Then
On Error Resume Next
lastrow = 0
lastrow = Sheet2.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Resume Next
Sheet2.Cells(lastrow + 1, 1).NumberFormat = "@"
Sheet2.Cells(lastrow + 1, 1) = Target
End If
End Sub

I didn't build in anything to consider duplicates

 

[Roderick_E]

Here this one checks for if the user is trying to copy blanks or duplicates:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lastrow As Long
If Target.Column = 1 Then


'if sheet1 cell is blank
If Trim(Target) = "" Then
Exit Sub
End If


'check for duplicates
If IsError(Application.Match(Target, Sheet2.Range("A:A"), 0)) = False Then
MsgBox Target & " already on " & Sheet2.Name & " tab", vbInformation, "ALERT"
Exit Sub
End If


On Error Resume Next
lastrow = 0
lastrow = Sheet2.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Resume Next
Sheet2.Cells(lastrow + 1, 1).NumberFormat = "@"
Sheet2.Cells(lastrow + 1, 1) = Target
End If
End Sub

 

[Sonican]

THANK YOU SO MUCH I HAVE BEEN TRYING TO FIGURE THIS OUT FOR HOURS