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...

Añade tu respuesta

Haz clic para o