Optie button (Userform)

[Mieke1985]

Hallo allemaal,

Ik heb een userform en een forumlid heeft hier VBA codes aangekoppeld. :thumb:
De antwoorden die gegeven worden komen in een speadsheet te staan.

Mijn userform bestond eerst alleen uit keuzelijstjes en teksten. Maar nu wil ik ook een optiebutton toevoegen.
Dit is een deel van de VBAcode:

Private Sub cmmndToevoegen_Click()
If ComboBox1 = "" Then If MsgBox("Je naam selecteren a.u.b.", 1 = vbYesNo) Then Exit Sub
If TextBox1 = "" Then If MsgBox("Datum invullen a.u.b.", 1 = vbYesNo) Then Exit Sub
If TextBox2 = "" Then If MsgBox("Invoeraangiftenummer invullen a.u.b.", 1 = vbYesNo) Then Exit Sub
If TextBox3 = "" Then If MsgBox("Datum eerste controle invullen a.u.b.", 1 = vbYesNo) Then Exit Sub
If ComboBox2 = "" Then If MsgBox("Je naam selecteren a.u.b.", 1 = vbYesNo) Then Exit Sub

With Sheets("Registratielijst")
Rij = .Range("B" & Rows.Count).End(xlUp).Row + 1 'naar eerste lege regel
.Cells(Rij, "B") = ComboBox1.Value
.Cells(Rij, "D") = DateValue(Format(TextBox1.Value, "dd-mm-yyyy"))
.Cells(Rij, "F") = TextBox2.Value
.Cells(Rij, "G") = DateValue(Format(TextBox3.Value, "dd-mm-yyyy"))
.Cells(Rij, "H") = ComboBox2.Value
.Cells(Rij, "I") = OptionButton1.Value
.Cells(Rij, "I") = OptionButton2.Value

De laatste 2 kloppen niet. Als ik optiebutton 1 aanklik dan komt er in het spreadsheet ONWAAR te staan. Ik wil graag dat daar Correct komt te staan (en bij optiebutton2 Niet correct)

Wie zou dit voor mij willen corrigeren? Ik heb het bestand bijgevoegd.
Groeten.

 

[wieter]

Zo?

Bekijk bijlage Optiebutton.xlsm

 

[Mieke1985]

Yep!! Zo bedoelde ik!
Bedankt, ik ga er verder mee puzzelen! :thumb:

 

[Mieke1985]

Ik heb nog een vraag over de option button.
Ik heb nl. nog 2 option buttons toegevoegd, echter zodra ik een keuze heb gemaakt tussen optionbutton 1 en 2 en vervolgens optionbutton 3 kies dan worden optionbutton 1 en 2 leeg.

Dit is nu (het optionbutton-gedeelte van) de code:

Private Sub OptionButton1_Click()
With Sheets("Registratielijst")
Rij = .Range("B" & Rows.Count).End(xlUp).Row + 1 'naar eerste lege regel
.Cells(Rij, "I") = "correct"
End With
End Sub

Private Sub OptionButton2_Click()
With Sheets("Registratielijst")
Rij = .Range("B" & Rows.Count).End(xlUp).Row + 1 'naar eerste lege regel
.Cells(Rij, "I") = "niet correct"
End With

End Sub

Private Sub OptionButton3_Click()
With Sheets("Registratielijst")
Rij = .Range("B" & Rows.Count).End(xlUp).Row + 1 'naar eerste lege regel
.Cells(Rij, "J") = "correct"
End With
End Sub

Private Sub OptionButton4_Click()
With Sheets("Registratielijst")
Rij = .Range("B" & Rows.Count).End(xlUp).Row + 1 'naar eerste lege regel
.Cells(Rij, "J") = "niet correct"
End With

End Sub


Hopelijk kan iemand mij hier mee helpen.
Bedankt!Bekijk bijlage Optiebutton2.xlsm

 

[wieter]

Je moet een groepsvak zetten rond de buttons die samen horen.

Bekijk bijlage Optiebutton.xlsm

 

[Mieke1985]

TOP!! bedankt!:thumb:

 

[Mieke1985]

Helaas komt ik nog ergens niet uit in dit bestand; heb mij suf gezocht op internet maar kom er niet uit; dus wil graag jullie deskundigheid raadplegen:
Als men bij periode "1" invult ipv een echte datum (23-1-2013) dan komt er in het spreadsheet 1-1-1900 te staan.

Is het mogelijk om een foutmelding te geven zodra men geen echte datum intypt? Dus dat men verplicht is om 23-1-2013 te typen. (incl. streepjes)

Hierbij het bestand:
Bekijk bijlage Datum.xlsm

 

[snb]

gebruik daarom een combobox met alle geldige data in plaats van een tekstvak.

 

[Mieke1985]

Ik ben bang dat ik een combobox niet handig vind in dit geval. Dan krijg je een lijst met 365 opties.

Misschien is het wel mogelijk om dmv voorwaardelijke opmaak de data met een jaartal <2013 een kleurtje te geven? Daar heb ik ook mee zitten stoeien maar komt er helaas niet uit.

Ik heb de volgende formule geprobeerd om te testen of het werkt om alles wat eindigt op 2013 rood te maken.

=RECHTS(D3;4)="2013"
En dit werkt niet.......

=RECHTS(D3;4)="test" werkt wel.

Zal dit het met dd-mm-yyyy instelling te maken hebben?

 

[Mieke1985]

Ik ben eruit! Ik heb nu de volgende formule staan
=JAAR(D3)<=2012

En dit werkt. Dus mijn vraag vervalt.

Bedankt!

 

[wieter]

Mieke ik wil zeker je opzet, om met een Uform te werken, niet kelderen.
Als een foute datum ingegeven wordt, kleurt hij rood. OK maar dan staat die foute datum er nog wel, en moet hij nog manueel aangepast worden.
In bijlage gebeurt hetzelfde als in jou Uform, maar alles gebeurt rechtstreeks op het blad.
Fouten in datums zijn uitgesloten, door een kalender te gebruiken.
Je ziet maar.

Bekijk bijlage Mieke.xlsm

 

[Mieke1985]

Wauw die kalender is top!
Als de datum "fout" is dan moet deze inderdaad achteraf nog aangepast worden.

Is het ook mogelijk om het uform te houden en in het geval dat er een foute datum wordt opgegeven dat er dan een kalendertje in de cel komt?

 

[wieter]

Ja, dat is mogelijk.
Ik heb hier ooit een bestand zien voorbij komen, dat een kalender toonde, als een tekstbox geselecteerd werd.
In mijn Office-versie zit die ingebouwde "Microsoft Calendar Control" niet, ik kan dus ook geen voorbeeldje maken.
Maar op het forum zijn er zeker specialisten die je hiermee zullen willen helpen.

 

[Mieke1985]

Ik zal mij er eens in verdiepen bedankt!