Automatically display informaton found in sheet1 like a Vlookup but in VBA

[Patriot2879]

[h=2]Hi I have the Vlookup code below which i used in a 'Northants' sheet in Excel where i entered data in J16 then in the others cells it automatically inputted the data found in sheet1.

Now i have made a userform7 where i want it to do the same thing, but i want to change cell J16 to a 'TextBox1' (where i enter my data) 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 it will automatically find the details in sheet1 then in textbox3 and textbox4 it will display automatically the results.
can you help please, i am new to this still and i do apprecaite all the help i have had previously [/h]

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

[h=2]
[/h]

 

[Fluff]

Something like

Private Sub TextBox1_AfterUpdate()
   Dim Fnd As Range
   
   Set Fnd = Sheets("Sheet1").Range("A:A").Find(TextBox1.Value, , , xlWhole, , , False, , False)
   If Not Fnd Is Nothing Then
      TextBox3.Value = Fnd.Offset(, 25).Value
   End If
   
End Sub

 

[Patriot2879]

This works great thank you very much , how can i add other textbox's to autofill for example textbox4, offset 3, for example or textbox5, offset 7? can you help on that please, thank you again this is great

 

[Fluff]

Simply copy the line where it sets the textbox3 value & change the name of the textbox & the offset accordingly