Hücrede a olanların background'unu mavi, b olanların background'unu kırmızı vs

[murbal]

Hücrede a olanların background'unu mavi, b olanların background'unu kırmızı vs. boyamaka istiyorum, conditional formating ancak 3 adet şart kabül ediyor, ancak benim sütunumda 6 adet seçenek var.

Örnek;
A1 sütununda a,b,c,d,e,f diye harfler var, ben yukarıda belirttiğim gibi a olanların background'unu mavi vs. boyamak istiyorum.

tşk,

 

[Ferhat Pazarçevirdi]

Aslında; koşullu biçimlendirme ile mantıken, 3 adet değil, 4 adet koşulu yerine getirebilirsiniz. Bunlardan Üç'ü koşullu biçimlendirme ile şekillenenler, diğeri ise hücrenin zaten varolan kendi biçimidir.

Daha fazlası için kodlardan faydalanmak lazım.

Aşağıdakileri, bahsettiğiniz değerlerin bulunduğu sheet'in, kod sayfasına kopyalayınız.

(1) Alt+F11 Basınız. (2) Sol taraftaki "Project-VBA Project" yazan pencere ilgili sayfayı çift tıklayınız. (3) Buradaki kodları yapıştırınız.

NOT : Bu örnek; sadece A1 hücresine değer girdiğinizide çalışır. Diğer hücrelerde çalışmaz. Eğer siz farklı bir hücrede veya aralıkta kullanacaksanız, Kodda kırmızı olarak belirtilen alanı değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [COLOR=red][B][A1][/B][/COLOR]) Is Nothing Then: Exit Sub
[COLOR=green]'If Intersect(Target, [A:A]) Is Nothing Then: Exit Sub'A kolonunda çalışır[/COLOR]
[COLOR=green]'If Intersect(Target, [A1:B20]) Is Nothing Then: Exit Sub 'A1 ile B20 arasında çalışır[/COLOR]
With Target
   Select Case .Value
          Case "a": .Interior.ColorIndex = 5
          Case "b": .Interior.ColorIndex = 3
          Case "c": .Interior.ColorIndex = 6
          Case "d": .Interior.ColorIndex = 7
          Case "e": .Interior.ColorIndex = 8
          Case "f": .Interior.ColorIndex = 9
          Case "g": .Interior.ColorIndex = 10
          Case "h": .Interior.ColorIndex = 11
          Case "j": .Interior.ColorIndex = 12
          Case Else: .Interior.ColorIndex = xlNone
   End Select
End With
End Sub

 

[Galus]

Sayın fpc,

Eğitici açıklamalarınız için teşekkürler..

 

[murbal]

Olmuyor, yapamadım

Sayın fpc,

örnek dosyayı ekte gönderiyorum, dediklerinizi yaptım ama çalıştıramadım, bir de bişi daha rica edeceğim,
* bu boyama işlemini en son sütun için yapsın istiyorum,
* ayrıca dosyayıda son sütuna göre küçükten büyüğe doğru sıralayabilirmiyiz.

ama en son eklediklerim zor ise ilk verdiğiniz kod çalışsa bile yeter...

Yardımlarınıza teşekkür ederim.

 

[murbal]

dosya

afedersiniz dosyayı eklemeyi unutmuşum...