none
Como excluir linha no excel com macro RRS feed

  • Pergunta

  • Tenho uma planilha onde cada pasta é um vendedor e para cada vendedor uma lista de produtos. 

     

    Fiz uma rotina em VBA para apagar para mim as linhas repetidas na planilha que estou usando para comparar com a base, porém não estou conseguindo excluir somente as linhas. 

     

    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 Suemar foram limpos, vamos para o próximo?"
    End Sub

    sexta-feira, 29 de junho de 2018 15:22

Todas as Respostas