davi026,
Bom dia!
Tente adaptar:
Private Sub cmdProximo_Click()
'set properties for CommandButton Next
Select Case MultiPage1.Value
'Name is required to be entered to proceed to next Page:
Case 0
If txtName.Value = "" Then
MsgBox "Please Enter Name"
Exit Sub
Else
MultiPage1.Pages(0).Enabled = False
MultiPage1.Pages(1).Enabled = True
MultiPage1.Value = 1
End If
End Select
End Sub
Obs- Coloquei um "txtName" só como exemplo!!
Att,
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 25/07/2014 8:05 am