Hola estoy aprendiendo ha elaborar macros en excel pero tengo un problema de como guardar 5 hojas.

¿Quieres guardar las 5 hojas por separado o te refieres a todo el libro?

¿O quieres guardar 1 nuevo libro con solo esas 5 hojas en concreto?

exacto mi libro contiene 10 hojas, pero solo quiero que se guarden 5 hojas en un solo archivo con el nombre de la fecha actual, gracias por tu atención.

dim archivo as string
archivo = "C:\miruta\miarchivo.xls"
application.screenupdating = false
Sheets(Array("S.A.T.", "CINTAS", "VENTAS", "FRAS.")).Copy
 ActiveWorkbook.SaveAs archivo, FileFormat:=52
 ActiveWorkbook.Close
application.screenupdating = true

Hola, archivo debe contener la ruta completa donde quieres que se guarde, asi como el nombre del archivo, la extensión dependerá de si los guardar como archivo con macros y también de tu version de excel. El atributo Fileformat también deberá ser distinto dependiendo de tu version.

No lo he probado, ya me comentaras si te funciona, pues el código estaba preparado para guardar una solo hoja y le he añadido el array, (Sat, cintas, ventas... son los nombres de las hojas).

La instrucción sheets. Copy copia las hojas en un nuevo libro si no especificamos el atributo after o before.

perfecto pero tengo una duda mas, el tema es que quiero que el nombre del archivo se ponga automáticamente con la fecha del dia actual.

gracias

dim ruta as string

ruta = "C:\Mis documentos\Mi ruta\" & day(now) & "-" & month(now) & "-" year(now) & ".xls"

Algo asi, puede varias la extensión xls a xlsm por ejemplo y también puedes usar monthname(now) por ejemplo si quieres q use el mes en letra, o incluso usar la función format para darle el formato personalizado, recuerda q un nombre de archivo no puede tener símbolos / ni otros símbolos especiales

Saludos

Si mi ayuda te ha resultado útil, por favor, baraja la posibilidad de hacer un donativo, aunque solo sea de 1 euro, para que pueda seguir ayudando indefinidamente.
Para donar haz Click Aquí.