Copy Table row to another Table

[Takes2ToTango]

Hi all,

I am trying to grab an active cell row and copy that row to another table. However I am only getting errors.

On double click I want to grab the entire line as highlighted in red.

This then copies and pastes it into the table below. Once done, any new lines will be added underneath.

Many thanks in advance!

 

[Georgiboy]

Perhaps the below will get you started:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim sTbl As ListObject, dTbl As ListObject
    Dim sRow As ListRow, dRow As ListRow
    
    Set sTbl = Me.ListObjects("Table1") ' change source table name (Me refers to the sheet the code is running in)
    Set dTbl = Me.ListObjects("Table2") ' change destination table name (Me refers to the sheet the code is running in)
    
    If Not Intersect(Target, sTbl.DataBodyRange) Is Nothing Then
        Set sRow = sTbl.ListRows(Target.Row - sTbl.Range.Row) ' set source row
        Set dRow = dTbl.ListRows.Add ' set destination row
        sRow.Range.Copy dRow.Range ' copy the row over
    End If
End Sub

 

[Takes2ToTango]

That worked perfectly! Thank you so much.

 

[Georgiboy]

You are welcome, thanks for the feedback.