Botón para generar o duplicar hojas.
Hola, necesito crear un botón el cual al presionarlo me duplique determinada hoja.
< Tengo un formato de una tabla de kardex en limpio, y frecuentemente tengo que agregar nuevos productos, quiero que solo por medio de este boton se duplique>
¿Cómo puedo hacer para meter en un combobox todas las hojas que tenga en mi libro?
< Tengo 100 hojas, cada una con un producto distinto, lo que quiero es que en la hoja 1 (es la principal) por medio de un combobox, pueda buscar facilmente los productos>
Ejemplo
Lapices > al presional la flechita del combobox, me deben aparecer todas
Borrador las otras hoja, borrador, reglar, colores, etc.
raglas
Colores
Y por ultimo un botón en donde pueda guardar sin ir a archivo, solo presionando en botón.
Muchísimas gracias.
< Tengo un formato de una tabla de kardex en limpio, y frecuentemente tengo que agregar nuevos productos, quiero que solo por medio de este boton se duplique>
¿Cómo puedo hacer para meter en un combobox todas las hojas que tenga en mi libro?
< Tengo 100 hojas, cada una con un producto distinto, lo que quiero es que en la hoja 1 (es la principal) por medio de un combobox, pueda buscar facilmente los productos>
Ejemplo
Lapices > al presional la flechita del combobox, me deben aparecer todas
Borrador las otras hoja, borrador, reglar, colores, etc.
raglas
Colores
Y por ultimo un botón en donde pueda guardar sin ir a archivo, solo presionando en botón.
Muchísimas gracias.
Respuesta de Eduard Caballero
1
Puedes probar los siguiente:
Crea un userform con un combobox y un botón de comando.
En el código del combobox coloca esto
Private Sub ComboBox1_Enter()
'En caso de error, que continúe
On Error Resume Next
'Esto se producirá cuando nos
'situemos sobre el combobox1
'antes quitaremos todo lo que haya en el combobox1
ComboBox1.Clear
'Vamos a llenar dinámicamente el combobox
'con los nombres de las hojas
For i = 1 To Sheets.Count
'Añadimos los nombres de las hojas al combobox
ComboBox1.AddItem Sheets(i).Name
Next
End Sub
y en el boton de comando coloca esto
Private Sub CommandButton1_Click()
'En caso de error, que continúe
On Error Resume Next
'leemos lo que nos devuelven los combobox
hoja_elegida = ComboBox1.List(ComboBox1.ListIndex)
'vamos a la hoja elegida
Sheets(hoja_elegida).Select
'Eliminamos el userform de la memoria
UserForm1.Hide
End Sub
Crea un userform con un combobox y un botón de comando.
En el código del combobox coloca esto
Private Sub ComboBox1_Enter()
'En caso de error, que continúe
On Error Resume Next
'Esto se producirá cuando nos
'situemos sobre el combobox1
'antes quitaremos todo lo que haya en el combobox1
ComboBox1.Clear
'Vamos a llenar dinámicamente el combobox
'con los nombres de las hojas
For i = 1 To Sheets.Count
'Añadimos los nombres de las hojas al combobox
ComboBox1.AddItem Sheets(i).Name
Next
End Sub
y en el boton de comando coloca esto
Private Sub CommandButton1_Click()
'En caso de error, que continúe
On Error Resume Next
'leemos lo que nos devuelven los combobox
hoja_elegida = ComboBox1.List(ComboBox1.ListIndex)
'vamos a la hoja elegida
Sheets(hoja_elegida).Select
'Eliminamos el userform de la memoria
UserForm1.Hide
End Sub
