Hallo experts,
Wellicht kunnen jullie mij helpen met het omzetten/aanpassen van een script.
Ik heb een userform dat is opgebouwd uit textboxen en comboboxen.
Nu heb ik een knop waarmee ik de waarden wil opslaan in een sheet (genaamd 2012). Nu krijg ik dit deels voor elkaar.
Met deels bedoel ik dat wanneer ik alle comboboxen (behalve combobox1) vervang voor textboxen hij keurig alles wegschrijft.
Al mijn probeersels bij een situatie van een mengeling van comboboxen en textboxen resulteren echter in foutmeldingen...
Hieronder het script dat van toepassing is op de "opslaan" knop. Ik hoop dat jullie hier wellicht eens naar zouden willen kijken en mij ook een uitleg bij een eventuele aanpassing willen geven zodat ik daadwerkelijk begrijp wat ik fout doe.
Alvast bedankt voor jullie hulp
greetz
________________________________________________
Private Sub CommandButton5_Click()
Set N = Sheets("2012").Range("A:A").Find(Combobox1.Value, , xlValues, xlWhole)
If Not N Is Nothing Then
MsgBox "Dit nummer bestaat al!" & vbNewLine & "Kies een ander nummer.", vbExclamation, "Nummer al gebruikt."
Else
lRij = Sheets("2012").Range("A" & Rows.Count).End(xlUp).Row + 1
With Sheets("2012")
.Range("A" & lRij).Value = Combobox1.Value
For i = 2 To 27
.Cells(lRij, i).Value = Me("TextBox" & i).Value
Next
.Cells(lRij, 3).Value = Format(Me.TextBox3.Value, "mm/dd/yyyy")
End With
Combobox1.RowSource = "=nummers"
Unload Me
End If
End Sub
Wellicht kunnen jullie mij helpen met het omzetten/aanpassen van een script.
Ik heb een userform dat is opgebouwd uit textboxen en comboboxen.
Nu heb ik een knop waarmee ik de waarden wil opslaan in een sheet (genaamd 2012). Nu krijg ik dit deels voor elkaar.
Met deels bedoel ik dat wanneer ik alle comboboxen (behalve combobox1) vervang voor textboxen hij keurig alles wegschrijft.
Al mijn probeersels bij een situatie van een mengeling van comboboxen en textboxen resulteren echter in foutmeldingen...
Hieronder het script dat van toepassing is op de "opslaan" knop. Ik hoop dat jullie hier wellicht eens naar zouden willen kijken en mij ook een uitleg bij een eventuele aanpassing willen geven zodat ik daadwerkelijk begrijp wat ik fout doe.
Alvast bedankt voor jullie hulp
greetz
________________________________________________
Private Sub CommandButton5_Click()
Set N = Sheets("2012").Range("A:A").Find(Combobox1.Value, , xlValues, xlWhole)
If Not N Is Nothing Then
MsgBox "Dit nummer bestaat al!" & vbNewLine & "Kies een ander nummer.", vbExclamation, "Nummer al gebruikt."
Else
lRij = Sheets("2012").Range("A" & Rows.Count).End(xlUp).Row + 1
With Sheets("2012")
.Range("A" & lRij).Value = Combobox1.Value
For i = 2 To 27
.Cells(lRij, i).Value = Me("TextBox" & i).Value
Next
.Cells(lRij, 3).Value = Format(Me.TextBox3.Value, "mm/dd/yyyy")
End With
Combobox1.RowSource = "=nummers"
Unload Me
End If
End Sub
