koşullu biçimlendirme

[haydarturna]

merhaba
sitenizi çok faydalı buluyorum. Her seviyede excel kullanıcısı kendine çözümler bulabiliyor. Benim sorum şu:

EĞER fonksiyonu kullanılarak örneğin "şu değer veya şu kelimenin geçtiği hücreleri şu renkle renklendir" veya "kelimeleri şu renkle renklendir". Ama koşullu biçimlendirmeden bahsetmiyorum.

 

[Korhan Ayhan]

Selamlar,

Bu işlemi fonksiyonlar ile yapamazsınız. Ama makro kullanarak hücreleri istediğiniz koşula bağlı olarak renklendirebilirsiniz. Örnek bir dosya eklermisiniz.

 

[haydarturna]

örnek dosya

dosyayı ekte gönderiyorum
renkli alanları manuel olarak boyadım

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklemişsiniz fakat açıklama yapmamışsınız. Sizin elle renklendirdiğiniz alanlar hangi koşula göre renklenecek?

 

[haydarturna]

sayın cost

renkli alanın bulunduğu sütüna örneğin "eğer 253 ise kırmızıya boya "
şeklinde bir formül yazabilirmiyiz?

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanız üzerinde gerekli düzenlemeyi yaptım incelermisiniz. RENKLENDİR butonuna bastığınızda size kod sorulacak yazacağınız kod D sütununda aranacak ve bulunduğunda font rengi kırmızı olarak renklenecektir. İsterseniz zemin rengide verilebilir. Umarım işinize yarar.

 

[mozzeybek]

Selamlar,

kodunuzdaki satır

SAY = WorksheetFunction.CountIf([D465536], KOD)

ilgili sütün da rakamlar yerine tarihler olsa ve örneğin girilen bir tarihten küçük olanlar için olacak şekilde istense bu satır nasıl değiştirilmeli?

Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki örnek dosyadaki kodları aşağıdaki ile değiştirip denermisiniz.

Sub RENKLENDİR()
    TARİH = Application.InputBox("LÜTFEN TARİH GİRİNİZ...")
    TARİH = CDate(TARİH)
    If IsDate(TARİH) = False Then GoTo SON1
    If TARİH = False Then GoTo SON2
    If TARİH = "" Then
    MsgBox "LÜTFEN TARİH GİRİNİZ !", vbCritical, "DİKKAT !"
    Exit Sub
    End If
    TARİH = Replace(Format(TARİH, "#,##0"), ".", "")
    SAY = WorksheetFunction.CountIf([D4:D65536], "<" & TAR&#304;H)
    If SAY = 0 Then
    MsgBox "G&#304;RD&#304;&#286;&#304;N&#304;Z TAR&#304;H BULUNAMAMI&#350;TIR.", vbInformation, "UYARI !"
    Exit Sub
    End If
    [D4:D65536].Font.ColorIndex = 0
    TAR&#304;H = Format(TAR&#304;H, "dd.mm.yyyy")
    For X = 4 To [D65536].End(3).Row
    H&#220;CRE = "" & Cells(X, 4)
    If H&#220;CRE < TAR&#304;H Then Cells(X, 4).Font.ColorIndex = 3
    Next
    MsgBox "&#304;&#350;LEM TAMAMLANMI&#350;TIR.", vbInformation
    Exit Sub
SON1:
    MsgBox "HATALI TAR&#304;H G&#304;R&#304;&#350;&#304; !", vbCritical, "D&#304;KKAT !"
    Exit Sub
SON2:
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z &#304;PTAL ED&#304;LM&#304;&#350;T&#304;R.", vbExclamation, "UYARI !"
End Sub

Sub RENG&#304;_KALDIR()
    [D4:D65536].Font.ColorIndex = 0
End Sub