Naar lege cel gaan na klik op button

Status
Niet open voor verdere reacties.

RV2010

Gebruiker
Lid geworden
29 sep 2010
Berichten
73
Goedemorgen,

Ik ben in excel een userform aan het maken, waarbij op het einde op OK gedrukt moet worden. Nu wil ik het zo maken dat als er op OK gedrukt wordt, VBA eerst gaat controleren óf er lege velden zijn en zo ja, dat VBA dan naar het eerste lege veld gaat. De code die ik nu heb:

Code:
Private Sub cmdOK_Click()
  If txtVB1 = "" Then MsgBox "Veld VB1 is leeg": Exit Sub
  If txtVB2 = "" Then MsgBox "Veld VB2 is leeg": Exit Sub
  If txtVB3 = "" Then MsgBox "Veld VB3 is leeg": Exit Sub
End Sub

Hoe zorg ik er nu voor dat hij naar veld VB1 gaat als deze leeg is enz?

Bedankt!
 
RV2010,

Leg de focus op het lege veld.

Code:
if txtVB1 = "" then MsgBox "Veld VB1 is leeg": txtVB1.setfocus
 
Laatst bewerkt:
Dit werkt helaas niet bij mij. Ik maak gebruik van een Multipage met 4 pagina's. De knop die ik gebruik staat op de laatste pagina. Hij moet alle pagina's nalopen.

Doe ik iets verkeerd?
 
RV2010,

Kun je een voorbeeld bestand plaatsen, dan kunnen we meekijken.
 
Jazeker :)
Zie bijlage.

Bekijk bijlage userform_vb.xls

Zo hoort het ongeveer te zijn. Mijn bestand is alleen met 4 tabbladen én met op elk tabblad een knop Next, tot op het laatste tabblad een knop Add staat. Zodra op Add wordt gedrukt, controleert hij of er een cel leeg is en zo ja, dan moet hij daarheen gaan :).
 
RV2010,

Probeer onderstaande code maar eens:

Code:
Private Sub UserForm_Initialize()
    MultiPage1.Value = 1
    ComboBox4.SetFocus
End Sub

Met deze code wordt gestart op het tweede tabblad naam en de focus wordt gelegd op Combobox4 (Voorbeeld 1)
Tabblad 1 is Multipage1.Value=0
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan