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

1 respuesta

Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas