Preciso filtrar, via VBA, o 30 ultimos valores disponiveis em uma tabela dinamica mas no "filtro manual" que é o de linha... É possível ler, no VB, os valores disponiveis no "filtro manual"?
1 Resposta
Abnerka,
Abaixo exemplo de código VBA que lhe permite diferenciar células ocultas de células visíveis. Células ocultas ficam com o valor de RowHeight = 0 no Excel.
Const _
primeiraLinha = 4, _
ultimalinha = 12, _
colunaPrincipal = "A", _
tudo = colunaPrincipal & primeiraLinha & ":" & colunaPrincipal & ultimalinha
nomeAbaExcel = "Plan1"
Dim objetoLinha As Object
For Each objetoLinha In ThisWorkbook.Sheets(nomeAbaExcel).Range(tudo).Cells
If objetoLinha.RowHeight > 0 Then
Total = Total + 1
End If
Next objetoLinha
MsgBox Total
De fato admito que não entendi muito bem o que você realmente precisa. Mas acredito que com esse código você possa adaptar e resolver o problema.
Para todos os casos, a tabela dinâmica fornece a possibilidade de filtrar os 30 maiores e 30 menores itens (se ajudar).