I'm trying to use vlookup to lookup a the contents of a textbox in a
database and insert the value into my spreadsheet. I've tried several
things, but I keep getting an error that says "invalid argument or
procedure. Can anyone tell me what is wrong with my code?

Thanks,
Greg


Private Sub CommandButton1_Click()

Dim company As Range
Dim attn As Range
Dim fax_no As Range
Dim email As Range
Dim database As Range


Range("company") = Application.WorksheetFunction.VLookup(TextBox1,
database, 2, False)

UserForm1.Hide
End Sub

Hi

if you've set company to equal a valid range (e.g. Set Company = Range("A1")
then modify your code to read

company.Value = Application.WorksheetFunction.VLookup(TextBox1,
database, 2, False)

Cheers
JulieD


"gig" wrote in message
oups.com...
I'm trying to use vlookup to lookup a the contents of a textbox in a
database and insert the value into my spreadsheet. I've tried several
things, but I keep getting an error that says "invalid argument or
procedure. Can anyone tell me what is wrong with my code?

Thanks,
Greg


Private Sub CommandButton1_Click()

Dim company As Range
Dim attn As Range
Dim fax_no As Range
Dim email As Range
Dim database As Range


Range("company") = Application.WorksheetFunction.VLookup(TextBox1,
database, 2, False)

UserForm1.Hide
End Sub

Conversely, if you haven't and you haven't set database to a range using
something like

set Database = some range,
then change it to

Range("company").Value = Application.VLookup(TextBox1, _
Range("database"), 2, False)

The named range Database must refer to at least two columns.

--
Regards,
Tom Ogilvy


"JulieD" wrote in message
...
Hi

if you've set company to equal a valid range (e.g. Set Company =
Range("A1")
then modify your code to read

company.Value = Application.WorksheetFunction.VLookup(TextBox1,
database, 2, False)

Cheers
JulieD


"gig" wrote in message
oups.com...
I'm trying to use vlookup to lookup a the contents of a textbox in a
database and insert the value into my spreadsheet. I've tried several
things, but I keep getting an error that says "invalid argument or
procedure. Can anyone tell me what is wrong with my code?

Thanks,
Greg


Private Sub CommandButton1_Click()

Dim company As Range
Dim attn As Range
Dim fax_no As Range
Dim email As Range
Dim database As Range


Range("company") = Application.WorksheetFunction.VLookup(TextBox1,
database, 2, False)

UserForm1.Hide
End Sub