Macros no se Ejecuta
Hola amigos, cree la siguiente. Macro
Sub Macro5()
' Macro5 Macro
' Acceso directo: Ctrl+Mayús+B
Workbooks.Open Filename:="e:\assb\hist0104.xls"
Selection.End(xlDown).Select
Range("A1:E36").Select
Selection.Copy
Windows("pruebas").Activate
Sheets("Hoja1").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Windows("hist0104.xls").Activate
ActiveWindow.Close
Sheets("part0404").Select
Range("A1").Select
End Sub
El asunto es q cuando ejecuto la macro "paso a paso" (F8) se ejecuta sin mayores problemas, pero cuando le doy el metodo abreviado (Ctrl+Mayús+B) solo se ejecuta hasta la linea Workbooks.Open filename:="e:\assb\hist0104.xls"
¿QUÉ puede estar pasando? Lo que si observo es que al darle el método abreviado se activa el Modo Diseño.
Agradezco su ayuda,
Saludos
Segundo
Sub Macro5()
' Macro5 Macro
' Acceso directo: Ctrl+Mayús+B
Workbooks.Open Filename:="e:\assb\hist0104.xls"
Selection.End(xlDown).Select
Range("A1:E36").Select
Selection.Copy
Windows("pruebas").Activate
Sheets("Hoja1").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Windows("hist0104.xls").Activate
ActiveWindow.Close
Sheets("part0404").Select
Range("A1").Select
End Sub
El asunto es q cuando ejecuto la macro "paso a paso" (F8) se ejecuta sin mayores problemas, pero cuando le doy el metodo abreviado (Ctrl+Mayús+B) solo se ejecuta hasta la linea Workbooks.Open filename:="e:\assb\hist0104.xls"
¿QUÉ puede estar pasando? Lo que si observo es que al darle el método abreviado se activa el Modo Diseño.
Agradezco su ayuda,
Saludos
Segundo
1 Respuesta
Respuesta de Elsa Matilde
1
A primera vista tu problema está en la instrucción siguiente:
Selection... cuando todavía no seleccionaste nada.
Si lo que querés copiar es el rango de la instrucción siguiente será:
Activesheet. Range("A1:E36"). Copy
(Si te da error hacé primero Select y luego Selection. Copy)
Si te da error en esta:
Windows("pruebas"). Activate
Escribí:
Workbooks("pruebas.xls").activate
Después del Paste no hace falta que selecciones el range(a1) si total te vas de ese libro...
El resto te lo dejo para que sigas ajustando
Saludos y no olvides finalizar. Si te quedan problemas con esta rutina me volvés a contactar
Elsa
Selection... cuando todavía no seleccionaste nada.
Si lo que querés copiar es el rango de la instrucción siguiente será:
Activesheet. Range("A1:E36"). Copy
(Si te da error hacé primero Select y luego Selection. Copy)
Si te da error en esta:
Windows("pruebas"). Activate
Escribí:
Workbooks("pruebas.xls").activate
Después del Paste no hace falta que selecciones el range(a1) si total te vas de ese libro...
El resto te lo dejo para que sigas ajustando
Saludos y no olvides finalizar. Si te quedan problemas con esta rutina me volvés a contactar
Elsa
