¿Cómo se hace una macro que guarde el archivo con el nombre de una celda?
Necesito una macro que se guarde como nombre la fecha del día, cabe destacar que tengo una casilla con la fórmula hoy- 1 para que me arroje el día anterior ya que la caja la cierro después de las 00 hs, obviamente todos los días debería guardar una archivo diferente con la fecha especificada
2 Respuestas
Respuesta de Cesar Otiniano
1
Dim ls_celda, ls_ruta As String
ls_celda = Worksheets("nombre_hoja").Range("celda").Value
ls_ruta = "ruta" & ls_celda & ".xlsx"
ActiveWorkbook.SaveAs Filename:=ls_ruta, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Celda que contiene el nombre debe tener la siguiente fórmula
+TEXTO(HOY() -1,"dd-mm-yyyy")
Recuerda que el nombre del
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro, cambia en la macro "Hoja1" y "A5" por la hoja y la celda en donde tienes la fecha.
Sub GuardarCopia()
'Por.Dante Amor
ruta = ThisWorkbook.Path & "\"
Set h1 = Sheets("Hoja1")
celda = "A5"
'
nombre = Format(h1.Range(celda), "dd-mm-yyyy")
ThisWorkbook.SaveCopyAs ruta & nombre
MsgBox "Copia guardada!", vbInformation, ""
End Sub