macro para pegado especial

13/01/2014 - 08:38 por uva | Informe spam
¡ Hola !
Soy novato en grabación de macros y requiero lo siguiente:
filtrar varias filas, seleccionar el filtro, copiar la información filtrada, abrir la hoja de destino, filtrar y ubicarme en la primera celda vacia de la columna y pegar la información.

cuando lo ejecuto me señala error en la línea de pegado especial asi:

'

'
ActiveSheet.Range("$I$1:$Q$122").AutoFilter Field:=4, Criteria1:=Array("10" _
, "100", "20", "28", "36", "40", "450", "50", "84", "="), Operator:=xlFilterValues
Range("I3").Select
ActiveCell.FormulaR1C1 = "200 DUKE"
Range("I3:L26").Select
Range("L3").Activate
Selection.Copy
Sheets("Datos arch. seguimiento").Select
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-16
ActiveSheet.Range("$A$8:$H$976").AutoFilter Field:=1, Criteria1:="="
Range("A65").Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Ent. DATOS").Select
Application.CutCopyMode = False
End Sub
nte:

Agradezco de antemano su ayuda.

Saludos
Uva

Preguntas similare

Leer las respuestas

Search Busqueda sugerida