Crear Hoja en Excel con mismo formato
No tengo mucho conocimiento de Excel, espero me puedan ayudar.
Tengo en una hoja de Excel una tabla con fórmulas lo que estoy buscando es que cada vez que yo agregue una nueva hoja en Excel automáticamente se abra esa misma tabla con todas sus fórmulas.
Visita:
Cursos de Excel y Macros - YouTube
---
Pon la siguiente macro en un módulo y la asignas a un botón.
Sub CrearHoja()
Sheets("Formato").Copy after:=Sheets(Sheets.Count)
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: CrearHoja
- Aceptar.
- Para ejecutarla dale click a la imagen.
---
Otras recomendaciones de mi canal.
Cursos avanzados en Macros:
Excel vba dictionary parte 1 - YouTube
Excel vba dictionary parte 2 - YouTube
Excel vba dictionary parte 3 - YouTube
Cursos avanzados en Excel:
Curso de excel. Formato condicional dinamico - YouTube
Curso de excel. Funcion buscarv. - YouTube
---
Sal u dos Dante Amor
1 respuesta más de otro experto
Excel permite controlar la creación de nuevas hojas desde el evento: NewSheet.
Para ello, entra al Editor de macros, selecciona con doble clic el objeto ThisWorkBook (libro) y allí pega alguno de los 2 códigos que dejo a continuación.
Por ejemplo, si necesitas copiar toda una cierta hoja en cada hoja nueva, sería así:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
'x Elsamatilde
'se copia la hoja Reporte
Sheets("Reporte").Cells.Copy Destination:=ActiveSheet.[A1]
End SubEn cambio, si solo necesitas copiar una tabla de cierta hoja, sería de este modo:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
'x Elsamatilde
'se copia una tabla (ajustar nombre) pegando en la nueva hoja (ajustar ubicación)
Range("Tabla1[#All]").Copy Destination:=ActiveSheet.[B2]
End Sub* Te invito a mirar los videos N° 45 al 48 de mi canal, donde se tratan otros Eventos de Hojas y Libro.