Eşleştirme yapmak

[CerkesUmut]

Yukarıdaki linkte dosyam mevcut.

İstediğim şey, Sayfa 1 deki KDV tutarlarıyla Sayfa 2 deki KDV tutarlarında aynı olanların anlayacağım şekilde (renkli olması, kalın yazması vs) belirmesi.

Kdvleri tek tek eşleştirmek ve sayfa 1 de olanları 2 de sarıya boyamak çok zamanımı alıyor.

Otomatik yapmamın yöntemi var mıdır?


Tşkler!

 

[ÖmerBey]

Makro kullanabilirsiniz. Aşağıdaki kodu deneyiniz.

Sub denetle()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For i = 5 To s2.[C65500].End(3).Row
    deger1 = s2.Cells(i, "C") & s2.Cells(i, "D") & " " & s2.Cells(i, "E") & " " & s2.Cells(i, "F")
    For j = 7 To s1.[B65500].End(3).Row
        deger2 = s1.Cells(j, "B") & s1.Cells(j, "D")
        If Left(deger1, 30) = Left(deger2, 30) Then s2.Cells(i, "K").Interior.ColorIndex = 8
    Next
Next
End Sub

 

[Korhan Ayhan]

Dosya linki tarafımdan silinmiştir...

İçeriğinde kişisel bilgiler bulunduğu için silinmiştir.