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.]

fdbchp


Tengo la siguiente macro en un libro titulado TARJETAS y quiero copiar la información de la primera hoja (CHECKTAVI_MARZO15) al libro titulado CHECKTAVI2015 en la primera hoja (marzo15). La macro se ejecuta pero no me copia los datos. 

Comienza a ejecutarse y he de detener la macro porque me copia la macro en vez la información de la primera hoja y parece no detenerse.

¿Alguien puede ayudarme? Adjunto la macro y archivos prueba.

Gracias.

Sub MYCHECKTAVI()

Dim LastRow As Integer, i As Integer, erow As Integer

LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To LastRow

Workbooks.Open Filename:= _
"F:\Call1\Wap\16863\16863\ACCESO RAPIDO\CHECKTAVI2015.xlsm"
Worksheets("MARZO15").Select
erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

ActiveSheet.Cells(erow, 1).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.CutCopyMode = False

Next i
End Sub
Archivos
tarjetas.zip
No tienes los permisos para descargar los archivos.
(24 KB)

Igtelo


Hola fdb.

Con el grabador de macros lo haces rápido, éste es el código:

Sub Macro1()
'
' Macro1 Macro
'

'
    Cells.Select
    Selection.Copy
    Workbooks.Open Filename:= _
        "F:\Call1\Wap\16863\16863\ACCESO RAPIDO\CHECKTAVI2015.xlsm"
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
    Range("A1").Select
End Sub

En éste aporte, Arturo Rocha te da un código más corto:

http://www.universoexcelforo.com/t1144-codigo-para-abrir-y-copiar-datos-de-un-libro-a-otro

Saludos
Ignacio Téllez

fdbchp


La macro funciona genial. Gracias!!!

Querría pedirte si es posible que al ejecutar la macro en la hoja de origen elija solo las filas con datos e igualmente así se pegue en la fila de destino.

Gracias una vez más, DE VERDAD

Igtelo


Hola fdb.

Eso ya es otro tema, damos por resuelto éste y abre otra pregunta con tu archivo adjunto y que muestre las filas vacías.


Saludos
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.