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
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas