Macro que grabe archivo de la forma nombre_fecha_hora y ..

[aaquino]

@zero-x te funcionó el archivo?

[zero-x]

Hace 5 horas, aaquino dijo:

@zero-x te funcionó el archivo?

si....pero aun no sé lo que me falta ( debe ser muy facil pero no lo veo) , si me explica que me falto estaria muy agradecido (ojala con una imagen pues me complico  con los nombres en ingles que me describes

 

gracias de antemano

 

[aaquino]

Hace 17 horas, zero-x dijo:

si....pero aun no sé lo que me falta ( debe ser muy facil pero no lo veo)

Dime, qué es lo que te falta?, descargaste el último archivo que te dejé y lo probaste?

[zero-x]

Hace 10 horas, aaquino dijo:

Dime, qué es lo que te falta?, descargaste el último archivo que te dejé y lo probaste?

Uff una cadena de mal entendidos

1) el ultimo archivo que me mandaste funciona bien

2) el que te mande yo ante ,(que yo lo veo igual)   a mi no me funciona

3) tu me dijiste que  no copie del todo , lo que habia que copiar para que funcionara mi archivo , pero

no veo que me falto  (algunas cosas que me dices en ingles no entiendo mucho a que se refieren)

4) en el ultimo post te pedi se indicabas con imagenes lo que le faltaba a mi archivo para que funcionara como el tuyo.

5)espero se entienda

 

 

[aaquino]

Hace 12 horas, zero-x dijo:

4) en el ultimo post te pedi se indicabas con imagenes lo que le faltaba a mi archivo para que funcionara como el tuyo.

Ok, te explico

Como subir imágenes está algo complicado porque se volvería muy tedioso, así que mejor te lo explico de la mejor manera para que lo puedas entender:

a.) Entrar al VBA = Alt + F11

b.) Ahí vas a encontrar un panel de navegación al lado izquierdo, donde encontrarás el proyecto llamado VBAProject (Notas 30-06-16 ...)

c.) Dentro de ese proyecto encontrarás dos carpetas, una que se llama Microsoft Excel Objects u Objetos de Microsoft Excel (desde ahora la llamaré Objetos) y otra carpeta llamada Modules o Módulos (desde ahora la llamaré Módulos).

d.) Dentro de la carpeta Módulos vas a encontrar un ícono que representa a los módulos, que se llama Módulo1, le das doble clic a ese ícono

e.) Se abrirá una ventana al lado derecho, donde encontrarás el código vba que hice. Lo que debes hacer es seleccionar TODO el código, es decir las dos subrutinas que implementé, esto para copiar y pegar en un módulo del archivo que tú quieres utilizar.

f.) Dentro de la carpeta Objetos encontrarás dos íconos, uno que dice Hoja1 y otro que dice ThisWorkbook. Le das doble clic al segundo ícono

g.) Se abrirá otra ventana con código, que deberás seleccionar, para copiar y pegar en el archivo que quieres utilizar, dentro del mismo ícono de ThisWorkbook (Este ícono lo tienen todos los archivos de Excel, en la misma carpeta)

Ya con esto, guardas tu archivo y te debería de funcionar.

Creo que fui bastante claro, igualmente te invito a investigar un poco lo que es el VBA en Excel, hay bastantes tutoriales en YouTube que puedes buscar e informarte.

[zero-x]

hola

Que raro te habia vuelto a preguntar, pero no esta la pregunta, mira se algo de excel pero esto de no encontrar algo no me habia pasado , no encuentro codigo  en donde me dices que si hay (en ThisWorkbook ) , que es lo que no copie , en lo veo , sorry por preguntar tanto pero en verdad no lo encuentro.

[aaquino]

Te vuelvo a adjuntar el archivo ya finalizado, y mira, si quieres te lo puedo adaptar a tu proyecto....

Este es el código para que lo copies y pegues en un módulo:

Sub Guardado_Automatico()

Dim NombreActual As String
Dim NombreNuevo As String
Dim Ruta As String
Dim Archivo As String
Dim BackUpObligatorio As String
Dim Archivo2 As String
NombreActual = Hoja1.Range("A2")

Ruta = ThisWorkbook.Path
NombreNuevo = NombreActual & " " & Format(Date, "dd-mm-yy") & " " & Format(Now, "hh-mm-ss")
BackUpObligatorio = "BK " & NombreNuevo
Archivo = Ruta & "\" & NombreNuevo
Archivo2 = Ruta & "\" & BackUpObligatorio

ActiveWorkbook.SaveAs Filename:=Archivo & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.SaveAs Filename:=Archivo2 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled


End Sub

Sub BackUp_Automatico()

Dim NombreActual As String
Dim NombreNuevo As String
Dim Ruta As String
Dim Archivo As String
NombreActual = Hoja1.Range("A2")

NombreNuevo = "BK " & NombreActual & " " & Format(Date, "dd-mm-yy") & " " & Format(Now, "hh-mm-ss")
Ruta = ThisWorkbook.Path
Archivo = Ruta & "\" & NombreNuevo

ActiveWorkbook.SaveAs Filename:=Archivo & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub

Sub Eliminacion_Automatica()

Dim Original As String
Dim BackUp As String
Dim Ruta As String
Dim EliminarOriginal As String
Dim EliminarBackUp As String

Original = Hoja1.Range("B2")
BackUp = "BK " & Original
Ruta = ThisWorkbook.Path
EliminarOriginal = Ruta & "\" & Original
EliminarBackUp = Ruta & "\" & BackUp

Kill EliminarOriginal
Kill EliminarBackUp

End Sub

Este es el código que debes copiar en el Thisworkbook (sólo le das doble clic al ícono que dice THISWORKBOOK, y lo pegas):

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False

Guardado_Automatico
Eliminacion_Automatica

Application.ScreenUpdating = True
End Sub

Private Sub Workbook_Open()

Dim Nombre As String
Nombre = ThisWorkbook.Name
Hoja1.Range("B2") = Nombre

End Sub

 

Macros.zip

[zero-x]

En 11-07-2016 at 13:15 , aaquino dijo:

Te vuelvo a adjuntar el archivo ya finalizado, y mira, si quieres te lo puedo adaptar a tu proyecto....

Este es el código para que lo copies y pegues en un módulo:

Sub Guardado_Automatico()

Dim NombreActual As String
Dim NombreNuevo As String
Dim Ruta As String
Dim Archivo As String
Dim BackUpObligatorio As String
Dim Archivo2 As String
NombreActual = Hoja1.Range("A2")

Ruta = ThisWorkbook.Path
NombreNuevo = NombreActual & " " & Format(Date, "dd-mm-yy") & " " & Format(Now, "hh-mm-ss")
BackUpObligatorio = "BK " & NombreNuevo
Archivo = Ruta & "\" & NombreNuevo
Archivo2 = Ruta & "\" & BackUpObligatorio

ActiveWorkbook.SaveAs Filename:=Archivo & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.SaveAs Filename:=Archivo2 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled


End Sub

Sub BackUp_Automatico()

Dim NombreActual As String
Dim NombreNuevo As String
Dim Ruta As String
Dim Archivo As String
NombreActual = Hoja1.Range("A2")

NombreNuevo = "BK " & NombreActual & " " & Format(Date, "dd-mm-yy") & " " & Format(Now, "hh-mm-ss")
Ruta = ThisWorkbook.Path
Archivo = Ruta & "\" & NombreNuevo

ActiveWorkbook.SaveAs Filename:=Archivo & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub

Sub Eliminacion_Automatica()

Dim Original As String
Dim BackUp As String
Dim Ruta As String
Dim EliminarOriginal As String
Dim EliminarBackUp As String

Original = Hoja1.Range("B2")
BackUp = "BK " & Original
Ruta = ThisWorkbook.Path
EliminarOriginal = Ruta & "\" & Original
EliminarBackUp = Ruta & "\" & BackUp

Kill EliminarOriginal
Kill EliminarBackUp

End Sub

Este es el código que debes copiar en el Thisworkbook (sólo le das doble clic al ícono que dice THISWORKBOOK, y lo pegas):

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False

Guardado_Automatico
Eliminacion_Automatica

Application.ScreenUpdating = True
End Sub

Private Sub Workbook_Open()

Dim Nombre As String
Nombre = ThisWorkbook.Name
Hoja1.Range("B2") = Nombre

End Sub

 

Macros.zip

Ahora si me aparecio el codigo que decias, en el ThisWorkbook , gracias por tu tiempo , pueden dar por cerrado el tema