Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
#68176
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.
Você não está autorizado a ver ou baixar esse anexo.
#68177
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 agradeceu por isso

CAROS COLEGAS DO FÓRUM , SOU UM APRENDIZ ,[…]

Bom dia, estou com um problema: Tenho uma formula[…]

Dida , Bom dia. Já que a sua necessidade […]

Estou trabalhando numa planilha com a seguinte l&o[…]

Como desativar essa função?

moduk1 , Bom dia. Na realidade não se tra[…]

Amigo, estou com problema similar, tenho excel 20[…]

@osvaldomp , Peço desculpas, meu site est[…]

Número de dias num mês

Olá, Jorge. Segue uma possibilidade. Outr[…]