Advice Please?

[Greg]

Hi all,

I have this code below it is working well apart from the inputboxes, I want
the person to have the ability to hit the cancel button. when this happens
now it fills the column "g" completely with yes
how can this be corrected.

Private Sub UserForm_Activate()
Sheet5.Activate
Label1.Caption = InputBox("WHAT IS THE PLAYER'S REGISTRATION NUMBER?",
"Existing Player's re-registration")

Dim Nor
Dim ans

On Error Resume Next

ans = Application.Match(CLng(Label1.Caption), Range("A:A"), 0)
If Not IsError(ans) Then
Label2.Caption = Application.Index(Range("B:B"), ans)
Label3.Caption = Application.Index(Range("c:c"), ans)
Application.Index(Range("j:j"), ans) = "YES"

Else
MsgBox "Invalid code"
End If
On Error GoTo 0
Nor = MsgBox("IS THIS THE RIGHT PERSON?", vbYesNo)

If Nor = vbNo Then
Label1.Caption = InputBox("WHAT IS THE PLAYER'S REGISTRATION NUMBER?",
"Existing Player's re-registration")

Exit Sub
End If

If Nor = vbYes Then
Unload Me
QUESTION1.Show
End If

End Sub

Thanks

greg

 

[broro183]

Hi Greg,

The following allows for the pressing of cancel to be recognised - if
you want further explanation have a look a the link in the code:

'To end sub if "cancel" was pressed, sourced from _
http://www.excelforum.com/showthread.php?t=466059&highlight=vbcancel+input
& http://vb.mvps.org/tips/varptr.asp
If StrPtr(Label1.Caption) = 0 Then
GoTo ExitSub
Else
End If

hth
Rob Brockett
NZ
Always learning & the best way to learn is to experience...

 

[Greg]

Thanks worked like a charm

 

[broro183]

Hi Greg,
Thanks for the feedback, pleased I could help by passing on others
knowledge ;-)

Rob Brockett
NZ
Always learning & the best way to learn is to experience..