Tabblad kopieren en vullen in VBA

[hendriks245]

Hallo,

Ik hoop dat iemand mij kan helpen met het volgende:

Ik heb een bijlage bijgevoegd met een voorbeeld bestandje. Nu wil ik graag dat de ingevulde gegevens in het userform in een nieuw tabblad worden gezet. Dit nieuwe tabblad moet dan een kopie zijn van het blad "moedersheet".

Is dit mogelijk? Alvast bedankt voor de reactie!

 

[HSV]

Private Sub CommandButton1_Click()
 Sheets("Moedersheet").Copy After:=Worksheets(Sheets.Count)
   With Sheets(Sheets.Count)
    .Range("C3") = TextBox1.Text
    .Range("C4") = TextBox2.Text
    .Range("C5") = ComboBox1.Value
   End With
 Unload Me
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = Sheets("START").Range("A18:A22").Address
End Sub

 

[hendriks245]

Werkt geweldig! Bedankt!