VBA Textbox populate base on combobox selection

[Abusalma02]

Please sir i wrote a code on my user form to populate a text box based on combo box selection but the text box isn't show anything. this is the code
on user form initialize:

dim i as long, lastrow as long, ws as worksheet
set ws = Sheets ("Sheet1")
Lastrow = ws.Range("A" & Rows.count).End(xlup).Row
for i = 6 to Lastrow
me.combobox1.AddItem ws.cells(i, "C").value

this first code is working perfectly.
for combo box_Change ()

dim i as long, lastrow as long, ws as worksheet
set ws = Sheets ("Sheet1")
Lastrow = ws.Range("A" & Rows.count).End(xlup).Row
for i = 6 to Lastrow
if  val(me.combobox1.value) = ws.cells(i, "A") then
me.textbox2 = ws.cells(i, "L").value
end if
next i

please help out if there is a way or anything else to do. Thank you sir.

 

[Fluff]

Hi & welcome to MrExcel.
Change you Initialize event code to

   With Sheets("Sheet1")
      Me.ComboBox1.List = .Range("C6:C" & .Range("A" & Rows.Count).End(xlUp).Row).Value
   End With

for populating the combo, & then use this

Private Sub ComboBox1_Click()
   Me.TextBox1.Value = Sheets("Sheet1").Range("L" & Me.ComboBox1.ListIndex + 6).Value
End Sub

to populate the textbox.

 

[Abusalma02]

Hi & welcome to MrExcel.
Change you Initialize event code to

   With Sheets("Sheet1")
      Me.ComboBox1.List = .Range("C6:C" & .Range("A" & Rows.Count).End(xlUp).Row).Value
   End With

for populating the combo, & then use this

Private Sub ComboBox1_Click()
   Me.TextBox1.Value = Sheets("Sheet1").Range("L" & Me.ComboBox1.ListIndex + 6).Value
End Sub

to populate the textbox.

This is fantastic Mr. Excel Thank you sir.

 

[Fluff]

You're welcome & thanks for the feedback.