Saltar al contenido

Macro no funciona en libreta personal con auto open

publicado

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

Featured Replies

publicado

al inicio agregale On Error Resume Next

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

publicado
  • Autor

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

publicado
  • Autor

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

publicado

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.

publicado
  • Autor

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?

publicado

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.