Elemento seleccionado en listbox no funciona en la celda
Tengo un listbox que me trae varios resultado, al seleccionar una opción, en la hoja de excel no selecciona al que he seleccionado. Tengo el siguiente código
Private Sub ListBox1_Click()
Sheets("Inventario").Range("A2").Activate
Cuenta = Me.ListBox1.ListCount
Set Rango = Sheets("Inventario").Range("A1").CurrentRegion
For I = 1 To Cuenta - 1
If Me.ListBox1.Selected(I) Then
Valor = Me.ListBox1.List(I)
Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate
End If
Next I
End Sub
1 Respuesta
Prueba lo siguiente:
Private Sub ListBox1_Click()
Dim sh As Worksheet
Dim f As Range
'
Set sh = Sheets("Inventario")
Set f = sh.Range("A:A").Find(ListBox1, , xlValues, xlWhole, , , False)
If Not f Is Nothing Then
f.Select
End If
End SubNotas:
Lo anterior es verdadero si los valores en la columna A son únicos.
Si en el listbox solamente puedes seleccionar un item a la vez.
Pregunta: ¿Para qué necesitas seleccionar el registro en la hoja? ¿Cuál es el objetivo final?
¡Gracias!
Primero debo decirte que en la columna A si hay valores repetidos, por ello es que hago la búsqueda con el filtro, la idea es al seleccionar cargue en otro userform
Si hay valores duplicados, entonces en el filtro debes agregar en una columna adicional del listbox el número de fila.
Entonces cuando selecciones un item del listbox, obtienes el número de fila. Y con eso ya saber cuál es la fila en la hoja.
