Mostrar Tabla en un ListBox
Tengo un inconveniente con un ListBox el cual quiero que le aparezcan los datos de una tabla creada en un hoja de calculo, lo que quiero hacer es que aparezcan todos los datos de está tabala en el ListBox, el caso es que mi ListBox no está creado junto con un UserFrom sino dentro de una hoja de calculo (no sé si esto se puede hacer, estoy probando).
ListBox creado en una hoja de calculo:
El caso es ese.
1 Respuesta
Prueba esta macro, pon esto en el evento lostfocus del listbox ActiveX
Cambias el nombre de la hoja donde tienes el origen de datos
La macro detectará las filas y columnas
Private Sub ListBox1_LostFocus()
'
'Fuente Dante
'*Act. Adriel Ortiz
'
ListBox1.ListFillRange = ""
Set h = Sheets("Hoja1")
uf = h.UsedRange.Rows(h.UsedRange.Rows.Count).Row
uc = h.UsedRange.Columns(h.UsedRange.Columns.Count).Column
'
celda = Cells(uf, uc).Address(False, False)
ListBox1.ColumnCount = uc
ListBox1.ListFillRange = h.Name & "!A1:" & celda
End Sub
Hola, la hojda donde están los datos se llama BASE CÓDIGOS y viene de la A1:B91, coloque los datos con respecto a mi tabla y no me genera nada :(
Haz clic sobre la listbox luego en la hoja
También lo puedes hacer manualmente
Siga este procedimiento.
