Este fórum está sendo desativado

[SandroLima]

Bom dia

Preciso de uma Macro que conte a quantidade de células da Coluna [Registro] da Tabela TB_Procedimentos que apresentam valor igual à "-" e que depois exclua essas linhas.

Poderiam me ajudar?

Segue planilha para aplicação e teste da Macro.

[Foxtri]

Boa tarde.
Veja se esta macro atende a sua necessidade.

Sub ExcluirLinhas()
Dim Plan As Worksheet
Dim rng As Range
Dim c As Range
Set Plan = Wsh_Procedimentos
Set rng = Plan.ListObjects("TB_Procedimentos2").ListColumns(1).Range
Do
Set c = rng.Find("-", LookIn:=xlValues)
If Not c Is Nothing Then c.EntireRow.Delete
Loop While Not c Is Nothing
End Sub

Até

Foxtri

[SandroLima]

Ok... Muito obrigado.

Saberia como eu poderia contar o número de linhas com Valor igual a "-" na Coluna [Registro]? Ou o número de linhas que foram excluídas?

[Foxtri]

Bom dia
Para saber o número de linhas com Valor igual a "-":
MsgBox Application.WorksheetFunction.CountIf(rng, "-")

Até
Foxtri