Problema macro al copiar información de un libro a otro
publicado
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
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
CHECKTAVI2015.zip
tarjetas.zip