Copiar primeros 30 registros filtrados

Mira si te sirve esto:

Sub prueba()
Dim rngC As Range
Dim n As Byte
n = 1

Application.ScreenUpdating = False

With Worksheets("Hoja1") 'Hoja donde están los datos filtrados
.Select
For Each rngC In Range(.[A4], "A" & .[A4].End(xlDown).Row).SpecialCells(xlCellTypeVisible) 'Empezará a copiar a partir de la primera fila no filtrada después de la fila 3
rngC.Resize(, rngC.CurrentRegion.Columns.Count).Copy Destination:=Worksheets("Hoja2").Range("A" & [Hoja2!A65536].End(xlUp).Row + 1) 'Cambiar Hoja2 por el nombre de la hoja donde se copiarán las filas
n = n + 1
If n > 30 Then Exit Sub '30 es el número de filas filtradas que se copiarán
Next rngC
End With

Application.ScreenUpdating = True
Set rngC = Nothing
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


"Marvin" escribió en el mensaje news:

Que tal grupo, una pregunta, tengo una tabla con varios registros, por medio
de codigó VB estoy filtrando sobre uno de los campos, lo que deseo hacer es
copiar solo 30 registros resultado del filtro, Cómo lo puedo hacer?, utilicé
el siguiente código pero no furula (funciona)... no selecciona ni siquiera el
rango filtrado..espero me puedan ayudar.

Range("A3").Select
With ActiveSheet
.Cells(30, "A").End(xlUp).Offset(30, 0).Select
End With
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy

Mis titulos de campo siempre inician en la celda A3.