Guardar archivo excel usando Macros

[kingsage28]

Buenas! tengo la siguiente consulta, tengo un archivo excel con una Macro, la cual al apretar un botón ejecuta el siguiente código:

Código:

Private Sub CommandButton1_Click()
Dim ruta As String
Dim NombreFichero1 As String
Dim Fecha As String
Dim completa As String
ruta = Range("A1").Value
NombreFichero1 = Range("B1").Value
Fecha = Format(Now, " dd-mm-yyyy hh,mm")
completa = ruta & "nuevaCarp\"

If FileFolderExists(completa) Then
        MsgBox "Folder exists!"
Else
        MsgBox "Folder does not exist!"
        MkDir completa
End If

ruta1 = ThisWorkbook.Path
MsgBox ruta1

ThisWorkbook.SaveAs Filename:=completa & NombreFichero1 & Fecha & ".XLSM"


End Sub

El problema está en lo que pinté de rojo, pues el archivo se guarda bien, incluyendo las rutas etc. Sin embargo, siempre que termina de guardarse, se Abre ese archivo mismo (el que acabo de guardar) y desparace el original. A mi solo me gustaría guardar el archivo en la ruta especificada, y que no se abra, es decir que siga trabajando en el primer archivo.

ESpero que se entienda! Muchas gracias! :)

Pablo

[Perr0]

Hola Pablo,

por lo que veo estas usando la opcion "Guardar como...", si te has fijado significa guardar como otro archivo y seguir trabajando en el nuevo, deberias utilizar sólo "Guardar".

Código vb:

ThisWorkbook.Save
 

o

Código vb:

ActiveWorkbook.Save
 

tu elijes

salu2

[kingsage28]

Muchas gracias!!!! Funciona Impecable!

[cecitn]

Buenas, yo tengo un archivo de excel con una tabla q se va completando sola a medida que voy cargando un formulario en otra hoja, lo que necesito es una macro que cada vez que esta tabla (la que se autocompleta) se cargue, este megenereun archivo aparte por cada fila. el cual debe guardarse con el nombre conformado de la siguiente manera campo de celda a + campo de celda b.. alguien que me de una mano???
gracias