veri filltreleme mükerrer kayırları filtreleme bulma hakkında çok acil yardım

[hercaiercan]

elimde 15000 satırlık bir excel tablosu var
bu excel tablosonda sarı renke gösterdiğim gibi bir sorgu yapmak istiyorum

tarihi aynı, fatura numarası aynı , ve de cari heabı aynı olanları bulmak istiyorum
( tablu yükleniilen kdv tablosu olup ebyn programı aynı tarihli aynı fatura nolu aynı cari hesaplı fatura verdır deyip beyannamemi kabul etmiyor. )

ister renkle isterse herhangi bir şekilde ama bulsun yeter ki

mesela fatura nosu 5 olan 2 fatura var ama carileri ve tarihleri aynı olamdığı için onları listelemesin veya boyamasın

01.01.09--- 5----ahmet ; 15.01.06 ---5 ---- hasan


ama
sarı renkide olduğu gibi olanları bulsun
05.01.09---10----ercan : 05.01.09---10----ercan
bana göstersni ister renkle isterse başka bir şekilde

çook acil yardım!!!!!!!!!!!!!
şimdiden yardımlarımnız için teşkkür ediyorum beni büyük bir dertten kurtarıyorsunuz .

Allah sizden razı olsun.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aynilaribul()
Dim sat As Long
Application.ScreenUpdating = False
    For sat = 2 To Cells(65536, "a").End(xlUp).Row
    Range(Cells(sat, "a"), Cells(sat, "c")).Interior.ColorIndex = xlNone
        If WorksheetFunction.CountIf([a:a], Cells(sat, "a")) > 1 And _
        WorksheetFunction.CountIf([b:b], Cells(sat, "b")) > 1 And _
        WorksheetFunction.CountIf([c:c], Cells(sat, "c")) > 1 Then
        Range(Cells(sat, "a"), Cells(sat, "c")).Interior.ColorIndex = 6
        End If
    Next
Application.ScreenUpdating = True
End Sub

 

[Orion1]

Koşullu biçimlendirme yapıldı.
A7:C7 aralığını aşağı doğru kopyaşlayınız.
Dosyanız ektedir.