application.vlookup returns Run-error: Object required

[Casedias]

Hi all,

I have a macro that I want to use to update username and password.
All is well until I get to the application.vlookup part of the code, and it tells me an object is needed.

I have messed with this until my eyes are bleeding. Any help would be tremendous, thanks!

Windows 7, Excel 2010

Sub UpdatePassword_Click()

Dim CurrentUsername As Integer, CurrentPassword As Integer
Dim Result1 As String, Result2 As String

CurrentUsername = Range("O11").Value
CurrentPassword = Range("O18").Value

If Range("J16") = Range("N16") Then
   Result2 = Range("J15").Value
   
End If

If Range("J23") = Range("N23") Then
   Result2 = Range("J22").Value

Application.VLookup(CurrentUsername, User_Login_Database.Range("D:H"), 4, False) = Result1
Application.VLookup(CurrentPassword, User_Login_Database.Range("D:H"), 5, False) = Result2

End If

End Sub

[:) Sixthsense :)]

May be this?

Sub UpdatePassword_Click()
Dim CurrentUsername As Integer, CurrentPassword As Integer
Dim Result1 As String, Result2 As String

CurrentUsername = Range("O11").Value
CurrentPassword = Range("O18").Value

With Application
    Result1 = .VLookup(CurrentUsername, User_Login_Database.Range("D:H"), 4, False)
    Result2 = .VLookup(CurrentPassword, User_Login_Database.Range("D:H"), 5, False)
End With

End Sub

[Casedias]

Thanks for the response, but sadly that didn't work.

I also tried this with no success either.

Sub UpdatePassword_Click()

Dim CurrentUsername As Integer, CurrentPassword As Integer
Dim Result1 As String, Result2 As String

CurrentUsername = Range("O11").Value
CurrentPassword = Range("O18").Value

If Range("J16") = Range("N16") Then
   Result2 = Range("J15").Value
   
End If

If Range("J23") = Range("N23") Then
   Result2 = Range("J22").Value

End If

With Application
    .VLookup(CurrentUsername, User_Login_Database.Range("D:H"), 4, False) = Result1
    .VLookup(CurrentPassword, User_Login_Database.Range("D:H"), 5, False) = Result2
End With

End Sub

I read in another thread that my Integer may not work if it doesn't return a number value, so I manually changed it to see if it fixed it, but that didn't seem to work either...

I'll keep at at and post back if i figure it out.

[romperstomper]

What is User_Login_Database? Is it the codename of a worksheet, or the name you see on the worksheet tab? The latter won't work - you'd have to use Sheets("User_Login_Database")