Suemar Eugênio

Boa tarde @André_Arruda, obrigado pela sua atenção, dei uma limpada no código para ficar mais organizado, apliquei o que falou, porém agora ele limpa a planilha inteira e não só a linha. 

 

Vou lhe enviar a planilha também para que possa ver. 

 

Planilha exemplo: http://tsmix.com.br/teste.xlsm

 

Sub tsmix_suemar()
Dim iListCount As Integer
Dim iCtr As Integer

    Application.ScreenUpdating = False

    iListCount = Sheets("SUEMAR").Range("C4:C10").Rows.Count

    For Each x In Sheets("TSMIX").Range("C4:C100")

    For iCtr = 1 To iListCount
           
           
     If x.Value = Sheets("SUEMAR").Cells(iCtr, 1).Value Then
        
           Sheets("SUEMAR").Cells(iCtr, 1).EntireRow.Delete
        
           iCtr = iCtr + 1
           
    End If
           
   Next iCtr
Next
Application.ScreenUpdating = True
MsgBox "beleza, o anúncios repetidos de DalilaMix foram limpos, vamos para o próximo?"
End Sub

Olá galera!

 

Tenho uma planilha no Excel que verifica entre duas pastas de trabalho se existem valores duplicados, se sim ela deveria excluir a linha da pasta que está sendo comparada. 

 

Porém ela está excluindo somente a célula e não a linha, o que está dando problema, exemplo. 

 

Base

Lapis - 10

Caderno - 20

Caneta -30

 

Comparada

Lapis - 10

Caderno - 20

Lapiseira - 30

 

Ao executar ele apaga a celula LAPIS e CADERNO, fazendo com que Lapiseira assuma a posição com quantidade 10, incorreto! Preciso que ele apague a linha toda. 

 

Segue o código bem simples.

 

 

 

 

 

 

Sub teste()
Dim iListCount As Integer
Dim iCtr As Integer

'Desligue a atualização da tela para acelerar a macro.
Application.ScreenUpdating = False

'Obter contagem de registros para pesquisar (lista que será excluída).
iListCount = Sheets("teste2").Range("A2:A10").Rows.Count

'Percorra através da lista "mestre".
For Each x In Sheets("teste1").Range("A2:A10")

'Percorra todos os registros na segunda lista.
   For iCtr = 1 To iListCount
     
'Faça comparação do próximo registro.
'Para especificar uma coluna diferente, altere 1 para o número da coluna.
      
      If x.Value = Sheets("teste2").Cells(iCtr, 1).Value Then
       
'Se a correspondência for verdadeira, exclua a linha.
       
       Sheets("teste2").Cells(iCtr, 1).Delete xlShiftUp
       
         ' Sheets("teste2").Rows(iCtr, 1).Delete xlShiftUp
                  
     
'Incrementar contador para considerar a linha excluída.

         iCtr = iCtr + 1
      End If
   Next iCtr
Next
Application.ScreenUpdating = True
MsgBox "beleza, o anúncios repetidos de DalilaMix foram limpos, vamos para o próximo?"
End Sub