VBA ile Yazı Rengini Hücre Değerine Göre Ayarlama

[ErolU]

Excel Versiyonu

Excel 2021

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Arkadaşlar,
D:5:H28 arasındaki satırların rengini B sütunundaki değere göre kırmızı yapmak istiyorum.
Yani
B5:B28 arasındaki hücrelerin hangilerinde 1 yazıyorsa D:5:H28 arasındaki satırlar kırmızı renkli olsun.
İşlemi makro ile bir butona bağlayarak yapmak istiyorum.
Ekli dosyada bir örnekle durumu açıklamaya çalıştım.
Yardımlarınızı rica ediyorum.

 

Kapalı Dosyada Aranan Firmaya Ait Verileri Alma

Hücreye Yazdıkça Çalışacak Makro Yazma

[okutkan]

Aşağıdaki kodu deneyin.

Görüntülemek için giriş yapmanız gerekmektedir.
(15 satır)

 

[ErolU]

okutkan,​

Teşekkür ederim, sorun çözülmüştür.
Kodda düşündüğünüz 1'e eşit olmayanların siyah olması ayrıca işime yaradı.
Sağ olun.

 

[Ömer BARAN]

@ErolU.
Bu işlem için makro / düğme vs kullanmaya gerek var mı?
Koşullu biçimlendirme işinizi görür.

-- D5:H28 aralığını seçip yazı rengini OTOMATİK/SİYAH olarak belirleyin.
-- Aynı aralık seçili durumdayken KOŞULLU BİÇİMLENDİRME >> FORMÜL KULLAN seçeneğinde
=$B5=1 formülünü uygulayıp KIRMIZI YAZI RENGİni seçerek işlemi tamamlayın.

 

[ErolU]

Ömer BARAN,​

Açıklama için teşekkürler.
Koşullu biçimlendirme yapamıyorum. İlgili alanda hücreye tıklayınca satır ve sütun renklendiren Worksheet_SelectionChange makrosu var.
Bu makro çalışınca yazılan koşullu biçimlendirmeyi siliyor.

 

[Ömer BARAN]

@ErolU.

Örnek belgenizde böyle bir kod yok sanırım.
Madem belgenizde Worksheet_SelectionChange kodu var, belki de;
koşula bağlı kırmızı renklendirme işlemi, bu kodun içerisine eklenecek birkaç kod satırıyla halledilmeli.

Kodları görmek lazım ama;
şu kodları, mevcut kodun son kısmına eklemek yeterli olabilir (Exit sub durumu varsa bakmak gerek)

Görüntülemek için giriş yapmanız gerekmektedir.
(7 satır)

 

[ErolU]

Ömer BARAN,​

Aslında dediğiniz gibi yapmak daha kısa bir yol olacak.
Ancak kodda tanımlanan bölgenin dışında bir yere tıklayınca biçimlendirme de siliniyor.
Verdiğiniz kodların da uygulandığı orijinal kodlar ekteki belgede.

 

[Ömer BARAN]

@ErolU.

İsteği ve mevcut kodlarınızın yaptığı işlemin tam olarak anlaşılması için;
mevcut Worksheet_Change kodunun tümünü (başlık ve end sub satırı dahil) geçici olarak PASİF hale getirin veya SİLİN.

Bunun yerine, şu kodu ekleyip denemeler yapın.
KIRMIZI yazı rengi konusunu sanırım tam anlayamadım, A sütunundaki 1'leri elle mi yazıyorsunuz, bir formülün sonucu mudur?

Bir öneri olarak da; tablo dışında olmak üzere her bir renklendirme türü için, birer hücreyi kılavuz olarak kullanabilirsiniz ve
bu kılavuz hücredeki renkleri elle istediğiniz gibi değiştirip, tablonuzdaki renkleri, makro koduna müdahale etmeden
daha esnek olarak belirleyebileceğinizi aklınızda tutun.
Örneğin BA1 hücresini başlık alanlarının olmasını istediğiniz renkle boyarsınız, BA2 hücresini tablo içinin olmasını istediğiniz renkle boyarsınız,
BA3'ü aktif hücrenin satırı ve sütunu için istediğiniz renkle boyarsınız ve makro renkleri bu kılavuz hücrelerden alabilir.

Görüntülemek için giriş yapmanız gerekmektedir.
(18 satır)

 

[ErolU]

Ömer BARAN,​

Gönderdiğiniz kodu aşağıdaki kodda çizgi ile gösterdiğim yerin altına eklediğim satırlarla destekleyince istediğim tam oldu.
Teşekkürler, sağ olun.

Son iletinizdeki öneri renklerde sürekli değiştirme yapmayacağım için dosyam gerekli değil.

KIRMIZI yazı rengi konusunu sanırım tam anlayamadım, A sütunundaki 1'leri elle mi yazıyorsunuz, bir formülün sonucu mudur?

Formülle geliyor değer.

Görüntülemek için giriş yapmanız gerekmektedir.
(30 satır)