Usuário com melhor resposta
AutoFilter - AutoFiltro no Excel

Pergunta
-
AutoFilter - AutoFiltro no Excel
Suponha que eu tenha a seguinte lista na planilha Plan1:
A
1 TIPO
2 carro
3 moto
4 caminhão
5 carro
6 moto
7 empilhadeira
8 carroSuponha agora que eu tenha aplicado um filtro, selecionando carro:
A
1 TIPO
2 carro
5 carro
8 carroComo eu faço para retornar um RANGE contendo APENAS os endereços A2, A5 e A8 ?
Usando VBA eu so consigo retornar todo o endereço da lista, ou seja A2:A8.
Respostas
-
Certo...Então use esta rotina que verifica o filtro e retorna as células.
Esta rotina percorre da célua a2 até o fim verificando as linhas que estão visíveis, caso encontre uma célula vazia entende-se que chegou ao fim da coluna e termina o For, aparecendo uma mensagem de todas as céluas..Sub VerificaFiltro() Dim N As Long, Ref$ For N = 2 To 65536 If Cells(N, 1) = "" Then Exit For If Rows(N).Hidden = False Then Ref = Ref & Cells(N, 1).Address & Chr(10) End If Next MsgBox Ref End Sub
Qualquer dúvida post denovo.
Não se esqueça de marcar a resposta como respondida se solucionar.
Até..- Marcado como Resposta Lúcius sexta-feira, 6 de fevereiro de 2009 13:37
Todas as Respostas
-
-
-
Certo...Então use esta rotina que verifica o filtro e retorna as células.
Esta rotina percorre da célua a2 até o fim verificando as linhas que estão visíveis, caso encontre uma célula vazia entende-se que chegou ao fim da coluna e termina o For, aparecendo uma mensagem de todas as céluas..Sub VerificaFiltro() Dim N As Long, Ref$ For N = 2 To 65536 If Cells(N, 1) = "" Then Exit For If Rows(N).Hidden = False Then Ref = Ref & Cells(N, 1).Address & Chr(10) End If Next MsgBox Ref End Sub
Qualquer dúvida post denovo.
Não se esqueça de marcar a resposta como respondida se solucionar.
Até..- Marcado como Resposta Lúcius sexta-feira, 6 de fevereiro de 2009 13:37
-