P
Patrick C. Simonds
I use a 2 page multipage control (page 0 and Page 1) . On page 1 is
TextBox2203 which has an Exit routine (see below). My problem is that if
TextBox2203 is the active control and the user clicks on the tab to go to
page 0 of the multipage control, the exit routine for the TextBox does not
run. so is there any way to:
1. Get the exit routine to run if the user attempts to change pages without
exiting the the TextBox first.
2. If possible (but low priority) keep them on page1 if all the
OptionButtons are false.
Private Sub TextBox2203_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Application.SpellingOptions.IgnoreCaps = False
Sheets("Sheet2").Unprotect
Sheets("Sheet2").Range("a1").Value = TextBox2203.Text
Application.EnableEvents = False
Sheets("Sheet2").Range("a1").CheckSpelling
Application.EnableEvents = True
TextBox2203.Text = ""
TextBox2203.Text = Sheets("Sheet2").Range("a1").Value
Sheets("Sheet2").Range("a1").Value = ""
If TextBox2203.Value <> rng1(1, 7) Then
OptionButton2201.Value = False
OptionButton2202.Value = False
OptionButton2203.Value = False
OptionButton2204.Value = False
OptionButton2205.Value = False
OptionButton2206.Value = False
End If
End Sub
TextBox2203 which has an Exit routine (see below). My problem is that if
TextBox2203 is the active control and the user clicks on the tab to go to
page 0 of the multipage control, the exit routine for the TextBox does not
run. so is there any way to:
1. Get the exit routine to run if the user attempts to change pages without
exiting the the TextBox first.
2. If possible (but low priority) keep them on page1 if all the
OptionButtons are false.
Private Sub TextBox2203_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Application.SpellingOptions.IgnoreCaps = False
Sheets("Sheet2").Unprotect
Sheets("Sheet2").Range("a1").Value = TextBox2203.Text
Application.EnableEvents = False
Sheets("Sheet2").Range("a1").CheckSpelling
Application.EnableEvents = True
TextBox2203.Text = ""
TextBox2203.Text = Sheets("Sheet2").Range("a1").Value
Sheets("Sheet2").Range("a1").Value = ""
If TextBox2203.Value <> rng1(1, 7) Then
OptionButton2201.Value = False
OptionButton2202.Value = False
OptionButton2203.Value = False
OptionButton2204.Value = False
OptionButton2205.Value = False
OptionButton2206.Value = False
End If
End Sub