Aynı olanları boyalama

[kemalist]

Arkadaşlar Merhaba;benim yapmak istediğim Sayfa2 deki E4:E50 arasındaki isimlerin Sayfa1 deki C4:C50 arasında aynı isimlerin şekilde görüldüğü gibi hücrelerinin " Yeşil " e boyanması. Bu işlemi Makro İle Nasıl Yapabiliriz?İlginiz için şimdiden teşekkür ederim.

Dosya Ektedir.

 

[Ömer BARAN]

Merhaba.

Anladığım kadarıyla koşullu biçimlendirme istiyorsunuz.
.

[FONT="Arial Narrow"]Sub YEŞİL_BOYA()
With Sheets("[B][COLOR="blue"]Sayfa1[/COLOR][/B]").Range("[B][COLOR="Blue"]C4:C50[/COLOR][/B]")
    .FormatConditions.Delete: .Interior.Color = xlNone
    .FormatConditions.Add Type:=xlExpression, Formula1:="=EĞERSAY([B][COLOR="Red"]Sayfa2!$E$4:$E$50[/COLOR][/B];$C4)>0"
    .FormatConditions(1).Interior.ColorIndex = 43
End With
End Sub[/FONT]

 

[kemalist]

Ömer Bey ilginize çok teşekkür ederim.Tam istediğim gibi olmuş.
İlave olarak sütun sayılarını artırabilirmiyiz?Yani Sayfa1 de C4 ile L50 ;Sayfa2 de E4 ile N50
olacak şekilde.

 

[Ömer BARAN]

Önceki cevabımdaki kod'da renklendirme yaptım;
--mavi kısımlar işlemin uygulanacağı alan,
-- kırmızı kısım ise kontrol edilecek alan.
Bunlarda değişiklik yaparak düzenleme yapabilirsiniz.
.

 

[kemalist]

Ömer Bey;İşlem tamam Teşekkür ederim...