Excel Macro Excel - Excluir linhas c/ critérios

[IgorCaponi]

Boa Tarde a todos!

 

Estou precisando de ajuda para montar uma macro.

 

Os critérios são os seguintes:

 

Critério 1) Quando o número do documento E o valor forem iguais , ou seja, número de documento E valor da provisão e do recebimento iguais, excluir a linha;

Critério 2) Quando o número do documento for igual porém o valor for diferente, pintar a linha do recebimento e da provisão de vermelho; e

Critério 3) Ordenar por data

 

Segue a tabela, a qual será utilizada para teste:

 

 

Agradeço desde já a ajuda de todos que se prontificarem a me ajudar!

[chris.sappio]

Cara fiz um código aqui e acredito que vai te ajudar

 

o código basicamente vai pinta de amarelo todos os números de  documentos que são iguais e com o mesmo valor, ai no caso se quiser excluir as linha é só fazer um filtro e apagar tudo que está em amarelo, o que sobrar são os documentos que são iguais e que tem valores diferentes. 

 

Sub teste()
Cells.Find(What:="documento", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
 ActiveCell.Offset(1, 0).Select

'Acha todas as linhas com valor duplicado
Dim pro, val_pro, rec, val_rec, num
Do Until ActiveCell = 0
    pro = ActiveCell
    val_pro = ActiveCell.Offset(0, 2).Value
    num = 1
    rec = ActiveCell.Offset(num, 0)
Do Until pro = rec
        If rec = "" Then
             Exit Sub
        End If
    rec = ActiveCell.Offset(num, 0)
    num = num + 1
Loop
    num = num - 1
    val_rec = ActiveCell.Offset(num, 2).Value
If val_rec = val_pro Then
    With Selection.Interior
         .Color = 65535
    End With
ActiveCell.Offset(num, 0).Select
With Selection.Interior
        .Color = 65535
End With
ActiveCell.Offset(-num, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Loop

End Sub
 

[IgorCaponi]

Muito Obrigado, me ajudou bastante!