Al dar clic a mi lista me escriba los datos que están ahí en mi tabla de excel con macros.

Hice un buscador inteligente en un cuadro de una lista en donde yo pongo un formulario y en un texto pongo lo que deseo buscar en el cuadro, pero ahora quiero que también al darle clic a la lista me redireccione a donde está el buscador y en otro formulario quiero que esa información me llene los recuadros que están en el buscador, ¿me podrían ayudar por favor? El código que hice fue el siguiente.

Private Sub UserForm_Activate()
Me.LISTA.RowSource = "PRODUCTOS"
Me.LISTA.ColumnCount = 6
Me.LISTA.ColumnHeads = True
Me.LISTA.ColumnWidths = "40;350;100;100;140;40"
End Sub

Private Sub TEXTO_Change()

NumeroDatos = Hoja3.Range("A" & Rows.Count).End(xlUp).Row
''MsgBox NumeroDatos
Hoja3.AutoFilterMode = False
Me.LISTA = Clear
Me.LISTA.RowSource = Clear
y = 0

For fila = 6 To NumeroDatos
descrip = Hoja3.Cells(fila, 2).Value

If UCase(descrip) Like "*" & UCase(Me.TEXTO.Value) & "*" Then
Me.LISTA.AddItem
Me.LISTA.List(y, 0) = Hoja3.Cells(fila, 1).Value
Me.LISTA.List(y, 1) = Hoja3.Cells(fila, 2).Value
Me.LISTA.List(y, 2) = Hoja3.Cells(fila, 3).Value
Me.LISTA.List(y, 3) = Hoja3.Cells(fila, 4).Value
Me.LISTA.List(y, 4) = Hoja3.Cells(fila, 5).Value
Me.LISTA.List(y, 5) = Hoja3.Cells(fila, 6).Value
y = y + 1
End If
Next

End Sub

Ahora me podrían ayudar en que más podria poner en la macros para que con solo darle clic a mi lista me pueda copiar los datos que están en la lista y también otro para que yo busque el dato y me redireccione a donde se encuentra en la columna de productos, se le agradece mucho, mi correo es [email protected]

Añade tu respuesta

Haz clic para o