4.Koşullu Biçimlendirme olur mu?

[mavi674]

Selam,
Ofis 2003 kulanıyorum.
Koşullu Biçimlendirme yapıyorum ama en fazla 3 biçimlendirme sınırı var
Acaba 4. koşullu biçimlendirme yapılabilinir mi macro ile mesela....
Şimdiden ilgilenen herkese teşekkürlerimi sunuyorum
İyi günler

 

[hasankardas]

Selam
Makro ile koşullu biçimlendirme yapabilirsiniz.

 

[Korhan Ayhan]

Merhaba,

Forumdaki örnekleri deneyebilirsiniz.

https://www.excel.web.tr/threads/6-kosullu-bicimlendirme-formuelle.34833/

https://www.excel.web.tr/threads/56-kosula-goere-bicimlendirme.15017/

https://www.excelgurusu.com/56-kosullu-bicimlendirme/

 

[mavi674]

Teşekkürler

 

[mavi674]

Selam Korhan bey
linkleri dünden beri inceledim, çok yararlı oldu teşekkürler
Bu doğrultuda bir sorum olacak.
Tablomda otomatik değişken sayılar var.
G5:AK15 arasını kontrol etmek istiyorum
Sorun şu
sayılar değişiyor ama renklenme olmuyor
illa enter ile girince oluyor
Acaba enter a basmadan bu değişen sayıları algılar mı?
Teşekkürler

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo ws_exit:
Set rng = Application.Intersect(Target, Me.Range("G5:AK15"))

If rng Is Nothing Then Exit Sub
With Target
Select Case LCase(.Value)

Case Is = "1": .Interior.ColorIndex = 33
Case Is = "2": .Interior.ColorIndex = 33
Case Is = "3": .Interior.ColorIndex = 33
Case Is = "4": .Interior.ColorIndex = 33
Case Is = "5": .Interior.ColorIndex = 33

Case Else
.Interior.ColorIndex = xlNone
End Select
End With

ws_exit:
End Sub

 

[Korhan Ayhan]

Kullanılan Private Sub Worksheet_Change(ByVal Target As Range) olayında sayfada elle veri değişimi yapılınca kod devreye girmektedir.

Eğer hücreler formülle güncelleniyorsa aşağıdaki olayı kullanmanız daha uygun olacaktır.

Private Sub Worksheet_Calculate()

 

[mavi674]

selam
dediğinizi yaptım olmadı.
makroda da değişiklik gerekiyor galiba
Target hata veriyor.
bu şekilde hücreye veri girişinde çalışacak zannedersem.
Ama ben hesaplamalı olsun istiyorum
5.mesajdaki makroyu bu şekilde değiştirebilir miyiz

 

[Korhan Ayhan]

Forumda verdiğim olayla ilgili örnekler var. Araştırma yaparak denemeler yapabilirsiniz.

 

[mavi674]

Selamlar;
Kaç günden beri formdaki örnekleri inceledim çok faydalı şeyler öğrendim ama istediğimi hala oluşturamadım.
Bu bakımdan tekrar yardımlarınızı bekliyorum..

g5:h13 alanında koşullu biçimlendirme var. Ancak 3 koşul da dolu...
İstediğim formüllerle dolu bu alan içerisinde
1-"2" sayılarını,
2-"5 ve 10 arası sayıları ve
3-a1 hücresindeki sayı değeri
formül sonucu çıkan sayılar yukarıdaki koşullara uyunca renklensin
Teşekkürler...

 

[Korhan Ayhan]

Örnek dosya paylaşabilirmisiniz..

 

[mavi674]

Selam
eve gidince örnek dosya göndereyim...

 

[mavi674]

Selam
örnek dosya

ÖRNEK.xls indir

Dosyayı indir, full download - ÖRNEK.xls

www.dosyaupload.com

Örneğe göre kraterler:
g7:ak15 alanında sayıların kontrolü yapılacak.
1-"3" rakamlarını sarı,
2-"5 ve 10 arası sayıları yeşil ve
3-ag2 hücresinden sorgulanan rakamı da kırmızı fontu da beyaz olarak renklensin
Şimdiden teşekkürlerimi sunuyorum...

 

[Korhan Ayhan]

AG2 hücresinde bir değer göremedim..

Birde G7:AK15 demişsiniz. Gün satırını da koşula dahil etmişsiniz. Sanki G8:AK15 aralığı olması gerekiyor gibi görünüyor..

 

[mavi674]

pardon
G8:AK15 olacak siz doğru yazmışsınız kusura bakmayın
AG2 hücresine de 4 yazmıştım. bu değişebilir sorgulanacak rakam girilecek

 

[Korhan Ayhan]

Paylaştığınız dosyada AG2 hücresi boş görünüyor..

Neyse ben kodu paylaşayım siz kendinize göre gerekli revizeyi yaparsınız..

Private Sub Worksheet_Calculate()
    Dim My_Area As Range, Rng As Range
    
    Set My_Area = Range("G8:AK15")
    
    Sheets("İCMAL").Unprotect Password:=""
    
    My_Area.Interior.ColorIndex = xlNone

    For Each Rng In My_Area
        If Rng.Value = 3 Then Rng.Interior.ColorIndex = 6
        If Rng.Value >= 5 And Rng.Value <= 10 Then Rng.Interior.ColorIndex = 4
    Next

    Sheets("İCMAL").Protect Password:=""
End Sub

 

[mavi674]

Çok Teşekkürler
koşullu biçimlendirme ile aynı anda kullanamadım.
Artık koşullu biçimlendirmeyi silip sizin kodlu kullanacağım
ellerinize sağlık

 

[mavi674]

Cumartesi ve Pazarları
koşullu biçimlendirme ile sarı renklendiği için buraya denk gelen rakamları kod renklendiremiyor.
Herhalde öncelik koşullu biçimlendirmede.