Botón para guardar la hoja de calculo con un nombre especifico
Necesito un botón, macro, que cuando le de un click, me guarde la hoja de calculo con el nombre de ciertos campos de la hoja de calculo más la Fecha, y hora y minutos de cuando se guarda (NOW). Evidentemente la hora no puede ser guardada como 22:52:12 ya que los : no los admite, podría ser "LOS VALORES DE CAMPOS QUE DECIDA"_ 06-01-2017_H22-52-12. Y cuando la intente guardar me salga un cuadro de dialogo me indique el nombre y la ruta donde se va a guardar, por defecto quiero que sea la misma donde esta el escel abierto, pero que tenga la opción de guardarla en otra ruta, y que confirme si quiero guardarla o no
1 respuesta
Te anexo la macro
Sub GuardarHoja()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
celdas = Array("D7", "E8", "F9") ' agregar las celdas que deseas
For i = LBound(celdas) To UBound(celdas)
nombre = nombre & Range(celdas(i))
Next
nombre = nombre & "_" & Format(Date, "dd-mm-yyyy") & "_H" & Format(Now, "hh-mm-ss")
ruta = ThisWorkbook.Path & "\"
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Guardar archivo como"
.AllowMultiSelect = False
.InitialFileName = ruta & nombre
.FilterIndex = 1
If Not .Show Then Exit Sub
warch = .SelectedItems(1)
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=warch, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
End With
MsgBox "Archivo guardado"
End SubEjecuta la macro sobre la hoja que quieras guardar. La macro te abre la ventana para guardar el archivo con el nombre predefinido, si presionas "Cancelar" la macro termina; selecciona la carpeta, cambia el nombre si quieres; por último, presiona aceptar para guardar la hoja con un nuevo nombre de libro.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Dante Amor como siempre excelentísimo, un 10 un 100, muchas gracias
