Hola,

Soy nueva en esto y necesito ayuda, tengo este codigo:

Sub lstProducto_Click()
    txtDesProducto.Text = lstProducto.List(lstProducto.ListIndex)
            

End Sub

Sub txtDesProducto_Change()
    Dim i As Variant
    Dim final As Long
    Hoja5.Select
    final = Application.CountA(Worksheets("PRODUCTOS").Range("A:A"))
    Me.lstProducto.Clear
    
    For i = 2 To final
        If LCase(Range("B" & i).Value) Like "*" & LCase(txtDesProducto.Text) & "*" Then
            Me.lstProducto.Visible = True
            Me.lstProducto.AddItem Range("B" & i).Value
        End If
    Next i
End Sub

Necesito conseguir la celda en la que esta la "Descripcion del elemento" para partir de ella y con "offset" completar el rellenado de el formulario.

Perdon por no usar los terminos correctos, pues soy nueva en esto.

Gracias.