Completar esta macro
Publicado por santi (24 intervenciones) el 03/12/2018 13:34:33
Hola expertos,
Tengo esta macro:
Funciona muy bien. El problema es que, si ya existe la carpeta con el nombre que le he dado en la celda "I1" no hace nada, y necesito que me guarde dentro el archivo con el nuevo nombre de archivo que hay en la celda "I2".
Muchas gracias
Tengo esta macro:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub CREARCARPETAOFERTA()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Ruta = Range("J1")
arch = Sheets("DATOS ").Range("I1")
If Dir(Ruta & "\" & arch, vbDirectory) = "" Then
MkDir Ruta & "\" & arch
ActiveWorkbook.SaveAs Filename:=Ruta & "\" & arch & "\" & Sheets("DATOS ").Range("I2")
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End Sub
Funciona muy bien. El problema es que, si ya existe la carpeta con el nombre que le he dado en la celda "I1" no hace nada, y necesito que me guarde dentro el archivo con el nuevo nombre de archivo que hay en la celda "I2".
Muchas gracias
Valora esta pregunta
0