macro exlcuir com condição

[Dany Cardoso_504333]

  Pessoal estou precisando que uma grande ajudas de vocês que expert em macro....

quando conter na coluna B o numero 100 vai excluir todas

a linha que estiver o mesmo  historico que esta  na  coluna C....  

 

Exemplo1:

 

Tenho

 

B             C

 

100 –    laranja

90  --     laranja

 

Vai excluir as duas linhas!!

 

Exemplo 2:

 

B          C

 

80 –   laranja

90   -  laranja

 

Não vai excluir nenhuma linha

 

Tem como fazer isso ???

[Visitante]

Se não chegar no resultado esperado disponibilize uma amostra do seu arquivo.

Sub ExcluiLinhas() Dim LR As Long, c As Range, k As Long, fA As String, m As String, rngDEL As Range  LR = Cells(Rows.Count, 2).End(xlUp).Row   For k = 1 To LR    If Cells(k, 2) = 100 Then     m = Cells(k, 2).Offset(, 1).Value     Set c = Range("C1:C" & LR).Find(m, lookat:=xlWhole)      If Not c Is Nothing Then        fA = c.Address         Do          If rngDEL Is Nothing Then           Set rngDEL = Rows(c.Row)          Else           Set rngDEL = Union(rngDEL, Rows(c.Row))          End If          Set c = Range("C1:C" & LR).FindNext(c)         Loop While Not c Is Nothing And c.Address <> fA      End If    End If   Next k  On Error Resume Next rngDEL.EntireRow.DeleteEnd Sub

[Dany Cardoso_504333]

muito obrigado !!!!!!

 

resolvido