UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

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"



Código:
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

Espero que alguien me pueda ayudar, desde ya muchas gracias

Miltinho


https://www.youtube.com/channel/UCen9plVtEaEMopzWdXb9lzw?spfrelo

ioyama


Hola

No he mirado el vídeo del compañero Miltinho

Y no tengo claro que es lo que quieres hacer, pero creo que el error está cuando intentas buscar una celda en blanco para pegar los datos de la primera fila de la hoja de datos.

Entendiendo que lo que quieres es que te vaya pegando debajo los datos cada vez que abres el archiv, he modificado tu macro tal que


Private Sub Workbook_Open()
     Sheets("Hoja1").Select
        Range("A1:F1").Copy
        Sheets("Hoja2").Select
        uf = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
        Range("A" & uf).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
End Sub

Macro que va en ThisWorkbook

Para evitar interpretaciones erróneas (tal y como está marcado en las normas del foro) solcitamos que seadjunte un archivo con lo que se tiene y lo que se quiere obtener.

Un saludo desde Vitoria

Igtelo


Se da por resuelto y se cierra por abandono.

Ignacio Téllez

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.