Aralıktaki Yinelenen Değerleri Başka Aralıkta Boyamak

[ErolU]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Arkadaşlar,
Worksheet_Change makrosu altında çalışacak biçimde aşağıdaki gibi bir makro nasıl oluşturulabilir?

A8:A67 aralığında yinelenen değer/ler varsa (boş hücreler hariç) E8:E67 aralığındaki ilgili hücreyi/hücreleri boyasın.
Örneğin A29 ve A36 yinelenen değer içeriyorsa E29 ve E36 hücreleri boyansın.

 

Makro Ile Listboxtan Çıktı Alma

Kodlarda Revize Mevcut Kod Çalışmıyor

[cakarem]

Örnek dosya yüklemediniz ben de kodu anlatayım yeterli olur sizler için.
Worksheet change kısmında ilgili değeri ilgili aralıkta eğersay ile saydırıp 1 den fazla ise istenilen sayfadan boyanması sağlanabilir.
Vba daki eğersay -> Countif

 

[Ömer BARAN]

Soru gözden kaçmış olmalı.
Neden Worksheet_Change olayı istiyorsunuz, doğrusu anlamlandıramadım.

-- İsteğiniz; E8:E67 aralığını seçip, =EĞERSAY($A$8:$A$67;$A8)>1 formülüyle KOŞULLU BİÇİMLENDİRME uygulayarak gerçekleştirilebilir.
-- İşlem ille de kod ile gerçekleşecek ve A8:A67 aralığına elle veri girişi yapılıyorsa aşağıdaki kodu kullanabilirsiniz.
-- Şayet A sütunundaki değerler formül sonucunda oluşuyorsa;

ya Worksheet_Change kodu yerine Worksheet_Calculate kodu kullanmanız,​

ya da A sütunundaki formüller hangi alanlardan etkileniyorsa, koddaki Intresect(Target, ........) kısmında bu alanlara atıf yapmanız,​

doğru olur.

İndirmek için giriş yapmanız gerekmektedir.
(7 satır)

 

[ErolU]

Ömer BARAN,​

Denedim, kod işlemi hatasız yapabiliyor.
Açtığım konuda yanlış düşündüğüm bir durumdan dolayı konuyu devam ettirmemiştim.
Çözümünüz için teşekkürler.