Userform weergeven als er voldaan is aan vooreaarde

[wpayanda]

Goede morgen allemaal,

ik wil een userform weergeven als er voldaan is aan een voorwaarde, volgende code gebruik ik maar hij doet het niet helemaal. Ik krijg wel een melding als er niet voldaan is aan de voorwaarde die ik gesteld heb maar als er wel voldaan is aan de voorwaarde dan wordt de userform niet weeregegeven.

Private Sub CommandButton2_Click()



If Range("G3").Value = "" Then

Msg = "Vul eerst de gegevens op het werkblad Formulier in!"
style = vbOKOnly + vbExclamation + vbApplicationModal
Title = "LET OP"

Response = msgbox(Msg, style, Title, Help, Ctxt)
If Response = vbOK Then
MyString = vbOK
Sheets("Formulier").Range("B3").Select

If Range("G3").Value = True Then

Load UserForm2
UserForm2.Show

End If

End If

End If


End Sub

 

[Relleboer]

Private Sub CommandButton2_Click()

If Range("G3").Value = "" Then

Msg = "Vul eerst de gegevens op het werkblad Formulier in!"
style = vbOKOnly + vbExclamation + vbApplicationModal
Title = "LET OP"

Response = msgbox(Msg, style, Title, Help, Ctxt)
If Response = vbOK Then
MyString = vbOK
Sheets("Formulier").Range("B3").Select

[COLOR="Red"]If Not Range("G3").Value = "" Then[/COLOR]

Load UserForm2
UserForm2.Show

End If

End If

End If


End Sub

Denk dat hij het zo wel moet doen

 

[wpayanda]

Hij doet het perfect! hartelijk bedankt!