Agregar datos en un ListBox VBA
Tengo una hoja con una Base de Datos y en VBA he creado un formulario con un ListBox, dentro me gustaría que apareciera los datos que contiene la hoja de Base de Datos. ¿Cómo lo hago? Ando muy pez en esto.
1 Respuesta
Como estas, en este código que te paso al iniciar el formulario se cargan dos combo box y un list box
'carga los datos en los combobox
'Evita movimientos de la pantalla
Application.ScreenUpdating = False
'Se activa la hoja que contiene los datos
Sheets("proveedores"). Activate
'Hace visible la hoja, el caso que estuviere invisible
Sheets("proveedores").Visible = True
'Selecciona el rando donde empezar a buscar
Range("b2").Select
'Si no es vacia la celda carga el combo proveedor y proveedorB, como así también
'el listobox1 y combo proveedore D
Do While ActiveCell <> Empty
ComboProveedor. AddItem ActiveCell
ComboProveedorB. AddItem ActiveCell
ListBox1. AddItem ActiveCell
ComboProveedorD. AddItem ActiveCell
'Pasa a la fila siguiente
ActiveCell.Offset(1, 0).Select
Loop
'Oculto la hoja de nuevo
Sheets("proveedores").Visible = True
Espero te sirva, comenta luego de probar el código y adaptarlo a tu proyecto.
