Înserare rând nou dintr-un tabel în altul

[bvlucretiu]

Bună!
Am un tabel și în sheetul "baza" aș dori să creez un link care la clik să-mi copieze valoarea din tabel în sheetul "Tabel" pe următorul rândrespectiv rândul 3!
Cum aș putea face acest lucru?
Vă mulțumesc!

inserare_rand_nou.xlsx

[TudyBTH]

Buna,

Aveti un cod mai jos

Cod: Selectaţi tot

Sub copyLine()
    Dim rs As Range
    Dim rd As Range
    Dim wsD As Worksheet
    Dim i As Long
    
    Set rs = ThisWorkbook.Sheets("baza").Range("A3:E3")
    If IsEmpty(rs(1, 1)) Then
        MsgBox "Introduceti ID"
        Exit Sub
    End If
    Set wsD = ThisWorkbook.Sheets("Tabel")
    i = wsD.Cells(wsD.Rows.Count, "A").End(xlUp).Row + 1
    If i >= wsD.Rows.Count Then
        MsgBox "Nu mai exista randuri libere in Tabel"
        Exit Sub
    End If
    
    Set rd = wsD.Cells(i, "A").Resize(1, 5)
    rd.Value = rs.Value
    
    rs.ClearContents
    
    MsgBox "Datele au fost copiate"
    
End Sub

Aruncati o privire si aici, solutia de la linkul anterior va permite salvarea datelor intr-un tabel fara a transfora fisierul in Macro Enabled (.xlsm)