Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Contar Valor "-" de...
 
Notifications
Clear all

Contar Valor "-" de Coluna e excluir linhas

 
2024 - VBA & Macros
Post Recente por Televisaos 3 anos atrás
2 Posts
2 Usuários
0 Reactions
1,059 Visualizações
RSS
 SandroLima
(@sandrolima)
Posts: 0
Estimable Member
Topic starter
 

Boa tarde

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.

 
Postado : 03/12/2021 1:50 pm
 Televisaos
(@televisaos)
Posts: 49
Eminent Member
 

Olá @SandroLima,

Tente este código:

 

volta:
        For Each cell In ActiveSheet.ListObjects("TB_Procedimentos").ListColumns(1).DataBodyRange.Rows
            If cell = "-" Then
                count = count + 1
                cell.Rows.Delete
                GoTo volta
            End If
        Next cell
    MsgBox ("Foram apagadas " & count & " linhas")
Este post foi modificado 3 anos atrás por Televisaos
 
Postado : 07/12/2021 12:54 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico