easy search automatically display like a Vlookup but in VBA

[Patriot2879]

Hi I have the code below but i want to change cell A2 to a 'TextBox1' as now instead of using cells and vlookup i want to put this into a userform instead, so in textbox1 i will enter the data to search then in textbox3 and textbox4 it will display automatically the results, can you help please, i am new to this still

result = [VLOOKUP(Sheet2!A2, Data!A:AA, 3, FALSE)]

 

[steve the fish]

Try using this:

Private Sub TextBox1_Change()

TextBox2.Text = ""
myRow = Application.Match(TextBox1.Text, Sheets("Data").Columns("A"), 0)
If Not IsError(myRow) Then
    TextBox2.Text = Sheets("Data").Range("C" & myRow).Value
End If

End Sub

 

[Patriot2879]

hi thanks for this but it didnt work, the textbox is in a userform7 does that needs mentioning in the code?

 

[steve the fish]

It needs adding to that userforms module thats all. Didnt work isnt entirely helpful. In what way? What did/ didnt happen? What is the data? Text, number, date?

 

[Patriot2879]

sorry, for example i type in the data i am looking form into textbox1 and it didnt load up the info found in sheet1 to load up in textbox2, the textbox are built in userform7 hope that helps? sorry not being very informative and basic i am new to this

 

[steve the fish]

No its trying to find the data in column A of sheet called Data because that what the vlookup was doing. Where have you put the code by the way? When you go into the VBA window you right click the userform in question, view code and then paste it there.

 

[Patriot2879]

HI there thank you for the reply, i put the code in textbox2

 

[Patriot2879]

Sorry this was the code i was using below as a vlookup which worked, but now i have made a userform7 and i want this to do the same thing, i type the number in textbox1 and it will automatically find the details in sheet1 and input into textbox2, sorry for the mistake previously

=VLOOKUP(Northants!$J$16, Sheet1!$A:$AA,26,FALSE)