Para Dam Carga de combobox
Una pregunta Dam estoy cargando combobox con datos, los datos están en la hoja que se llama equipos y en el menú principal tengo varios botones uno de ellos abre un formulario donde esta el combobox al cargar los valores al combobox se me abre la hoja de equipos y hai se queda y lo que quiero es que se quede en la hoja que se llama menú principal el código que use es este
Private Sub UserForm_Initialize()
TextBox1.Text = Format(Now, "Long Date")
TextBox1.Enabled = False
OptionButton1.Value = True
este es otro combobox que carga estos nombres
ComboBox5.AddItem "pedro"
ComboBox5.AddItem "juan"
ComboBox5.AddItem "sergio"
este es el que te digo cargamos el combobox
Worksheets("EQUIPOS").Activate
Range("a1").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
ComboBox1.AddItem ActiveCell
Loop
End Sub
1 Respuesta
Así quedaría
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
TextBox1.Text = Format(Now, "Long Date")
TextBox1.Enabled = False
OptionButton1.Value = True
'este es otro combobox que carga estos nombres
ComboBox5.AddItem "pedro"
ComboBox5.AddItem "juan"
ComboBox5.AddItem "sergio"
'este es el que te digo cargamos el combobox
Worksheets("EQUIPOS").Activate
Range("a1").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
ComboBox1.AddItem ActiveCell
Loop
Sheets("menu").Select
Application.ScreenUpdating = True
End Sub
