Gegevens van Userform wegschrijven naar tabblad !

[danny147]

Beste,

Wil onderstaande code gebruiken in mijn bestandje, maar ik struikel op een fout.

Wie kan mij helpen het probleem op te lossen.

Private Sub CommandButton3_Click()
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox3 = "" Or ComboBox1 = "" Or ComboBox2 = "" Then
MsgBox ("Kan de gegevens niet wegschrijven omdat er velden niet ingevuld zijn !")
Else: [B][COLOR="red"]TextBox1.Value.Copy ['Gestelde vragen'!B510].End(xlUp).Offset(1, 0)[/COLOR][/B]
TextBox1.Value.Copy ['Gestelde vragen'!B505].End(xlUp).Offset(1, 0)
TextBox2.Value.Copy ['Gestelde vragen'!C505].End(xlUp).Offset(1, 0)
TextBox3.Value.Copy ['Gestelde vragen'!G510].End(xlUp).Offset(1, 0)
TextBox4.Value.Copy ['Gestelde vragen'!D510].End(xlUp).Offset(1, 0)
ComboBox1.Value.Copy ['Gestelde vragen'!E510].End(xlUp).Offset(1, 0)
ComboBox2.Value.Copy ['Gestelde vragen'!F510].End(xlUp).Offset(1, 0)
End If
End Sub

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Private Sub CommandButton3_Click()
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or ComboBox1 = "" Or ComboBox2 = "" Then
    MsgBox ("Kan de gegevens niet wegschrijven omdat er velden niet ingevuld zijn !")
Else
    ['Gestelde vragen'!B510].End(xlUp).Offset(1, 0) = TextBox1.Value
    ['Gestelde vragen'!B505].End(xlUp).Offset(1, 0) = TextBox1.Value
    ['Gestelde vragen'!C505].End(xlUp).Offset(1, 0) = TextBox2.Value
    ['Gestelde vragen'!G510].End(xlUp).Offset(1, 0) = TextBox3.Value
    ['Gestelde vragen'!D510].End(xlUp).Offset(1, 0) = TextBox4.Value
    ['Gestelde vragen'!E510].End(xlUp).Offset(1, 0) = ComboBox1.Value
    ['Gestelde vragen'!F510].End(xlUp).Offset(1, 0) = ComboBox2.Value
End If
End Sub

 

[danny147]

Beste Warme Bakkertje,

Bedankt voor de oplossing.

Had ze verwisseld van plaats zo te zien

Er volgt nog meer.

Groetjes Danny. :thumb: