0

Olá amigos estou batendo a cabeça em um código vba, o que eu quero e que quando eu filtre uma coluna por exemplo "A1" ele conte todas as células visíveis, ignore as ocultas e pare de contar quando encontrar a primeira célula vazia e print o valor contado na célula "B12", abaixo o código ele ate funciona mas eu tenho que colocar um range maior que os dados da coluna, e ele acaba contando os em branco do range junto com as visiveis que eu quero.

Sub CountVisRows()

Range("b12").Value = ActiveSheet.Cells(1, 1).Range("A14:A4000").Cells.SpecialCells(xlCellTypeVisible).Count

End Sub

2 Respostas 2

0

Eu resolveria isto de forma simples assim:

Sub somarFiltradas()

  Dim cont As Integer
  Dim i As Integer

  cont = 0
  i = 3

  While Cells(i, 4).Value <> ""

      If Cells(i, 4).EntireRow.Hidden = False Then
    
          cont = cont + 1
        
      End If
    
      i = i + 1
    
  Wend

  Cells(1, 4).Value = cont

End Sub
3
  • Obrigado por ajudar mas ele esta me retornando valor 0, quando eu filtro a coluna gostaria que ele contasse só as células visíveis e ignorasse as células ocultas e mostrasse o valor em uma célula a partir da coluna "A" linha "14" em diante ate encontrar célula da coluna A vazia. 2/02/2021 às 2:37
  • É exatamente isto que ele faz. Você precisa alterar as colunas e linhas para a sua planilha. Só fiz um modelo. Se a coluna a filtrar é a "A" então troque o código de While Cells(i, 4).Value por While Cells(i, 1).Value, porque é a primeira coluna. E precisar ajustar o valor de " i " para a primeira linha onde começam os seus dados depois dos rótulos das colunas. Por exemplo, se o primeiro registro está na linha 2, você altera para i = 2. 3/02/2021 às 3:17
  • E para o total altere Cells(1, 4).Value = cont para coluna e linha desejada. (no meu exemplo está linha 1 e coluna 4, que é a mesma coisa que D1. 3/02/2021 às 3:24
0

Olá, no lugar da Range("A14:A4000") vc pode salvar a tabela em uma listObject e usar ListCounm(numero da coluna).

Seria algo assim:

Dim loTabela As ListObject
Set loTabela = Range("nomeTabela").listObject

'Usei o numero 1 para representar o A1
Range("b12").Value = loTabela.ListColunms(1).Range.SpecialCells(xlCellTypeVisible).Cells.Count

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 .