Macro para guardar archivo de Excel con nombre de celda
Tengo una plantilla de Excel la cual tengo que estar guardando constantemente con el nombre de una celda en especifico, la celda en especifico esta en la celda D6 y necesito que me lo guarde en una carpeta en el Escritorio que se llama EVALUACIONES, esta macro sera ejecutada en varios equipos por pero la ruta siempre será: Escritorio ---> Evaluaciones.
El archivo de Excel tiene varias hojas, las cuales están ligadas entre si, necesito me guarde todas las hojas.
1 Respuesta
Respuesta de Dante Amor
2
Te anexo la macro
Sub Guarda_copia()
'Por Dante Amor
Dim objWSHShell As Object
Dim strSpecialFolderPath
On Error GoTo ErrorHandler
Set objWSHShell = CreateObject("WScript.Shell")
escritorio = objWSHShell.SpecialFolders("Desktop")
Set objWSHShell = Nothing
On Error GoTo 0
'
ruta = escritorio & "\Evaluaciones"
If Dir(ruta, vbDirectory) = "" Then
MsgBox "No existe la carpeta : " & ruta
Exit Sub
End If
'
Nombre = Sheets("Hoja1").Range("D6") & ".xlsm"
ThisWorkbook.SaveCopyAs ruta & "\" & Nombre
MsgBox "Copia guardada"
Exit Sub
ErrorHandler:
MsgBox "Error NO se encuentra el folder ", vbCritical + vbOKOnly, "Error"
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
