¿Cómo actualizo un combobox?

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

¿Cí³mo actualizo un combobox?

Notapor acero » 15 May 2006 09:59

Estoy haciendo un formulario en donde inserto un nuevo color le doy a aceptar, pero en el formulario principal no se me actualiza automaticamente ese nuevo color. ¿Sabeis cómo solucionar el problema? Muchas gracias por vuestra ayuda.
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
acero
Miembro Frecuente
Miembro Frecuente
 
Registrado: 27 Sep 2005 09:27

Re: ¿Cí³mo actualizo un combobox?

Notapor hansabel » 15 May 2006 10:16

En el userform2, en commandbutton1_click, antes de donde pones textbo1=empty y combobox4=empty, pone
userform1.combobox3.additem textbox1
Tambien podrias poner lo siguiente antes del unload userform2:
UserForm1.ComboBox3.Clear
Con = 2
Worksheets("Datos").Select
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
UserForm1.ComboBox3.AddItem Range("a" & Con)
Con = Con + 1
Loop

espero te sirva, saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
hansabel
Miembro Frecuente
Miembro Frecuente
 
Registrado: 01 Jul 2005 21:10
Ubicación: Santa Cruz-Bolivia

Re: ¿Cí³mo actualizo un combobox?

Notapor Adrian » 15 May 2006 10:38

Hola!
Prueba con poner en el activate:

Private Sub userform_Activate()
Sheets("Datos").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Me.ComboBox3.ColumnCount = 5
Me.ComboBox3.RowSource = Selection.Address
Sheets("FORMULARIO").Select
End Sub

Prueba con agregar el evento de inicio:

Private Sub UserForm_Initialize()
Sheets("Datos").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
' Range(Selection, Selection.End(xlToRight)).Select
Me.ComboBox3.ColumnCount = 5
Me.ComboBox3.RowSource = Selection.Address
Sheets("FORMULARIO").Select
End Sub

Aunque creo que con el activate es suficiente.

Salu2.xls
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: Bing [Bot], edoko83 y 7 invitados