Como comparar Duas colunas e deletar dados II
Página 1 de 1
Como comparar Duas colunas e deletar dados II
Boa tarde!!
Como comparar Duas colunas e deletar dados em guias diferentes.
Att
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
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Como comparar Duas colunas e deletar dados
» Copiar duas células fixa de todas as guias para uma única guia, mas colando em duas colunas diferentes.
» Macro para conferir duas colunas
» Comparar dados em arquivos diferentes
» Separar arquivo em arquivos menores de acordo com 2 critérios (duas colunas)
» Copiar duas células fixa de todas as guias para uma única guia, mas colando em duas colunas diferentes.
» Macro para conferir duas colunas
» Comparar dados em arquivos diferentes
» Separar arquivo em arquivos menores de acordo com 2 critérios (duas colunas)
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|