Double click to copy a cell to the next empty cell in a different column and sheet (VBA code)

[feni1388]

Hello...

Please help.
I need a VBA code for copying a cell by double clicking it.
I have list of items in a sheet. The item list is on column A. I need to be able to double click any cell on that column A, then it will be automatically copied to
another sheet on column A. The thing is that I need to copy several cells randomly. So the first one I double click will be copied to A2, the second cell I double click will be copied to A3 and so on.
I don't know how to create VBA code that will copy to the next empty cell on column A.

Thank you.

 

[kevin9999]

Please try the following on a copy of your workbook. Put the code in the sheet module of the sheet you want to copy from, and change "Sheet2" to whatever you destination sheet is called.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then
        Application.EnableEvents = False
        Cancel = True
        Target.Copy Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
        Application.EnableEvents = True
    End If
End Sub

 

[feni1388]

Thank you. It works prefectly.

 

[kevin9999]

Thank you. It works prefectly.

Happy to help, and thanks for the feedback