iki sütun arasında karşılaştırma ve biçim verme

[stryker44]

Selam arkadaşlar.aranızda yeniyim ve excel paket programının mükemmelliğini daha fazla öğrenmek için bu foruma üye oldum.ve size bir sorum olacak.

ekte gönderdiğim çalışma kitabında özet sayfası kısmında iki sütunumuz var bunlar;
1-personel listesi
2-ofiste olanlar

bu iki sütundan ofiste olanlar sütununu her gün ofise gelenlere göre el ile değişmekteyim ve personel listesi sütunundaki isimlerle tek tek karşılaştırıp gri renge boyuyorum benim sorum ise bu yaptığım işlemi ekleyebileceğim bir buton ile tek bir komutla karşılaştırıp ikinci sütunda bulduğu isimlere göre boyama yapacak bir fonksiyon nasıl yapabilirim.şimdiden yerdımlarınız için çok minnettarım.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub renklendir()
Range("d3:d61").Interior.ColorIndex = 0
For Each sut1 In Range("c3:c61")
For Each sut2 In Range("d3:d61")
If sut1.Value = sut2.Value Then
sut2.Interior.ColorIndex = 15
End If
Next
Next
End Sub

 

[stryker44]

çok teşekkür ederim .emeğine sağlık.