data vanuit userform op eerste vrije regel zetten

[Luchtsplitser]

ik heb het bijgevoegde bestandje als voorbeeld.
In een userform vul ik data in, deze data wordt in een Excelblad geplaatst.
Heb het voor elkaar gekregen om de data telkens op de eerst volgende vrije regel te zetten.
Nu is het zo, dat ik wil dat ik eigenlijk wil dat cel B4 als eerste vrije regel wordt aangemerkt. Vandaar telkens weer daaronder.

Daarnaast mijn 2e vraag, ik wil de groep Kleur (waarin de optionbuttons staan) in 1 keer controleren of er een keuze is gemaakt. Hoe krijg ik dat voor elkaar? Het lukt om te controleren of het datum veld ingevuld is, maar het lukt niet bij de groep.

 

[HSV]

Misschien is er wel een betere code, maar het werkt.

'find first empty row in database
iRow = ws.Cells(Rows.Count, [COLOR="red"]2[/COLOR]) _
  .End(xlUp).Offset(1, 0).Row

'controleer of de datum ingevuld is
If Trim(Me.TextBox1.Value) = "" Then
  Me.TextBox1.SetFocus
  MsgBox "Voer een datum in!"
 End If

   If Me.OptionButton1.Value = False _
   And Me.OptionButton2.Value = False _
   And Me.OptionButton3.Value = False _
   And Me.OptionButton4.Value = False _
   And Me.OptionButton5.Value = False Then
   MsgBox "Maak een kleurkeuze"
   Exit Sub
End If

If Me.OptionButton1.Value = True Then
    ws.Cells(iRow, [COLOR="red"]3[/COLOR]).Value = "Rood"
ElseIf Me.OptionButton2.Value = True Then
    ws.Cells(iRow, [COLOR="red"]3[/COLOR]).Value = "Geel"
ElseIf Me.OptionButton3.Value = True Then
    ws.Cells(iRow, [COLOR="red"]3[/COLOR]).Value = "Groen"
ElseIf Me.OptionButton4.Value = True Then
    ws.Cells(iRow, [COLOR="red"]3[/COLOR]).Value = "Blauw"
ElseIf Me.OptionButton5.Value = True Then
    ws.Cells(iRow, [COLOR="red"]3[/COLOR]).Value = "Wit"
End If

ws.Cells(iRow, [COLOR="red"]2[/COLOR]).Value = Me.TextBox1.Value

 

[Jack Nouws]

Hallo Luchtsplitser,

Hier heb ik ook een voorbeeldje waarbij de commandbutton van je userform pas zichtbaar wordt indien 1 van je optionbuttons is aangeklikt.
Bekijk het maar eens eens.

Met vr gr
Jack

 

[Luchtsplitser]

Bedankt! Werkt beiden prima.
Erg fijn.

 

[HSV]

Bedankt! Werkt beiden prima.
Erg fijn.

Dan gaarne de vraag op opgelost zetten.
Bvd.