Modificar una macro para que guarde una hoja en vez de un libro
Hace unos días, Dante Amor me hizo esta macro para guardar un libro y funciona correctamente, la pregunta es como modificarla para que en vez del libro entero solo guarde una hoja llamada "Parte". Gracias.
Sub GuardarArchivo()
'Por.Dante Amor
ruta = "C:\Users\Jesus Garcia\Excel\"
mes = Format(Date, "MMMM YYYY")
arch = ThisWorkbook.Name
p = InStrRev(arch, ".")
arch = Left(arch, p - 1)
arch = arch & " " & Format(Date, "dd.mm.yyyy")
If Dir(ruta & mes, vbDirectory) = "" Then
MkDir ruta & mes
End If
ActiveWorkbook.SaveCopyAs ruta & mes & "\" & arch & ".xlsm"
MsgBox "Copia creada"
End Sub
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro actualizada
Sub GuardarArchivo()
'Por.Dante Amor
ruta = "C:\Users\Jesus Garcia\Excel\"
'ruta = "C:\trabajo\"
mes = Format(Date, "MMMM YYYY")
arch = ThisWorkbook.Name
p = InStrRev(arch, ".")
arch = Left(arch, p - 1)
arch = arch & " " & Format(Date, "dd.mm.yyyy")
If Dir(ruta & mes, vbDirectory) = "" Then
MkDir ruta & mes
End If
Sheets("Parte").Copy
ActiveWorkbook.SaveAs ruta & mes & "\" & arch & ".xlsx", FileFormat:=xlOpenXMLWorkbook
MsgBox "Copia creada"
End Subs a l u d o s
