Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
problem with my code for incorrect text box inputs on a userform
On my spreadsheet I have a user form that loads up where their are two text
boxes on for the First Name and another for the Last Name. With the help of Tom I have created a macro that takes the input from the text boxes and takes the user to their corresponding range. The problem I am having is if an incorrect user name is entered such as "Bob Dole" I get a run time error instead of the message box that is entered in my code. Below is the code I have. Can someone tell me what is wrong with my IF rng=nothing I keep getting an object not defined error message on it when the wrong name is inputed. Private Sub Login_click() With UserInterface On Error Resume Next Set rng = Worksheets("Employee Tracker").Range( _ .TextboxFirst.Text & "_" & .TextBoxLast.Text) On Error GoTo 0 If rng Is Nothing Then MsgBox "Bad name, quitting" Unload UserInterface ThisWorkbook.Close Savechanges:=False End If End With Worksheets("Employee Tracker").Unprotect Password:="testpass" Range("A5:N25").Select Selection.Locked = True Application.Goto rng, True Unload UserInterface Call Macro3 End Sub Thanks in advance |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
problem with my code for incorrect text box inputs on a userform
Have you given any thought to using a ComboBox to have the user select the
name rather than typing it? That might help prevent typos -- Charles Chickering "A good example is twice the value of good advice." "BrianMo" wrote: On my spreadsheet I have a user form that loads up where their are two text boxes on for the First Name and another for the Last Name. With the help of Tom I have created a macro that takes the input from the text boxes and takes the user to their corresponding range. The problem I am having is if an incorrect user name is entered such as "Bob Dole" I get a run time error instead of the message box that is entered in my code. Below is the code I have. Can someone tell me what is wrong with my IF rng=nothing I keep getting an object not defined error message on it when the wrong name is inputed. Private Sub Login_click() With UserInterface On Error Resume Next Set rng = Worksheets("Employee Tracker").Range( _ .TextboxFirst.Text & "_" & .TextBoxLast.Text) On Error GoTo 0 If rng Is Nothing Then MsgBox "Bad name, quitting" Unload UserInterface ThisWorkbook.Close Savechanges:=False End If End With Worksheets("Employee Tracker").Unprotect Password:="testpass" Range("A5:N25").Select Selection.Locked = True Application.Goto rng, True Unload UserInterface Call Macro3 End Sub Thanks in advance |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
problem with my code for incorrect text box inputs on a userfo
I did but it is very important that other workers can not fill in the name of
another employee and since it has to be exact spelling having them type it in alleviates this. The reason i need to have a message box come up if a user name is not correct is not specifically in my department but for the others that will be using this sheet for their own departments. "Charles Chickering" wrote: Have you given any thought to using a ComboBox to have the user select the name rather than typing it? That might help prevent typos -- Charles Chickering "A good example is twice the value of good advice." "BrianMo" wrote: On my spreadsheet I have a user form that loads up where their are two text boxes on for the First Name and another for the Last Name. With the help of Tom I have created a macro that takes the input from the text boxes and takes the user to their corresponding range. The problem I am having is if an incorrect user name is entered such as "Bob Dole" I get a run time error instead of the message box that is entered in my code. Below is the code I have. Can someone tell me what is wrong with my IF rng=nothing I keep getting an object not defined error message on it when the wrong name is inputed. Private Sub Login_click() With UserInterface On Error Resume Next Set rng = Worksheets("Employee Tracker").Range( _ .TextboxFirst.Text & "_" & .TextBoxLast.Text) On Error GoTo 0 If rng Is Nothing Then MsgBox "Bad name, quitting" Unload UserInterface ThisWorkbook.Close Savechanges:=False End If End With Worksheets("Employee Tracker").Unprotect Password:="testpass" Range("A5:N25").Select Selection.Locked = True Application.Goto rng, True Unload UserInterface Call Macro3 End Sub Thanks in advance |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help selecting a range in vba from userform inputs | Excel Programming | |||
Automated userform inputs to the spreadsheet | Excel Programming | |||
Automated userform inputs to the spreadsheet | Excel Programming | |||
userform inputs | Excel Programming | |||
userform inputs | Excel Programming |