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

1 respuesta

Respuesta
1

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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas