Search in table and fill textbox

MilosCekal · Jul 6th 2016

Hello all,

I've a problem,
I tried hard to put name (family name and surname) from a table in a different text box but I failed...
I want to write the name and then click on the button "search" to activate this command. the program should find the line position in the table and set informations in textbox.
Thank you all for your help

**StephenR** · Jul 6th 2016

Re: Search in table and fill textbox

I think this does what you want. Assign it to the button.

Code

Private Sub CommandButton1_Click()
  
Dim rFind As Range
 
With Sheet2.Range("B1").CurrentRegion
    Set rFind = .Find(What:=Sheet1.TextBox3.Value, Lookat:=xlPart, MatchCase:=False, SearchFormat:=False)
    If Not rFind Is Nothing Then
        Sheet1.TextBox1.Value = .Cells(rFind.Row, 1)
        Sheet1.TextBox2.Value = .Cells(rFind.Row, 2)
    End If
End With
     
End Sub

Display More

MilosCekal · Jul 6th 2016

Re: Search in table and fill textbox

Thank you very much, it works now!

Search in table and fill textbox

Participate now!

Share