Este fórum está sendo desativado

[AndersonM]

Boa tarde galera! tudo certo?

Preciso da ajuda dos gurus aqui do Forum! "Não manjo de macro" eu crio as macros pelo botão de gravação, mas, qual seria o código para que uma macro selecione e copie as 5 primeiras células depois do filtro/cabeçalho.

EX:
Coluna
1
2
3
4
5
6
7
8


Coluna Filtrada
2
4
6
7
8

E aí a macro só copia esses valores.

[gfranco]

Boa tarde AndersonM.
Como vc não postou sua planilha, aqui vai uma dica meio que genérica para efetuar o que vc deseja:
supondo que sua cópia comece em "A1" e deseja copiar para H3
Range("a1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy Range("H3")
Veja se ajuda.
At
gfranco

[alexandrevba]

Boa noite!!

use o GM (Gravador de Macro)

Código: Selecionar todos

Sub Macro2()
'
' Macro2 Macro
' Use o Gravador de Macro
Sheets("Guia_AleVBA").Select
ActiveSheet.Range("$A$1:$C$2000").AutoFilter Field:=3, Criteria1:=">300"
'Caso queira copiar para outra guia no mais tente algo como--> Rows("1:10")
Rows("1:10").Copy Sheets("Guia_AleVBA_Resultado").Range("A1")

End Sub

Att

[DJunqueira]

Poderia tb usar uma tabela dinâmica p/ selecionar os 10 primeiros de um determinado critério.