¿Cómo activar un fila de Excel desde un ListBox?

Tengo una "BaseDeDatos" con 23 columnas ("A:W"), de la misma que jalo datos a un ListBox1 de las primeras 9 columnas ("A:I").

Ingresando criterio de búsqueda en un TextBox1 y mediante el evento Click de un "CommandButton1" filtro los datos que deseo obtener sin ningún problema:

Para ejecutar el filtro utilizo este código

Private Sub CommandButton_Click()
ListBox1ColumnCount = 9
ListBox1.ColumnWidths = "65pt;25pt;150pt;90pt;90pt;40pt;50pt;70pt;70pt"

ListBox1.Clear
If Sheets("BaseDeDatos").Range("A:I").Find(TextBox1.Value) Is Nothing Then
TextBox1.Text = ""
MsgBox "No se encontraron los datos buscados!!!", 16, "Datos No Encontrados"
Else
With Sheets("BaseDeDatos").Range("A:I")
Set c = .Find(TextBox1.Value)
primera = c.Address
fila = c.Row
columna = c.Column
Do
ListBox1.AddItem Cells(fila, columna - (columna - 1))
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(fila, (columna - (columna - 1)) + 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(fila, (columna - (columna - 1)) + 2)
ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(fila, (columna - (columna - 1)) + 3)
ListBox1.List(ListBox1.ListCount - 1, 4) = Cells(fila, (columna - (columna - 1)) + 4)
ListBox1.List(ListBox1.ListCount - 1, 5) = Cells(fila, (columna - (columna - 1)) + 5)
ListBox1.List(ListBox1.ListCount - 1, 6) = Cells(fila, (columna - (columna - 1)) + 6)
ListBox1.List(ListBox1.ListCount - 1, 7) = Cells(fila, (columna - (columna - 1)) + 7)
ListBox1.List(ListBox1.ListCount - 1, 8) = Cells(fila, (columna - (columna - 1)) + 8)
Set c = .FindNext(c)
fila = c.Row
columna = c.Column
Loop While c.Address <> primera
End With
End If
End Sub:

Nota:Esta rutina me funciona de maravilla ya que puedo utilizar cualquier palabra que se encuentre en algunas de las columnas como criterio de búsqueda.

Lo que no puedo hacer es: Que al seleccionar una fila en el ListBox1 se active la fila (o al menos la primera celda de la fila), de la "BaseDeDatos" que jala los datos.

¿Cómo lo hago?

He intentado de varias formas y no consigo hacerlo

1 Respuesta

Respuesta
7

Hice unos cambios a tu macro, prueba y me comentas

El contador de columnas lo puse a 10, también le agregué un punto después de ListBox1.

ListBox1.ColumnCount = 10

Agregué esta línea:

ListBox1.List(ListBox1.ListCount - 1, 9) = fila

Y con estas líneas, te selecciona la primera celda del registro seleccionada en el listbox.

Private Sub ListBox1_Click()
Range("A" & ListBox1.Column(9, ListBox1.ListIndex)).Select
End Sub

Private Sub CommandButton_Click()
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = "65pt;25pt;150pt;90pt;90pt;40pt;50pt;70pt;70pt"
ListBox1.Clear
If Sheets("BaseDeDatos").Range("A:I").Find(TextBox1.Value) Is Nothing Then
TextBox1.Text = ""
MsgBox "No se encontraron los datos buscados!!!", 16, "Datos No Encontrados"
Else
With Sheets("BaseDeDatos").Range("A:I")
Set c = .Find(TextBox1.Value)
primera = c.Address
fila = c.Row
columna = c.Column
Do
ListBox1.AddItem Cells(fila, columna - (columna - 1))
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(fila, (columna - (columna - 1)) + 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(fila, (columna - (columna - 1)) + 2)
ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(fila, (columna - (columna - 1)) + 3)
ListBox1.List(ListBox1.ListCount - 1, 4) = Cells(fila, (columna - (columna - 1)) + 4)
ListBox1.List(ListBox1.ListCount - 1, 5) = Cells(fila, (columna - (columna - 1)) + 5)
ListBox1.List(ListBox1.ListCount - 1, 6) = Cells(fila, (columna - (columna - 1)) + 6)
ListBox1.List(ListBox1.ListCount - 1, 7) = Cells(fila, (columna - (columna - 1)) + 7)
ListBox1.List(ListBox1.ListCount - 1, 8) = Cells(fila, (columna - (columna - 1)) + 8)
ListBox1.List(ListBox1.ListCount - 1, 9) = fila
Set c = .FindNext(c)
fila = c.Row
columna = c.Column
Loop While c.Address <> primera
End With
End If
End Sub
Private Sub ListBox1_Click()
Range("A" & ListBox1.Column(9, ListBox1.ListIndex)).Select
End Sub

Saludos.Dam
Si es lo que necesitas.

Muchísimo.. muy agradecido

Una respuesta de campeonato, con una sola linea solucionado el tema. En otras palabras simple concreta y efectiva la respuesta.

El conocimiento lo tienen ustedes, pero su sabiduría radica en compartirlo.

Gracias

Saludos

neutorico712

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Textbox buscador en hoja con columnas discontinuas

Expertos tengo otro problema. Ahora lo que necesito es buscar datos de una hoja escribiendo en un textbox y que me las muestre en un listbox pero que me muestre datos de columnas discontinuas. Tengo una macro pero solo me deja ver las primera 10...
1 respuesta

Al extraer datos al ListBox, poner el encabezado de cada columna.

Tengo ahora este código para extraer datos al ListBox1 en tres columnas, pero necesito que también me pase el encabezado que tiene cada columna, o sea la 1° columna es “FECHA”; la 2° es “No. De Fact” y la 3° es” Importe” y al final “Total”… la...
1 respuesta

Como llenar dinámicamente un ListBox

Tengo dos hojas de excel llamadas Inventario y Diario, la hoja activa es la de diario y tengo un formulario desde donde voy cargando los artículos, este formulario consta de: TexBox1 - Código Articulo ComboBox1 - Nombre de Articulo TextBox2 - Me...
1 respuesta

Mostrar suma de los valores filtrados en textbox por aparte

Son muchas preguntas que tengo por hacer. Quiero sumar los valores filtrados de por ejemplo ("D" es pago)("E" es mora)("F" es valor total) con macro que me dio anteriormente le agrege lo encerrado con asterisco y no me sale, lo que quiero es el pago...
1 respuesta

Llenar listbox desde datos guardados en hoja excel

Tengo un formulario con un listbox con varios valores que se cargan desde un rango. Este es el procedimeinto para guardar: En resumen esto es lo referente al listbox: 'Con esto concateno los elementos separados por una coma If ListBox1.Selected(x) =...
1 respuesta

Comportamiento irregular de una macro dentro de un formulario

Mi consulta trata de encontrar una macro que actualice los nombres de los clientes en la hoja Pedidos, cuando se modifican en la hoja Clientes. En la pregunta realizada anteriormente “Actualizar datos de una hoja a otra”, la rutina propuesta funciona...
2 respuestas

Pasar filas de datos de un listbox a fijas de una de hoja de excel

Pasar filas de datos de un listbox a fijas de una de hoja de excel
1 respuesta

Selección con doble clip en un listbox

Tengo un problema con un formulario de búsqueda de vba no puedo hacer selección con 2 clip y pasar ese ítem seleccionado a otra hoja en excel, se me queda en la celda C12 y no me copia en la siguiente fila C13 el otro dato seleccionado Private Sub...
1 respuesta

Como paras de ListBox a ListBox

Me gustaría que al seleccionar una fila de 10 columnas en el listbox1 (en el evento ListBox1_Click) esta se añada en el listbox2. Esta operación se puede repetir varias veces. Digamos que es hacer una "lista de la compra" donde vas añadiendo...
1 respuesta

A veces no funciona bien la búsqueda en listbox

A quien me pueda ayudar nuevamente, gracias Tengo un listbox que se carga con datos desde una hoja excel, La rutina se inicia dándole doble click en un rango de la hoja excel, lo que genera que se cargue el listbox con los datos, Lo que necesito es...
1 respuesta