1

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"?

2
  • Ei amigo, pode ser mais claro na sua pergunta? Uso Excel a 12 anos e não sei exatamente do que se trata "filtro manual". Commented 26/03/2015 às 11:29
  • São os filtros de linhas e não os filtros da tabela dinamica em si..
    – Abnerka
    Commented 26/03/2015 às 15:26

1 Resposta 1

0

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).

inserir a descrição da imagem aqui

1
  • Segunda vou tentar, muito obrigado.
    – Abnerka
    Commented 27/03/2015 às 19:20

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .