Guru do Excel e Power BI

Gente, boa tarde!
Estou com um problema, estou criando um código e em um dado momento preciso contar somente as linhas preenchidas da tabela e que estão visíveis pois várias linhas estão ocultas.

Em outras partes do código conto somente as linhas preenchidas com o seguinte código e funciona:

Código: Selecionar todos

Qntlinhas = Sheets("Emails").Cells(Rows.Count, "A").End(xlUp).Row

Estou tentando adaptar o código para o seguinte:

Código: Selecionar todos

qnt_final = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).SpecialCells(xlCellTypeVisible)

Mas ao executar e depurar dá erro em tempo de execução 13 - tipos incompatíveis.

Alguém pode me dar um help?

Valeu!

Untiltomorrow escreveu:... preciso contar somente as linhas preenchidas da tabela e que estão visíveis ...

Experimente:

Código: Selecionar todos

Sub ContaVisíveisComConteúdo()
 Dim x As Long
  x = Range("A1:A" & Cells(Rows.Count, "A").End(3).Row).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count
  MsgBox x
End Sub

Como alternativa pode ser usada a função SUBTOTAL() .

Guru do Excel e Power BI

Contar somente celulas preenchidas e visíveis [?]

Contar somente celulas preenchidas e visíveis [?]

Re: Contar somente celulas preenchidas e visíveis [?]