Macro para guardar tres hojas de un libro de excel
Hola a todos, necesito ayuda por favor tengo un libro de excel con varias hojas y necesito una macro que me guarde 3 hojas concretas de ese libro (PRESUPUESTOe,LIQUIDACIONe y DIFERENCIA) en otro libro con el nombre de la casilla B3 de la hoja PRESUPUESTOe y en esta ruta C:\1Cinesferic sl\01Facturacion\Presupuestos Excel.
Espero que me podáis ayudar. Un saludo
1 respuesta
Espero estés de maravilla!
Te paso el código que realiza lo que estas necesitando:
Sub Macro2()
Sheets(Array("PRESUPUESTOe", "LIQUIDACIONe", "DIFERENCIA")).Select
Sheets(Array("PRESUPUESTOe", "LIQUIDACIONe", "DIFERENCIA")).Copy
ActiveWorkbook.SaveAs Filename:="C:\C1Cinesferic sl\01Facturacion\Presupuestos Excel\" & Sheets("PRESUPUESTOe").Range("B3") & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
'ACTA TENES QUE PONER EL NOMBRE DE TU LIBRO
Windows("Libro1").Activate
End Sub
Bendiciones!
Lucas.
Hola Lucas, gracias por tu respuesta.
He introducido el código que me pasas y al ejecutarlo me da "error 9" Subíndice fuera del intervalo. Cuando doy a Depurar me salta en amarillo
Sheets(Array("PRESUPUESTOe", "LIQUIDACIONe", "DIFERENCIA")).Select
Lo único que he cambiado de tu codigo es el directorio de destino, ya que te lo indique con un error.
C:\1CINESFERIC SL\01Facturacion\PRESUPUESTOS EXCEL.
Por cierto, si cambiamos la extensión XLSX por xlsm ¿se guardaría como excel habilitado para macros?
Un saludo y te deseo un buen día
Jose Miguel
Espero estés de maravilla.
Por favor enviame el archivo a [email protected] e indicame en el asunto tu consulta de TodoExpertos.
Bendiciones!
Lucas.
