CommandButton posting on different sheet

MilosCekal · Jun 21st 2016

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!

**Kenneth Hobson** · Jun 21st 2016

Re: CommandButton posting on a different sheetav

Code

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 Sub

Display More

CommandButton posting on different sheet

Participate now!

Share