Como comparar Duas colunas e deletar dados II

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Como comparar Duas colunas e deletar dados II

Mensagem por alexandrevba em Ter Out 14, 2014 2:36 pm

Boa tarde!!
Como comparar Duas colunas e deletar dados em guias diferentes.
Código:
Sub Deletar_Duplicidade()
    Dim Rng As Range, Rng2 As Range, Str
    Dim MyCell
    Str = MyCell
    Set Rng = Sheets("Guia_1").Range("A2:A" & Sheets("Guia_1").Range("A" & Rows.Count).End(xlUp).Row) 'Aponta para o intervalo da colunaA da guia1
    Set Rng2 = Sheets("Guia_2").Range("D2:D" & Sheets("Guia_2").Range("D" & Rows.Count).End(xlUp).Row) 'Aponta para o intervalo da colunaD da guia2
    Application.ScreenUpdating = False
    For Each Str In Rng
        If Not IsError(Application.Match(Str, Rng2, 0)) Then
            Str.EntireRow.Delete 'Caso concidir deleta os dados (linha inteira) na guia2
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum