Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Macro no sirve cuando cambio de nombre el archivo que contienen la macro

58 views
Skip to first unread message

angie

unread,
Apr 15, 2015, 6:56:18 PM4/15/15
to
¡ Hola !
Solicito su ayuda para lograr que la macro del archivo llamado Lina.xlsm, siga
funcionando cuando cambio el nombre del archivo cada semana.

Este es el codigo que requiereo corregir.

Sheets("Monet").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Workbooks.Open Filename:= _
"https://user01./Export/FileType"
Cells.Select
Selection.Copy
Windows("Lina.xlsm").Activate
ActiveSheet.Paste
Columns("A:A").Select

Lenin Puga

unread,
Apr 16, 2015, 8:13:26 AM4/16/15
to
Tu has dado la respuesta. Si el libro se llama Lina.xlsm y mañana se llamará Duti.xlsm entonces cambias esta parte del código y si mañana se llama de otra manera pues el vuelves a cambiar la parte del código que tiene el nombre.

Windows("Lina.xlsm") por Windows("Duti.xlsm")

Saludos.

www.CapacitateExcel.com

Juanca de Tucma

unread,
Apr 29, 2015, 9:18:35 AM4/29/15
to
Hola Angie
Tal vez te sirva comenzar tu codigo con esto:
Archivo = InputBox("ingresa el nombre del archivo")
Workbooks.Open Filename:=Archivo & ".xlsm"
previamente la variable Archivo debera estar defida como String

Juanca de Tucma

unread,
Apr 29, 2015, 9:36:46 AM4/29/15
to
El miércoles, 15 de abril de 2015, 19:56:18 (UTC-3), angie escribió:
Perdon Angie
Luego, cada vez que necesites referirte al archivo lo harás así:
Windows(Archivo & ".xlsm").Activate
(por ejemplo)
0 new messages