Para DAM macro que al ejecutarse borre ciertas hojas del libro y luego grabe esa versión en otro lugar y con otro nombre
Hola DAM
Tengo un archivo llamado CONSULTORIO.xlsm
Y en él tengo varias hojas, unas visibles otras ocultas.
Quiero hacer una macro que al darle click me guarde el archivo original tal cual como está:
activeworkbook.Sabe (eso si lo sé)
Pero luego, me cree una copia del archivo llamándolo "CONSULTORIO Yeimy.xlsm" en en la siguiente ruta:
"F:\Miguel\Dropbox\"
Pero quiero que esa copia tenga menos HOJAS y por lo tanto quisiera que esa copia BORRE las siguientes hojas del archivo:
"UltimaVisita", "ESTADISTICAS", "CIERRE", "VISITAS", "COPIARDATOS", "CLIENTE", "FORMULARIO"
¿Me ayudas?
1 Respuesta
Te anexo la macro
Sub GuardarHojas2() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = "c:\trabajo\" ThisWorkbook.SaveAs Filename:=ruta & "CONSULTORIO Yeimy.xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False For Each h In Sheets Select Case h.Name Case "UltimaVisita", "ESTADISTICAS", "CIERRE", _ "VISITAS", "COPIARDATOS", "CLIENTE", "FORMULARIO" h.Delete End Select Next ActiveWorkbook.Save End Sub
Saludos.Dante Amor
No olvides valorar la respuesta.
La voy a probar a ver si me pudiste entender bien, pero me preocupa que borre las hojas y luego no las pueda recuperar para el archivo original
Es lo que pediste.
- Guarda el archivo con otro nombre, por cierto cambia "c:\trabajo\" por tu ruta
- Después borra las hojas.
Tu libro original ya lo guardaste previamente. Entonces no tiene porque perderse las hojas.
