Macro para cargar lista de hojas en combobox y abrir hoja elegida
Para: Dante
Como puedo cargar en un combobox de mi formulario los nombres de mis hojas y seleccionar que hoja es en la que se va a guardar los nuevos datos, ya que en este formulario que tengo tienen textbox para ingresar datos.
1 respuesta
Respuesta de Dante Amor
2
Te anexo el código para tu formulario, en el código puse unos comentarios para que lo puedas adaptar tu formulario.
Private Sub CommandButton1_Click()
'Por.Dante Amor
If ComboBox1 = "" Then
MsgBox "Selecciona la hoja"
Exit Sub
End If
'pasa los datos de los textbox a la hoja seleccionada en el combo
Set h = Sheets(ComboBox1.Value)
h.Range("A5") = TextBox1
h.Range("B6") = TextBox2
End Sub
Private Sub UserForm_Activate()
'Por.Dante Amor
'Cargar los nombres de las hojas en el combo
For Each h In Sheets
ComboBox1.AddItem h.Name
Next
End Sub
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Por.Dante Amor
'valida que solamente puedan escoger un nombre de hoja válido (que está en el combo)
KeyAscii = 0
End SubSaludos.Dante Amor
Si es lo que necesitas.
