T
Tom Donino
Why does the On Error function only work when there is
one error? See code below which produces a subscript
error for b14 if value is entered incorrectly more than
once. Why doesn't "wrongteam" error loop keep running
until b14 is entered correctly?
Private Sub CommandButton1_Click()
Dim TargRange As Range
Dim UTeamName
Range("b14:b32").ClearContents
Range("a1").Select
REDO:
Range("b14").Value = InputBox("Team Name?", "Enter")
UTeamName = Range("b14").Value
On Error GoTo WrongTeam
Set TargRange = ThisWorkbook.Sheets(UTeamName).Range
("a2")
WrongTeam:
Msg = "Team Name does not exist, please re-enter" '
this defines the message
Style = vbOKCancel ' this defines the answer buttons
Title = "Data Entry Error" ' this is message box title
Response = MsgBox(Msg, Style, Title)
GoTo REDO
one error? See code below which produces a subscript
error for b14 if value is entered incorrectly more than
once. Why doesn't "wrongteam" error loop keep running
until b14 is entered correctly?
Private Sub CommandButton1_Click()
Dim TargRange As Range
Dim UTeamName
Range("b14:b32").ClearContents
Range("a1").Select
REDO:
Range("b14").Value = InputBox("Team Name?", "Enter")
UTeamName = Range("b14").Value
On Error GoTo WrongTeam
Set TargRange = ThisWorkbook.Sheets(UTeamName).Range
("a2")
WrongTeam:
Msg = "Team Name does not exist, please re-enter" '
this defines the message
Style = vbOKCancel ' this defines the answer buttons
Title = "Data Entry Error" ' this is message box title
Response = MsgBox(Msg, Style, Title)
GoTo REDO