Koşullu biçimlendirme

Katılım
20 Ağustos 2009
Mesajlar
520
Excel Vers. ve Dili
2010 - Türkçe
selam ben 6 tane standart hücre değerini örneğin 1,2,3,4,5,6 değerlerini a1:c10 hücreleri arasındakileri renklendirmek istiorum ama en fazla 3 taneye izin veriyor. bunu nasıl çözerim acaba? teşekkür ederim.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,666
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Forumda koşullu+biçimlendirme şeklinde arama yapın. Bir çok örneğe ulaşabilirsiniz.
 
Katılım
20 Ağustos 2009
Mesajlar
520
Excel Vers. ve Dili
2010 - Türkçe
bulamadım cvp verebilirseniz ço makbule geçecek örneğin hücrede 1 yazdıgımda sarı olsun 2 de kırmızı 3 de siyah 4 te yeşil 5 de beyaz.. yardımlarınızı bekliyorum...
 
Katılım
20 Ağustos 2009
Mesajlar
520
Excel Vers. ve Dili
2010 - Türkçe
teşekkür ederim son kez makro ile butona bastıgımda seçtiğim aralığın rengini ayarlaya bilirmiyim? örneğin, a1:b5 hücrelerinin rengi düğmeye bastıgımda mavi olsun mesela..
 
Katılım
9 Şubat 2010
Mesajlar
4
Excel Vers. ve Dili
office 2007
çoklu koşullu biçimlendirme

Merhaba,
arkadaşlar lütfen yardım edin.
ekte gerekli açıklamayı yaptım.
saygılar.
 

Ekli dosyalar

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Dosyanız 2007 olduğu için açamadık, olayı bu şekilde anladım, kodları kendinize göre uyarlayınız.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:c10]) Is Nothing Then Exit Sub
If Target = 1 Then Target.Interior.ColorIndex = 3
If Target = 2 Then Target.Interior.ColorIndex = 4
If Target = 3 Then Target.Interior.ColorIndex = 5
End Sub
 
Katılım
9 Şubat 2010
Mesajlar
4
Excel Vers. ve Dili
office 2007
özür dilerim

Dosyanız 2007 olduğu için açamadık, olayı bu şekilde anladım, kodları kendinize göre uyarlayınız.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:c10]) Is Nothing Then Exit Sub
If Target = 1 Then Target.Interior.ColorIndex = 3
If Target = 2 Then Target.Interior.ColorIndex = 4
If Target = 3 Then Target.Interior.ColorIndex = 5
End Sub
seyit bey ekte 2003 olarak kaydettim.ilginize teşekkür ederim.
saygılar
 

Ekli dosyalar

Üst