waarde groter dan onderstaande cel

[Vbainfor]

Hallo,

Ik heb een userform gecreeërd, nu moet er nog een functie in verwerkt worden.

In het userform staan 2 vragen, bijvoorbeeld: aantal werknemers?
aantal lease auto's?

Nu moet de 1e vraag altijd een grotere waarde of een = gelijk aan waarde hebben aan de 2e vraag.

de antwoorden woorden doorverwezen naar cel D4 en D5 met de volgende functie: Range("D4").Select

ActiveCell.Value = txtwerknemers.Value
Range("D5").Select
ActiveCell.Value = txtauto.Value

weet iemand hier een mogelijkheid voor?

 

[Warme bakkertje]

Die mogelijkheid is er zeker, maar wat moet er dan gebeuren als vraag1 kleiner is dan vraag2 ?

If txtwerknemers.value < txtauto.value Then
    ....code
End if

Vermijd ook Select in je code.

Range("D4")=txtwerknemers.value

 

[Vbainfor]

Word er bij auto's toch een groter aantal ingevuld dan moet er , '' Werknemeraantal dient hoger te zijn dat aantal auto's''
Het moet ook een verplicht veld zijn..

 

[Warme bakkertje]

Begin dan al eens met een voorbeeldbestand met je userform in.

 

[Vbainfor]

het personeelsbestand moet dus een grotere waarde krijgen dan aantal lease auto's, anders moet hij blokkeren.

De velden zijn ook allemaal verplicht.

In de combobox moet de keuze AA of AB staan.

Ik hoop dat iemand mij hiermee kan helpen!Bekijk bijlage TestFile.xlsm

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
    If txtauto > txtpersoneelsbestand Then MsgBox "Meer auto's dan personeelsleden": Exit Sub
    Range("C1") = txtbedrijfsnaam.Value
    Range("C3") = txtpersoneelsbestand.Value
    Range("C4") = txtauto.Value
    Range("C6") = ComboBox1.Value
    Range("D6") = Txtsoort.Value
End Sub

 

[Vbainfor]

Bedankt voor de hulp!

Maar het schermpje ,meer auto's van personeelsleden, sprinkt ook op wanneer het juist is ingevuld (vul maar een 100 in bij personeelsbestand).. het werk alleen wanneer hetzelfde getal word ingevuld bij de 2 invulvelden .
En de combobox lukt me ook nog steeds niet.

enige suggesties?
Bekijk bijlage TestFile.xlsm

 

[Warme bakkertje]

Dan heb jij wel een heel speciaal Userform want bij mij blijft het schermpje weg zolang het aantal auto's kleiner is of gelijk aan het aantal personeelsleden, hetgeen je ook gevraagd hebt.
Voor de rest heb ik nu even geen tijd, moet weg.

 

[Vbainfor]

Als ik bij personeel 100 invoer en bij auto 50, doet hij het niet.. vul ik 70 en 50 in, doet hij het wel.
Ik zie niet wat er aan de hand is, in de voorgaande post had ik het bestand geupload zodat je het kan zien..

Ik ben benieuwd waar het aan ligt!

 

[Warme bakkertje]

Private Sub UserForm_Initialize()
    ComboBox1.List = Split("AA|AB", "|")
End Sub

Private Sub CommandButton1_Click()
    For Each ctl In Me.Controls
        If TypeOf ctl Is msforms.TextBox Or TypeOf ctl Is msforms.ComboBox Then
            If ctl = vbNullString Then MsgBox "Niet alle velden zijn ingevuld !!": Exit Sub
        End If
    Next
    If Val(txtauto) > Val(txtpersoneelsbestand) Then MsgBox "Werknemeraantal dient hoger te zijn dan aantal auto's !": Exit Sub
    Range("C1") = txtbedrijfsnaam.Value
    Range("C3") = txtpersoneelsbestand.Value
    Range("C4") = txtauto.Value
    Range("C6") = ComboBox1.Value
    Range("D6") = Txtsoort.Value
    Unload Me
End Sub

Private Sub CommandButton2_Click()
    If MsgBox("Weet u zeker dat u wilt annuleren?", vbQuestion + vbYesNo, "Annuleren?") = vbYes Then Unload Me
End Sub