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)
[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[TD]E[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]133[/TD]
[TD]ABC[/TD]
[TD]OCT-8-2018[/TD]
[TD]12.50[/TD]
[TD]EEE[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]254[/TD]
[TD]HDS[/TD]
[TD]SEPT-1-2018[/TD]
[TD]32.50[/TD]
[TD]GGG[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]456[/TD]
[TD]NJH[/TD]
[TD]OCT-10-2018[/TD]
[TD]36.12[/TD]
[TD]DDD[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]569[/TD]
[TD]SDF[/TD]
[TD]AUG-21-2018[/TD]
[TD]25.00[/TD]
[TD]UUU[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]112[/TD]
[TD]JRT[/TD]
[TD]JULY-6-2018[/TD]
[TD]15.00[/TD]
[TD]WWW[/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]684[/TD]
[TD]BSS[/TD]
[TD]DEC-13-2018[/TD]
[TD]81.45[/TD]
[TD]OOO[/TD]
[/TR]
</tbody>[/TABLE]

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]