"runtime error 1004"

[Sanderch]

Please help, im getting a "runtime error 1004" (application defined or object defined error) on the below code (highlighted red) im not good with vba. (can i attached the file?)

I am running a userform with a combobox (UserList) and a text box (PasswordInput) on selecting the button (Logon) i get the below error.

I have two user defined lists named User_List

=OFFSET(Username_Password!$A$1,1,0,COUNTA(Username_Password!$A:$A)-1,2)

and Users

 =OFFSET(Username_Password!$A$1,1,0,COUNTA(Username_Password!$A:$A)-1,1)

Sheet name is Username_Password,

Private Sub Logon_Click()
Dim Password As String
Password = PasswordInput.Text
 
[COLOR=seagreen]'Check to see if data is entered into the UserName combo box[/COLOR]
 
If IsNull(Me.UserList) Or Me.UserList = "" Then
MsgBox "You must select a User Name.", vbOKOnly, "Required Data"
Me.UserList.SetFocus
Exit Sub
End If
 
[COLOR=seagreen]' Looks up password[/COLOR]
[COLOR=#2e8b57][/COLOR] 
[COLOR=red]If Password = WorksheetFunction.VLookup(UserList.Value, Range("Users_List"), 2, 0) Then
[/COLOR]MsgBox "Password Accepted"
Unload Me
Else
MsgBox "Password Incorrect.", vbOKOnly, "Required Data"
Me.PasswordInput.SetFocus
End If
Exit Sub
End Sub

 

[VoG]

Try Dim Password as Variant and

If Password = Application.VLookup(UserList.Value, Range("Users_List"), 2, 0) Then

 

[Sanderch]

Hi Vog thants for your post its now saying its

"Runtime error 1004" Method 'range' of object '_global' failed

 

[Sanderch]

found it... i miss spelled the user list. I used Users_List not User_List

thanks

 

[Ruddles]

A good opportunity to point out that using the Option Explicit directive at the top of your code would have highlighted this problem before you'd have got as far as running the code. The compiler would have told you that you were trying to use a non-existent object and refused to go any further.

I always recommend that people use Option Explicit as a matter of course, not only to pick up spelling mistakes but also to make them think carefully about how they use the various data types available to them.