Usuário com melhor resposta
Linha filtrada abaixo do cabeçalho

Pergunta
-
Pessoal,
Tenho uma planilha com os seguintes valores:
A1 = NOME
A2 = MARIA
A3 = JOÃO
A4 = PEDRO
Nessa planilha está ativo um filtro. digamos que eu filtre o nome pedro e a celula que está com o foco ativo no momento seja A1.
Como faço para pegar a próxima linha que está ativa abaixo (que seria a linha A4 que contém a informação Pedro)?
Pode ser também qualquer outra linha, mas preciso saber qual linha abaixo está visivel em determinado momento.
Desde já eu agradeço pela atenção.
Respostas
-
Dim rg As Range
For Each rg In ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
If (rg.Row <> 1) Then
MsgBox "Na celula:" & rg.Row
Exit For
End If
Next rgPessoal,
Será que tem uma forma mais elegante de fazer isso?
Abraço !!!
- Sugerido como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 17:26
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 17:26
Todas as Respostas
-
tente assim
Teste ai e qqer coisa fale.Sub Busca_Filtrados() Dim rg As Range For Each rg In Plan1.UsedRange.SpecialCells(xlCellTypeVisible) MsgBox "Na célula:" & rg.Address & " contém: " & rg.Value Next rg End Sub
Att
Bruno Silva Leite Office Developer officevb.blogspot.com -
Bruno,
No exemplo que citei acima existe apenas uma coluna, mas na planilha real posso ter n linhas.
O código que você disponibilizou já tenho como pegar a próxima linha, mas será que tem como eu ir direto para a linha abaixo do cabeçalho sem percorrer as colunas.
De qualquer forma agradeço pelo código pois aprendi mais uma com ele.
Abraço !!!
-
Dim rg As Range
For Each rg In ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
If (rg.Row <> 1) Then
MsgBox "Na celula:" & rg.Row
Exit For
End If
Next rgPessoal,
Será que tem uma forma mais elegante de fazer isso?
Abraço !!!
- Sugerido como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 17:26
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 17:26