vba auto populate texbox based on criteria

[djossh]

hi. I need to populate my textbox based on criteria (from another textbox).

below is my sample data

(Sheet2)

	A	B	C	D	E
1	133	ABC	OCT-8-2018	12.50	EEE
2	254	HDS	SEPT-1-2018	32.50	GGG
3	456	NJH	OCT-10-2018	36.12	DDD
4	569	SDF	AUG-21-2018	25.00	UUU
5	112	JRT	JULY-6-2018	15.00	WWW
6	684	BSS	DEC-13-2018	81.45	OOO

<tbody>
</tbody>

RESULT ON MY TEXTBOXES (auto Populate based on the value on my Textbox1)

Textbox1 = SDF (Textbox1 is where i will input the criteria)

Result below:

Textbox2 = AUG-21-2018
Textbox3 = 569
Textbox4 = 25.00
Textbox5 = UUU


Thanks in advance for any help...

 

[AlphaFrog]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] TextBox1_Change()
    [color=darkblue]Dim[/color] v [color=darkblue]As[/color] [color=darkblue]Variant[/color]
    
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
    
    [color=darkblue]With[/color] Sheets("Sheet2")
        [color=darkblue]If[/color] TextBox1.Text <> "" [color=darkblue]Then[/color]
            v = Application.Match(TextBox1.Text, .Range("B:B"), 0)
            [color=darkblue]If[/color] IsNumeric(v) [color=darkblue]Then[/color]
                TextBox2.Text = .Range("C" & v).Value
                TextBox3.Text = .Range("A" & v).Value
                TextBox4.Text = .Range("D" & v).Value
                TextBox5.Text = .Range("E" & v).Value
            [color=darkblue]End[/color] [color=darkblue]If[/color]
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]