Mükerrer Olan Kayıtların Raporda İşaretlenmesi Hk

[skaan]

Merhaba;
Hayırlı günler dileyerek söze başlamak istiyorum.
Bir tablom var ve bu tablo belge no sütunundan bulunan belge numaralarına göre sıralanmış durumda. Aynı olan belge numaraları altalta durmakta.
Alatalta olan bu belge numaraları kontrol edilecek altalta belge numarası tutuyor ise yanındaki tutar sütununa bakacak ve bu sutundakı tutar da aynı ise belge no sütununda ve tutar sütununda altalta duran aynı numaraların hücre rengi kırmızı renge boyanacak..
Kısaca belge no sütunundaki numaralar başlangıçtan aşağıya doğru altalta aynı olanların karsılarındakı tutarlarda kontrol edilecek ve altalta belge nolar aynı tutarlarda aynı ise belge numaralarının ve tutar sütunundaki numaraların hücre rengi kırmızıya boyanacak..
Örnek dosyam ektedir yardımcı olabilirminiz..

Hayırlı günler
Saygılarımla;
SKaan

 

[turist]

Makro başlığında konu açmışsınız, Koşullu biçimlendirme ile(Makro kullanmadan) çözümlü dosyanız eklidir.
Uygun gördüğünüz takdirde kullanabilirsiniz.

 

[veyselemre]

Sub test()
    son = Cells(Rows.Count, 4).End(3).Row
    Range("G4:H" & son).Interior.ColorIndex = xlNone
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For i = 4 To son
            key = Cells(i, "G").Value & "|" & Cells(i, "H").Value
            x0 = .Item(key)
            .Item(key) = x0 + 1
        Next i
        For i = 4 To Cells(Rows.Count, 4).End(3).Row
            key = Cells(i, "G").Value & "|" & Cells(i, "H").Value
            x0 = .Item(key)
            If x0 > 1 Then Cells(i, "G").Resize(1, 2).Interior.Color = vbRed
        Next i
    End With
End Sub

 

[skaan]

Yardımlarınız için çok teşekkür ederim..

Hayırlı günler dilerim..

SKaan