Macro no funciona en libreta personal con auto open

[steinbergmatias]

Hola, Ante nada muchas gracias por su tiempo.

Escribo ya que decidi crear una macro la cual copia un texto de una pestaña y la pega en otra. Mi problema es que necesitaria que la misma se ejecute automaticamente al abrir el archivo de excel.

Al ponerle el nombre auto_open, la macro intenta ejecutarse pero me da un error (Error 1004 en tiempo de ejecucion: Error en el metodo "Sheets" de objeto "_Global"

Sub Auto_Open()[size=12][/size]

'[size=12][/size]

' Auto_Open Macro[size=12][/size]

'[size=12][/size]

' Acceso directo: CTRL+t[size=12][/size]

'[size=12][/size]

Sheets("futbol242").Select[size=12][/size]

    Range("A1:F1").Select[size=12][/size]

    Application.CutCopyMode = False[size=12][/size]

    Selection.Copy[size=12][/size]

    Sheets("Hoja2").Select[size=12][/size]

        Cells.Find(What:="vacio", After:=ActiveCell, LookIn:=xlFormulas, LookAt _[size=12][/size]

        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _[size=12][/size]

        False, SearchFormat:=False).Activate[size=12][/size]

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[size=12][/size]

        :=False, Transpose:=False[size=12][/size]

End Sub[/CODE]

Espero que alguien me pueda ayudar, desde ya muchas gracias

[LuisRojas]

al inicio agregale On Error Resume Next

quizás sea por la primera isntrucción de selección

[steinbergmatias]

Muchas gracias por tu respuesta, al poner ese codigo al principio, si bien abre la hoja de calculo, no realiza ninguna accion la macro. asi quedo:

Sub Auto_Open()

'

' Macro4 Macro

'

' Acceso directo: CTRL+y

'

On Error Resume Next

    Sheets("Futbol242").Select

    Range("A1:F1").Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("Hoja2").Select

        Cells.Find(What:="vacio", After:=ActiveCell, LookIn:=xlFormulas, LookAt _

        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _

        False, SearchFormat:=False).Activate

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

End Sub

[/CODE]

Por que sera? muchas gracias

[steinbergmatias]

PD: Cuando pongo depurar al aparecer el error, lo que se pinta en amarillo es

Sheets("Futbol242").Select, aclaro que esa pestaña si existe en el archivo de excel q estoy abriendo

[Antoni]

Sin el archivo es imposible averiguar el error.

[steinbergmatias]

Aqui dejo un archivo con la hoja de calculo y el archivo q contiene los macros (personal.xlsb)

MEGA

[Antoni]

El archivo que has subido tiene una extensión no válida.

Sube un archivo .xls o .xlsm comprimido con la macro en un módulo.

Piensa que cuando subes un archivo Excel, el libro Personal.xls* no se adjunta al proyecto VBA de ese archivo.

[steinbergmatias]

Gracias por tu respuesta, si pongo la misma macro pero en un archivo a parte (es decir fuera del libro de marcos personal) ahi si anda.

El problema es si tengo la macro en el libro de marcos personal. alli no anda.

Necesito tenerlo en el libro de marcos personal ya que tengo que realizar la misma accion en muchos archivos y no solo en un archivo unicamente. No se si me explico. Hay alguna otra opcion q pueda seguir?

[Antoni]

No te preocupes por eso, ya pondré la macro en mi libro personal antes de probar.

[steinbergmatias]

Pero como haras para ayudarme amigo?

[logroastur]

Buenas [uSER=221689]@steinbergmatias[/uSER]

Puedes chequear el siguiente enlace

Macro no funciona en libreta personal con auto open

Un saludo