Hello!
In my worksheet I want a CommandButton, when pressed, to post data to a different sheet into a table.
In the sample workbook that I am attaching you can see that when the CommandButton is pressed the data are put into cellules on the same sheet. What I want is for them to be posted into the table in Sheet2 and so far I have been unable to figure out how to do that. Any help and/or recommendations would be welcome.
Thanks in advance!
Re: CommandButton posting on a different sheetav
Private Sub CommandButton1_Click()
Dim L As Long, r As Range, tbl As ListObject, lrow As ListRow
If MsgBox("Do you want to INSERT the new contact ?", vbYesNo, _
"Demande de confirmation") = vbYes Then 'condition : si oui au message
'Permet de se positionner sur la dernière ligne de tableau NON VIDE
L = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1
Set tbl = Worksheets("Feuil2").ListObjects("Tableau1")
With tbl
Set lrow = .ListRows.Add(.ListRows.Count + 1, True)
'Debug.Print lrow.Range.Address
Set r = .DataBodyRange
'Insère la donnée de la textbox3 dans la colonne A
r(r.Rows.Count, 1).Value = ActiveSheet.TextBox1.Value
'Insère la donnée de la textbox4 dans la colonne B
r(r.Rows.Count, 2).Value = ActiveSheet.TextBox2.Value
'et à suivre....
End With
End If
MsgBox "DONE"
End SubDon’t have an account yet? Register yourself now and be a part of our community!