VLOOLUP In VBA Userform

[Faiek]

Hi,
I'd like to implement A Previously used VLOOKUP function in a VBA Form. How can I Make a Textboxes's Value equal to the VLOOKUP Value? Also The VLOOKUP Formula I Used Is:

VLookup(C4, Crossreftable, 3, False)

I Want to Change the C4 to The Value of Another Textbox, How can I Do that?

Thanks,
Faiek

 

[Domenic]

Try something like this...

Range("A2").Value = Application.VLookup(UserForm1.TextBox1.Value, Range("Crossreftable"), 3, 0)

or

[font=Courier New][color=darkblue]Dim[/color] LookupResult [color=darkblue]As[/color] [color=darkblue]Variant[/color]

LookupResult = Application.VLookup(UserForm1.TextBox1.Value, Range("Crossreftable"), 3, 0)
[/font]

 

[Faiek]

Thanks So Much!
Can you please also advise how to use this formula in the same way as the other one?

INDEX('Cross-Ref'!$C$12:$C$482,MATCH(Search!$C4,'Cross-Ref'!$B$12:$B$482,0))

Thanks

 

[Domenic]

Try...

Range("A2").Value = Application.Index(Worksheets("Cross-Ref").Range("C12:C482"), Application.Match(UserForm1.TextBox1.Value, Worksheets("Cross-Ref").Range("B12:B482"), 0))

or

[font=Courier New][color=darkblue]With[/color] Application
    Range("A2").Value = .Index(Worksheets("Cross-Ref").Range("C12:C482"), .Match(UserForm1.TextBox1.Value, Worksheets("Cross-Ref").Range("B12:B482"), 0))
[color=darkblue]End[/color] [color=darkblue]With[/color][/font]

 

[Faiek]

Thanks! Works Perfect!

 

[Domenic]

You're welcome! Thanks for the feedback!