Ir ao conteúdo

Posts recomendados

Postado

Ola Pessoal

Tenho uma relatório que contem duas colunas e gostaria de criar uma macro fizesse uma comparação entre essas duas colunas e quando o valor dessas duas colunas for diferente entre si, gostaria que a macro excluísse a linha e ao final, exibisse a quantidade de registros deletado, Podem me ajudar?

 

 

image.png.b482c637c34a941f5c4b538277202659.png

 

 

Postado

Considerando as colunas 7 e 8

 

Sub ExcluirLinhas()
    Dim L, C As Long
    
    L = 2
    
    Do Until Cells(L, 7) = ""
        If Cells(L, 7) <> Cells(L, 8) Then
            Cells(L, 1).EntireRow.Delete
            C = C + 1
            L = L - 1
        End If
        L = L + 1
    Loop
    
    If C Then MsgBox C & " linhas excluídas"
End Sub

 

Postado
Sub ExcluiLinhas()
 Dim k As Long, v As Long
  For k = Cells(Rows.Count, 7).End(3).Row To 2 Step -1
   If Cells(k, 7) <> Cells(k, 8) Then Rows(k).Delete: v = v + 1
  Next k
  MsgBox "FORAM EXCLUÍDAS " & v & " LINHAS"
End Sub

 

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!