Code:
Option Explicit
Private Sub buttonCancel_Click()
Me.Hide
End Sub
Private Sub CustomerName_Change()
Me.Label1.Caption = "Name " & CustomerName.Text
Me.Label2.Caption = "Name " & CustomerName.Text
End Sub
Private Sub DoneButton1_Click()
Sheet1.Range("A2") = Me.CustomerName
Sheet1.Range("B2") = Me.Address
Sheet1.Range("C2") = Me.Company_Name
Sheet1.Range("D2") = Me.Email
Sheet1.Range("G2") = Me.Male_Female
Sheet1.Range("E2") = Me.Favorite_Color
Sheet1.Range("F2") = Me.Size
Sheet1.Range("H2") = Me.Height1
Sheet1.Range("I2") = Me.Weight
Me.Hide
End Sub
Private Sub NextButtonPage1_Click()
MultiPage1.Value = 1
End Sub
Private Sub NextButtonPage2_Click()
MultiPage1.Value = 2
End Sub
Private Sub PreviousButtonPage2_Click()
MultiPage1.Value = 0
End Sub
Private Sub PrevoiusButtonPage3_Click()
MultiPage1.Value = 1
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Please use the 'Done' button!"
End If
End Sub
Having the user have to exit via the Done button is bad, but having that on the 3rd page is awful.
You should have Next/Previous/done buttons off the multipage.
Bookmarks