Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

SALAVERRINO

Macro para copiar con otro nombre

Recommended Posts

Buenas noches a los integrantes de este foro, en esta ocasión quiere pedir su ayuda en alguna macro, el cual permita realizar lo siguiente que el archivo utilizado SORT TRAB PLANTILLA.xlsm, sea copiado como SORT TRAB PLANTILLA BACKUP.xlsm y el mismo archivo SORT TRAB PLANTILLA.xlsm, copiado con el nombre SORT TRAB.xlsm, adjunto link:

https://drive.google.com/file/d/1KdhZTa8VfYV-6uZwNwNWKmeawGwI_UHK/view?usp=sharing

Desde ya agradezo su apoyo y colaboración.

Share this post


Link to post
Share on other sites
Hace 9 horas, SALAVERRINO dijo:

que el archivo utilizado SORT TRAB PLANTILLA.xlsm, sea copiado como SORT TRAB PLANTILLA BACKUP.xlsm y el mismo archivo SORT TRAB PLANTILLA.xlsm, copiado con el nombre SORT TRAB.xlsm, adjunto link:

¿Pero cuál es el problema? porque solo pides un "Guardar Cómo..." ¿O no? :huh:

ThisWorkBook.SaveAs...

 

Share this post


Link to post
Share on other sites

Buenos días @Haplox, conforme a tu opinión, de que el archivo SORT TRAB PLANTILLA.xlsm, sea grabado como SORT TRAB PLANTILLA BACKUP.xlsm y SORT TRAB.xlsm, con el fin de guardar el backup y que el archivo a trabajar en forma diaria es SORT TRAB.xlsm, por ello quiera un ejemplo de una macro.

Desde ya agradezco tu apoyo.

Share this post


Link to post
Share on other sites

Buenos dias @Haplox y @avalencia, diseñe esta macro para lo que esta requiriendo y desearía que me digan si esta bien, tiene algo de mas o le falta algo, gracias.

Sub guardar()
 
carpeta = ActiveWorkbook.Path
filaa = carpeta & "\" & "SORT TRAB"
 
 
If nombrar = vbYes Then
    filab = carpeta & "\" & "SORT TRAB" & ".xlsm"
Else

End If
 
ActiveWorkbook.Save
 
ActiveWorkbook.SaveAs Filename:=filaa, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
xnombre = ActiveWorkbook.Name
 
Workbooks.Open (filaa)
Workbooks(xnombre).Close savechanges = False
End Sub

 

Edited by SALAVERRINO

Share this post


Link to post
Share on other sites
Hace 15 horas, SALAVERRINO dijo:

desearía que me digan si esta bien, tiene algo de mas o le falta algo, gracias.

A ver @SALAVERRINO, partiendo de la base:

  • El fichero que abres es SORT TRAB PLANTILLA.xlsm (con macros habilitadas)
  • Este lo guardas como SORT TRAB PLANTILLA_BACKUP.xlsm (con macros habilitadas)
  • Y esta a su vez como SORT TRAB.xlsx ya sin macros para trabajar.

Desde el primer archivo, ejecuta este código y al final de él te encontrarás ya en el fichero SORT TRAB.xlsx ya para trabajar

Sub guardar()
Dim ruta As String

Application.DisplayAlerts = False

ruta = ThisWorkbook.Path

ActiveWorkbook.SaveAs Filename:=ruta & "\" & "SORT TRAB PLANTILLA_BACKUP.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.SaveAs Filename:=ruta & "\" & "SORT TRAB.xlsx", FileFormat:=xlOpenXMLWorkbook

Application.DisplayAlerts = True

End Sub

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png