Macro para Excel que guarde documento en nombres sucesivos
Tengo la hoja 2 de un Excel, esta hoja es un formulario que quiero que se guarde en c: pero con el nombre de una celda en particular. El. B11 = Juarez. Necesitará que se guarde como Juarez y la fecha de hoy. ¿Eso es posible?
1 Respuesta
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro:
Sub GuardarHoja()
'Por.Dante Amor
Application.DisplayAlerts = False
Sheets("Hoja2").Copy
ruta = ThisWorkbook.Path & "\"
arch = Sheets("Hoja2").[B11] & " " & Format(Date, "dd-mm-yyyy") & ".xlsx"
ActiveWorkbook.SaveAs Filename:=arch, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
MsgBox "Hoja2 guardada, con el nombre de: " & arch
End Sub
