Hücre renklendirme

[mereni]

Tablomda sütun aralığına göre koşullu biçimlendirme yapmak istiyorum.
Fakat koşullu biçimlendirme 3 adet var. Benim yedi adet koşula ihtiyacım var.

 

[Korhan Ayhan]

Selamlar,

Sayfanızdaki tüm koşullu biçimlendirmeleri silin.

E3:K18 hücrelerini seçip koşullu biçimlendirme menüsüne;

Hücre değeri - Eşit - 0 yazıp yazı rengini beyaz olarak ayarlayın.


L3 hücresine aşağıdaki formülü uygulayın. Alt satırlara sürükleyin.

=EĞERSAY(E3:K3;">0")

Sayfanızın kod bölümüne aşağıdaki kodu uygulayın. L sütununda her hücre seçiminizde renkler yeniden oluşacaktır. Kod içindeki kırmızı değerler renk kodlarıdır. Dilediğiniz gibi değiştirebilirsiniz.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim X As Long, Y As Byte
 
    If Intersect(Target, Range("L3:L65536")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Range("E3:K65536").Interior.ColorIndex = xlNone
 
    For X = 3 To Range("A65536").End(3).Row
        For Y = 5 To 11
            If Cells(X, Y) <> "" And Cells(X, Y) > 0 Then
                Select Case Cells(X, "L")
                    Case Is = 0
                        Cells(X, Y).Interior.ColorIndex = xlNone
                    Case Is = 1
                        Cells(X, Y).Interior.ColorIndex = [COLOR=red]7[/COLOR]
                    Case Is = 2
                        Cells(X, Y).Interior.ColorIndex = [COLOR=red]4[/COLOR]
                    Case Is = 3
                        Cells(X, Y).Interior.ColorIndex = [COLOR=red]6[/COLOR]
                    Case Is = 4
                        Cells(X, Y).Interior.ColorIndex = [COLOR=red]39[/COLOR]
                    Case Is = 5
                        Cells(X, Y).Interior.ColorIndex = [COLOR=red]45[/COLOR]
                    Case Is = 6
                        Cells(X, Y).Interior.ColorIndex = [COLOR=red]37[/COLOR]
                    Case Is = 7
                        Cells(X, Y).Interior.ColorIndex = [COLOR=red]43[/COLOR]
                End Select
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

 

[mereni]

Çok çok teşekkürler. Tam istediğim olmuş.

 

[mereni]

Korhan bey, bu yaptığımız tabloyu, kodsuz olarak excel 2007 de yapabilir miyiz.?Formül ile yapabilirsek süper olacak. Evde 2003 işte 2007 kullanıyorum. 2007 yide pek bilmiyorum.
Bu nedenle yardımcı olabilirseniz sevinirim. (L2 sütununda yazan rakamın, E1 ile k7 arsında ki hangi değerle aynı ise o satıra kadar renklensin. demek istiyorum)

 

[Korhan Ayhan]

Selamlar,

Excel 2007 ve sonrası için istediğiniz işlem formül ve koşullu biçimlendirme ile yapılabilir. Ekteki örnek dosyayı incelermisiniz.

 

[mereni]

süpersiniz. harika oldu. teşekkürler

 

[mereni]

=$L$=7;E3<>....


Koşullu biçimdeki yukarıdaki gibi başlayan formülü bana anlamını yazabilirmisiniz. Başka yerdede bu formülü kullanmak için anlamak istiyorum.(Şuan bilgisayarım 2003 o nedenle formülü tam yazamıyorum. Ama en kısa zamanda 2007 yükleteceğim.)

teşekkürler

 

[Korhan Ayhan]

Selamlar,

Renklendirmek istediğiniz alana verileriniz formül yardımı ile geliyor. Fakat bazı hücrelerin değeri 0 olduğu için siz zaten bu hücreleri beyaz yazı rengi ile görünmez yapmışsınız. Benim size önerdiğim formülde bu sıfır görünen hücreleri renklendirmemek için koşul kullandım.

=VE($L3=7;E3<>"";E3>0)

E3 hücresindeki koşulu analiz edelim;
VE fonksiyonu tüm koşulların kontrolü için kullanılmaktadır. İstenilen sonucu vemesi için parantez içindeki tüm koşulların sağlanması gerekir.

İlk koşulumuz L3 hücresi 7 değerine eşitmidir.
İkinci koşulumuz E3 hücresi boş hücre değilmidir.
Üçüncü koşulumuz E3 hücresi sıfırdan büyükmüdür.

İşte her hücre için bu sorgu işlemektedir. Üç sorguda olumlu ise biçimlendirme yapılmaktadır.

Umarım açıklamaların faydası olur.

 

[mereni]

Harika süpersiniz. Sizi izlemeye devam edeceğim.