Página 1 de 1

Selecionar 10 primeiros depois do filtro

Enviado: 02 Dez 2016 às 16:16
por 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.

Selecionar 10 primeiros depois do filtro

Enviado: 02 Dez 2016 às 17:02
por 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

Re: Selecionar 10 primeiros depois do filtro

Enviado: 02 Dez 2016 às 21:07
por 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

Selecionar 10 primeiros depois do filtro

Enviado: 02 Dez 2016 às 23:21
por DJunqueira
Poderia tb usar uma tabela dinâmica p/ selecionar os 10 primeiros de um determinado critério.