Multipage VBA navigeren

[raoulduivestein]

Ik heb een multipage in VBA for Excel.
In de multipage staan 5 verschillende pagina's, op iedere pagina staat een button om naar de volgende pagina te gaan. Met deze button wordt ook de textbox invoer1 (page1), invoer2 (page2), invoer3 (page3) gevuld. Deze informatie word gehaald uit Sheet1 CEL A1,A2,A3.

Nu wil ik het volgende:

- Als er op page2 op de button volgende wordt geklikt en de waarde in CEL A2 is leeg, dan moet er worden genavigeerd naar page5.
- Als er op page3 op de button volgende wordt geklikt en de waarde in CEL A3 is leeg, dan moet er worden genavigeerd naar page5.

Wie kan mij hiermee helpen?

Groet,

Raoul

 

[Elsendoorn2134]

Raoul,

Kun je het bestand toevoegen aan je vraag?
Om je vraag te kunnen beantwoorden moet er getest kunnen worden en het is denk ik teveel gevraagd
van ons om je multipage in Excel na te bouwen om je vraag te kunnen beantwoorden.

Veel Succes.

 

[snb]

Waarom zou je op een 'volgende' knop kunnen klikken als de voorwaarde om op de volgende pagina te komen bij voorbaat bekend is en niet voldoet ?
Beter preventief controleren dan achteraf.

 

[raoulduivestein]

Bedankt voor jullie reacties,

@elsendoor2134 hier is een voorbeeld bestand : Bekijk bijlage Voorbeeld2.xlsm
@snb in sommige gevallen word wel voldaan om op de volgende pagina te komen.

 

[snb]

Sjonge

 

[raoulduivestein]

haha dat snapte je natuurlijk al,
Hoe zou ik in dit geval preventief kunnen controleren

 

[snb]

stel de knop in page(1) heet 'knop_pag1'

knop_Pag1.visible=sheet1.range("A1")<>""

of

knop_Pag1.enabled=sheet1.range("A1")<>""

 

[raoulduivestein]

Dankje, maar aan welke sub moet ik dit dan toevoegen

 

[snb]

Wat dacht je van userform_Initialize ?

 

[Elsendoorn2134]

Raoul ,

Op zich is je probleem niet zo groot, neem in het formulier de volgende besturing op:

Private Sub next1_Click()
invoer1 = [A1]
If invoer1 = "" Then
    MultiPage1.Value = 4
Else
    MultiPage1.Value = MultiPage1.Value + 1
End If
End Sub

Private Sub next2_Click()
invoer2 = [A2]
If invoer2 = "" Then
    MultiPage1.Value = 4
Else
    MultiPage1.Value = MultiPage1.Value + 1
End If
End Sub

Private Sub next3_Click()
invoer3 = [A3]
If invoer3 = "" Then
    MultiPage1.Value = 4
Else
    MultiPage1.Value = MultiPage1.Value + 1
End If
End Sub

Private Sub next4_Click()
MultiPage1.Value = MultiPage1.Value + 1
End Sub

Private Sub UserForm_Activate()
MultiPage1.Value = 0
End Sub

Dan moet het lukken.

Veel Succes.

 

[raoulduivestein]

Bedankt voor jullie hulp Elsendoorn en snb.

De oplossing van Elsendoorn werkt voor mij perfect