liste karşılaştır ve renk süz

[neverlank]

merhabalar forumdan bulduğum bu iki dosyayı kombine etmeyi beceremedim

istediğim listeler dosyasında ilgili işlemin yapılması ve daha sonra dolgu rengine göre süzme yapmak

yardımlarınızı bekliyorum

 

[janveljan]

Kodlarınızı bu şekilde dener misiniz?

Sub listele()
For a = 3 To [b65536].End(3).Row
If WorksheetFunction.CountIf(Range("E:E"), Cells(a, "B")) = 0 Then Cells(a, "B").Interior.ColorIndex = 6
If WorksheetFunction.CountIf(Range("B:B"), Cells(a, "E")) = 0 Then Cells(a, "E").Interior.ColorIndex = 38
If WorksheetFunction.CountIf(Range("B:B"), Cells(a, "B")) > 1 Then Cells(a, "B").Interior.ColorIndex = 4
If WorksheetFunction.CountIf(Range("E:E"), Cells(a, "E")) > 1 Then Cells(a, "E").Interior.ColorIndex = 33
Next
End Sub