VBA Dropdown auto fill Textbox

[Xlacs]

Hi,

I'm kinda new to VBA and having a little problem with this code.
On some point it's not generating my data in the text box, based on my drop down list.

But if I change my range to ("A"), It's working. Any help would be appreciate. Thank youu

Below is my code.

Dim i As Long, LastRow As Long, ws As Worksheet
Set ws = Sheets("Sheet2")
LastRow = ws.Range("B" & Rows.Count).End(xlUp).Row

For i = 2 To LastRow

If Val(Me.ComboBox1.Value) = ws.Cells(i, "B") Then

Me.TextBox2 = ws.Cells(i, "A").Value
Me.TextBox3 = ws.Cells(i, "B").Value
Me.TextBox4 = ws.Cells(i, "C").Value
Me.TextBox5 = ws.Cells(i, "D").Value

End If

Next i



End Sub


Private Sub UserForm_Initialize()
Dim i As Long, LastRow As Long, ws As Worksheet
Set ws = Sheets("Sheet2")

LastRow = ws.Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
Me.ComboBox1.AddItem ws.Cells(i, "B").Value

Next i

End Sub

 

[Xlacs]

I've figured it out. Thank you. Please ignore

 

[Peter_SSs]

Glad to hear you got a solution.

If you would like to post the solution then it is perfectly fine to mark your post as the solution to help future readers. Otherwise, please do not mark a post that doesn't contain a solution.