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

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

El miércoles, 15 de abril de 2015, 19:56:18 (UTC-3), angie escribió:
Mostrar la cita

¡ 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

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

El miércoles, 15 de abril de 2015, 19:56:18 (UTC-3), angie escribió:
Mostrar la cita

¡ 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

Perdon Angie
Luego, cada vez que necesites referirte al archivo lo harás así:
Windows(Archivo & ".xlsm").Activate
(por ejemplo)

Lenin Puga escribió el 16/04/2015 14:13 :
Mostrar la cita

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

Muchisimas gracias!! Lenin.

Siii , funciono.

Asi es como quedo mi codigo.
---------------------------------------------------------------------
Dim Archivo As String
Archivo = InputBox("ingresa el nombre del archivo")

Windows("lupita").Activate
Range("K1").Select
Windows(Archivo & ".xlsm").Activate
Range("E17").Select
ActiveCell.FormulaR1C1 = "1"
Range("E18").Select
End Sub