Quiero copiar un rango de una hoja y pegarlo en otra, todo va bien hasta la instruccion paste, que da "error en el método paste de la clase Woksheet". Alguien me puede ayudar?
Gracias.
Sub CargaCCH2()
Dim dia1 As Date
Dim dia2 As Date
dia1 = #1/2/2013#
dia2 = #1/3/2013#
Worksheets("CHT").Select
uf = Range("a1000000").End(xlUp).Row
Set busco = ActiveSheet.Range("a1", "a" & uf).Find(dia1)
fi = busco.Row
Set busco = ActiveSheet.Range("a1", "a" & uf).Find(dia2)
ff = busco.Row
ff = ff + 23
Range("a" & fi, "d" & ff).Copy
Worksheets("CH").Activate
uf2 = Range("a1000000").End(xlUp).Row
Range("a1", "d" & uf2).ClearContents
Cells(1, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Quiero copiar un rango de una hoja y pegarlo en otra, todo va bien hasta la instruccion paste, que da "error en el método paste de la clase Woksheet". Alguien me puede ayudar?
Gracias.
Sub CargaCCH2()
Dim dia1 As Date
Dim dia2 As Date
dia1 = #1/2/2013#
dia2 = #1/3/2013#
Worksheets("CHT").Select
uf = Range("a1000000").End(xlUp).Row
Set busco = ActiveSheet.Range("a1", "a" & uf).Find(dia1)
fi = busco.Row
Set busco = ActiveSheet.Range("a1", "a" & uf).Find(dia2)
ff = busco.Row
ff = ff + 23
Range("a" & fi, "d" & ff).Copy
Worksheets("CH").Activate
uf2 = Range("a1000000").End(xlUp).Row
Range("a1", "d" & uf2).ClearContents
Cells(1, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub