Değeri Büyük Olan Hücreyi Renklendirmek

cavusabidin

Altın Üye
Katılım
8 Ocak 2015
Mesajlar
37
Excel Vers. ve Dili
Microsoft Office Professional Plus 2010
Altın Üyelik Bitiş Tarihi
13-01-2025
Merhaba ;

Nedenini bilmiyorum ama bu sorunun cevabını bildiğim halde unuttum ve bi türlü hatırlayamıyorum.

Koşullu biçimlendirmeden ekte ki tabloda L sütununda ki değerlerden hangileri E sütününda ki
değerden büyükse onu farklı bir renge boyamak istiyorum.

Yardımlarınızı rica ediyorum.
 

Ekli dosyalar

Emir Hüseyin Çoban

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,892
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
. . .

Aşağıdaki kodları 1 kez çalıştırarak deneyiniz.

Kod:
Sub kod()
    Range("B3:L50").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$L3>$E3"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True
End Sub
. . .
 

cavusabidin

Altın Üye
Katılım
8 Ocak 2015
Mesajlar
37
Excel Vers. ve Dili
Microsoft Office Professional Plus 2010
Altın Üyelik Bitiş Tarihi
13-01-2025
. . .

Aşağıdaki kodları 1 kez çalıştırarak deneyiniz.

Kod:
Sub kod()
    Range("B3:L50").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$L3>$E3"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True
End Sub
. . .
Hocam sağolasın, bütün satırlarda işe yaramıyor.
% 90 a yakın büyük olan satırları SARI ile boyuyor ancak % 10 luk bir kısmını atlıyor.
 

Emir Hüseyin Çoban

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,892
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
. . .

2. satırdaki
Select kodunu şu şekilde değiştirerek deneyiniz.

Kod:
 Range("B3:L" & Cells(Rows.Count, "B").End(3).Row).Select
. . .
 

cavusabidin

Altın Üye
Katılım
8 Ocak 2015
Mesajlar
37
Excel Vers. ve Dili
Microsoft Office Professional Plus 2010
Altın Üyelik Bitiş Tarihi
13-01-2025
Teşekkür ederim. Zahmet oldu
 

Emir Hüseyin Çoban

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,892
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
. . .

Diğer sayfalarda başlangıç satırlarınız aynı değil. Bu durumda kodlardaki satır no kısımlarını değiştirmelisiniz.

Kod:
    Range("B[B][COLOR="DarkRed"]4[/COLOR][/B]:L" & Cells(Rows.Count, "B").End(3).Row).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$L[COLOR="DarkRed"][B]4[/B][/COLOR]>$E[B][COLOR="DarkRed"]4[/COLOR][/B]"
. . .
 

cavusabidin

Altın Üye
Katılım
8 Ocak 2015
Mesajlar
37
Excel Vers. ve Dili
Microsoft Office Professional Plus 2010
Altın Üyelik Bitiş Tarihi
13-01-2025
Hocam Günaydın ;

Bi sorum daha olacak size.
Ben bu tabloyu bir rapordan alıp yorumlamak için kullanıyorum ancak örneğin sayfa 1 de 34. satırı sarıya boyamak istediğimde izin vermiyor. Gri olarak kalıyor.
Bu tip tablolarda satırı boyamayı engelleyen neyse ? bunu nasıl kaldırabiliyoruz ?
 

Emir Hüseyin Çoban

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,892
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
Oncelik kosullu bicimlendirmededir.
Bicimleri temizleme yapabiliriz.

.
 
Üst