A1 deki veriye göre sütun rengi

[oborono]

Merhabalar; VBA ile A1 Hücresine değişken Ay isimleri (OCAK, ŞUBAT.., ARALIK) girdikçe ayın ismine göre A2 den A22 arası hücrelerin renk değiştirmesini istiyorum.
A1 Hücresine OCAK yazdığında A2:A22 Hücreleri kırmızı, ŞUBAT yazdığında mavi gibi.
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
Bunu 12 sütuna kopyalama yapacağım.

 

[Tevfik_Kursun]

Merhaba,
A1 hücresinde ay seçimi yapmadan önce, sütun hangi renk olsun istiyorsanız A1 hücresini o renge boyayın, lütfen.
iyi çalışmalar
Silinebilir bağlantı A1 e Gore Boya

 

[oborono]

Merhaba,
A1 hücresinde ay seçimi yapmadan önce, sütun hangi renk olsun istiyorsanız A1 hücresini o renge boyayın, lütfen.
iyi çalışmalar
Silinebilir bağlantı A1 e Gore Boya

Hocam cevap için teşekkürler, isteğim bu şekilde değil. Her ayın farklı renkte olması gerekiyor. Sizin formülde Ay ismi değişse de renk aynı kalıyor.

 

[GursoyC]

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1].Value = "ocak" Then
Range("A2:A22").Interior.Color = vbRed
ElseIf [a1].Value = "şubat" Then
Range("A2:A22").Interior.Color = vbGreen
End If
End Sub

2 renge göre yaptım. diğerlerini elseif'lere devam ederek siz yaparsınız. vba'da sayfanın kod bölümüne yapıştırın.

 

[Tevfik_Kursun]

2 numaralı mesajı okumamışsınız

 

[oborono]

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1].Value = "ocak" Then
Range("A2:A22").Interior.Color = vbRed
ElseIf [a1].Value = "şubat" Then
Range("A2:A22").Interior.Color = vbGreen
End If
End Sub

2 renge göre yaptım. diğerlerini elseif'lere devam ederek siz yaparsınız. vba'da sayfanın kod bölümüne yapıştırın.

Hocam teşekkürler, bu istediğim gibi olmuş. Bu formüle A1 de Ay şeçili olmadığında renksiz olmasını ekleyebilir miyiz?
A1'i boş yaptığımda seçtiğim ayın rengi kalıcı olarak kalıyor.

 

[oborono]

2 numaralı mesajı okumamışsınız

Hocam okudum, silinebilir bağlantıdan dosyayı indirdim, o şekilde uygulamanızı denedim. Sizinki de güzel örnek lakin istediğim şekilde değil. Alakanız için çok teşekkür ederim.