Este fórum está sendo desativado

[Untiltomorrow]

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!

[osvaldomp]

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