Pasar un dato filtrado de combobox a varios textbox
Buen día:
Tengo el siguiente formulario:
y la siguiente tabla
En el combobox1 se carga la columna "TIPO" de la tabla y en el combobox2 es dependiente de la selección del combobox1 y me filtra los datos de la columna "DESCRIPCIÓN" de la tabla, hasta allí todo va bien. Yo quiero que cuando haga selección en el combobox2, me muestre en los textbox3 (la label dice Desc) la descripción y en el textbox4 (la label dice precio) el precio de la columna "Menor precio" .
Con el código actual si me los pone, pero el problema es que son los datos de otra fila y no la de la selección del combobox2.
Este es el código del formulario
Private Sub Userform_Initialize()
Worksheets( Artículos ).Activate
ActiveSheet.Unprotect
Range( C5 ).Select
Do While Not IsEmpty(ActiveCell)
If InStr(cadena, ActiveCell) = 0 Then
cadena = cadena & ! & ActiveCell
End If
ActiveCell.Offset(1, 0).Select
Loop
cadena = Right(cadena, Len(cadena) - 1)
valor = Split(cadena, ! )
For i = 0 To UBound(valor)
ComboBox1.AddItem valor(i)
Next
ActiveSheet.Protect
End Sub
Private Sub ComboBox1_Change()
ComboBox2.Clear
Range( C5 ).Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value = ComboBox1.Value Then
fila = ActiveCell.Row
ComboBox2.AddItem Range( D & fila).Value
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Private Sub ComboBox2_Change()
Cells(ComboBox2.ListIndex + 5, 2).Select
TextBox3 = ActiveCell.Offset(0, 1) & & ActiveCell.Offset.Value & & ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 9)
End Sub
Si alguien me puede ayudar se lo agradecería mucho. Apenas estoy aprendiendo vba y espero que se entienda lo que necesito. Gracias...