3 ten fazla koşullu biçimlendirme yapılabilir mi?

[ali semerci]

koşullu biçimlendirmede 3 fazla biçimlendirme nasıl kullanırım?
teşekkür ederim. :?

 

[Haluk]

3' ten fazla kullanamazsınız.

 

[ali semerci]

teşekkür ederim haluk bey, keşke olsaydı...

 

[Kemal Demir]

şöle bir şey geldi aklıma Ustadlar neder bilemem ama ben fikrimi paylaşmak istedim

Yazacaklarım B kolonu ıcın gecerlidir.

Sub Koşullubiçim()
For k = 2 To 500

If Range("b" & k).Value = "deneme" Then
Range("b" & k).Interior.ColorIndex = 3
End If
If Range("b" & k).Value = "deneme1" Then
Range("b" & k).Interior.ColorIndex = 5
End If

If Range("b" & k).Value = "deneme2" Then
Range("b" & k).Interior.ColorIndex = 7
End If

If Range("b" & k).Value = "deneme3" Then
Range("b" & k).Interior.ColorIndex = 9
End If
.
.
.
.
.
.
.
.

Next
End Sub


Umarım Doğru Þeyden bahsetmısımdır.

 

[Kemal Demir]

yazdıklarım sadece renklendırmek ıcındir.

 

[ali semerci]

Sayın Rakkas, birazcık açıklarsanız sevinirim... çünkü tam anlamadım formülü.

 

[Kemal Demir]

Sn. Semerci Bir dosya yolarsanız belkı bakabilirim.Belki Elimden Birşey gelebilir.

Dosya Üzerinde Yaparak(Yapabilirsem) anlatsam zannedersem daha Sağlıklı olur.

 

[Kemal Demir]

Yukarıda kodda ise b kolonunda Farklı ifadeler İçin Belirmek maksadıyla(Renklendirme) Ã?rneği verilmişti.

 

[ali semerci]

sayın rakkas

dosya ektedir...

 

[Kemal Demir]

boya

umarım işine yarar

 

[ali semerci]

Çok teşekkür ederim, elbette işime yarayacak. Umarım, başkalarının da işine yarar ve emeklerinizin karşılığı çoğalır. İyilik çabuk çoğalır, bilirsiniz.

 

[ali semerci]

Bir şey daha, satırları sonuna kadar değil de sadece işlem gören sütuna kadar boyasa. Çok şey değil, değil mi?

 

[Haluk]

kodlardaki;

Rows(d).Interior.ColorIndex = 3

gibi olan satırları, aşağıdaki gibi değiştirin.

Range("a" & d & ":e" & d).Interior.ColorIndex = 3

Yani, renklindirmek üzere bütün satırı tarif eden Rows(d) ifadesi yerine,

A ve E sütunları arasını belirten;

Range("a" & d & ":e" & d)

ifadesini kullanın.

 

[ali semerci]

çok teşekkür ederim. burasını çok seviyorum. herkese ulaşıyorum burasının reklamı için.