No me carga los datos en combobox

Hola Doors

Saludos,

Amigos, tengo un problema, tengo un combobox , en una hoja que se llama
adquisicion , el combo lo cargo de la siguiente forma desde la hoja de
adquisicion
Private Sub UserForm_Initialize()
ComboBox1.AddItem "05 -Equipo de Oficina"
ComboBox1.AddItem "10 -Mobiliario General"
ComboBox1.AddItem "15 -Equipo de Medición (NO INCLUYE MEDIDORES)"
ComboBox1.AddItem "20 -Equipo General"
ComboBox1.AddItem "25 -Vehículos "
ComboBox1.AddItem "30 -Equipo de Cómputo "
ComboBox1.AddItem "40 -Equipo de Comunicación"
ComboBox1.AddItem "45 -Vehículos de Alumbrado Público "
ComboBox1.AddItem "50 -Equipo General Especial"
ComboBox1.AddItem "55 -Maquinaria Estacionaria "
End Sub

Pero me da problemas , cuando abro el archivo no me carga ningún dato :(,
alguien me puede ayudar??

GRACIAS!

Esa forma la puedes emplear cuando el control esta en un formulario. Si no
hay formulario que se inicialice no se llena el combobox

Prueba a colocarlo en el evento del libro workbook_open, activando la hoja
adquisicion y luego cargando el combo.

Espero te sirva

Un saludo
Juan

Hola DOORS!

segun comentas el combo lo tienes insertado en una hoja y no en un
formulario, por esa razon no te funciona el codigo que comentas por que
estas haciendo referencia a un evento de un formulario y como no existe
el formulario no te carga nada.
prueba lo siguiente a lo mejor te sirva.

Private Sub Workbook_Open()
With Sheets("Adquisicion").ComboBox1
.AddItem "05 -Equipo de Oficina"
.AddItem "10 -Mobiliario General"
.AddItem "15 -Equipo de Medición (NO INCLUYE MEDIDORES)"
.AddItem "20 -Equipo General"
.AddItem "25 -Vehículos "
.AddItem "30 -Equipo de Cómputo "
.AddItem "40 -Equipo de Comunicación"
.AddItem "45 -Vehículos de Alumbrado Público "
.AddItem "50 -Equipo General Especial"
.AddItem "55 -Maquinaria Estacionaria "
End With
End Sub

saludos!!

EXCELENTE !!!! MUCHAS GRACIAS A AMBOS!!!

"phedro" wrote:

Hola DOORS!

segun comentas el combo lo tienes insertado en una hoja y no en un
formulario, por esa razon no te funciona el codigo que comentas por que
estas haciendo referencia a un evento de un formulario y como no existe
el formulario no te carga nada.
prueba lo siguiente a lo mejor te sirva.

Private Sub Workbook_Open()
With Sheets("Adquisicion").ComboBox1
.AddItem "05 -Equipo de Oficina"
.AddItem "10 -Mobiliario General"
.AddItem "15 -Equipo de Medición (NO INCLUYE MEDIDORES)"
.AddItem "20 -Equipo General"
.AddItem "25 -Vehículos "
.AddItem "30 -Equipo de Cómputo "
.AddItem "40 -Equipo de Comunicación"
.AddItem "45 -Vehículos de Alumbrado Público "
.AddItem "50 -Equipo General Especial"
.AddItem "55 -Maquinaria Estacionaria "
End With
End Sub

saludos!!