Otomatİk KoŞ.bİÇİm.

[RIKU]

Otomatik Koşullu Biçimlendirme

ArkadaŞlar Benİm Sorum ŞÖyle; A SÜtununda GÖrdÜĞÜnÜz Gİbİ İsİmler Var Ve Hemen SaĞindakİ İkİ SÜtunda Da Bazi Sayilar Mevcut. Benİm YapamadiĞim A SÜtununa İsİmlerİ Ve İlgİlİ Rakamlari Gİrİnce, A SÜtunundakİ İsİmlerle Alakali KoŞullu BİÇİmlendİrmelerİn Otomatİk Olarak Devreye Gİrmesİdİr. Burda Belkİ Problem Şu Olabİlİr, İsİmler Yanliz Bu 3 İsİmle Sinirli KalmayacaĞidir. Bunun İÇİn İlerde Çikabİlecek Extra İsİmler İÇİn De Uygun Bİr Kod Yazabİlİr Mİsİnİz? Şİmdİden Yardimci Olmaya ÇaliŞanlara TeŞekkÜrler.

 

[Mahmut Kök]

Siz anlatmışsınız ama ben anlamadım...

extra ( ! ) isimlere uygulanacak formül nedir? Yani, Mahmut diye biri ilave edilirse, ne olmasını istiyorsunuz? Veya Osman eklenirse koşul ne olacak? Daha açık ifade edebilirseniz ileride problem ( ! ) yaşamamanız için kafa yorabiliriz.

 

[RIKU]

İstediğim şöyle eklenen isimlere göre koşullu biçimlendirmeler çalışacak. Diğer söylediğim ise ilk defa eklenen isimlere göre kendim vba kısmında yeni isme göre tanımlama yapabilirmiyim?

 

[Ali]

Sn RIKU,Aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/showthread.php?t=15017

 

[Korhan Ayhan]

Selamlar,

İlk olarak sorunuzun başlığını düzeltebilirmisiniz. Aramalarda problem olmaması açısından.

Aşağıdaki kodu kullanmak istediğiniz sayfanın kod bölümüne uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
    
    If UCase(Replace(Replace(Target.Offset(0, -2), "ı", "I"), "i", "İ")) = "AHMET" And Target.Offset(0, -1) > Target Then
    Target.Offset(0, -2).Interior.ColorIndex = 3
    Else
    Target.Offset(0, -2).Interior.ColorIndex = xlNone
    
    If UCase(Replace(Replace(Target.Offset(0, -2), "ı", "I"), "i", "İ")) = "ALİ" And (Target.Offset(0, -1) + Target) > 50 Then
    Target.Offset(0, -2).Interior.ColorIndex = 4
    Else
    Target.Offset(0, -2).Interior.ColorIndex = xlNone
    
    If UCase(Replace(Replace(Target.Offset(0, -2), "&#305;", "I"), "i", "&#304;")) = "MEHMET" And Target.Offset(0, -1) < Target Then
    Target.Offset(0, -2).Interior.ColorIndex = 5
    Else
    Target.Offset(0, -2).Interior.ColorIndex = xlNone
    
    End If: End If: End If
End Sub

İsimler arttıkça kod içindeki aşağıdaki satırı kopyalayıp ismi değiştirmeniz ve "ColorIndex=5" şeklinde olan ifadenin sayısal değerini değiştirmeniz gerekecektir. Bu renk değeridir.

Ayrıca aşağıdaki satırı ne kadar kopyalarsanız kodun sonuna o kadar adet " :End If " ifadesi eklemeniz gerekmektedir.

    If UCase(Replace(Replace(Target.Offset(0, -2), "&#305;", "I"), "i", "&#304;")) = "MEHMET" And Target.Offset(0, -1) < Target Then
    Target.Offset(0, -2).Interior.ColorIndex = 5
    Else
    Target.Offset(0, -2).Interior.ColorIndex = xlNone

Örnek olarak koda "VELİ" isminide eklemek isterseniz kod aşağıdaki şekilde olmalıdır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
    
    If UCase(Replace(Replace(Target.Offset(0, -2), "ı", "I"), "i", "İ")) = "AHMET" And Target.Offset(0, -1) > Target Then
    Target.Offset(0, -2).Interior.ColorIndex = 3
    Else
    Target.Offset(0, -2).Interior.ColorIndex = xlNone
    
    If UCase(Replace(Replace(Target.Offset(0, -2), "ı", "I"), "i", "İ")) = "ALİ" And (Target.Offset(0, -1) + Target) > 50 Then
    Target.Offset(0, -2).Interior.ColorIndex = 4
    Else
    Target.Offset(0, -2).Interior.ColorIndex = xlNone
    
    If UCase(Replace(Replace(Target.Offset(0, -2), "&#305;", "I"), "i", "&#304;")) = "MEHMET" And Target.Offset(0, -1) < Target Then
    Target.Offset(0, -2).Interior.ColorIndex = 5
    Else
    Target.Offset(0, -2).Interior.ColorIndex = xlNone
    
    If UCase(Replace(Replace(Target.Offset(0, -2), "&#305;", "I"), "i", "&#304;")) = "VEL&#304;" And Target.Offset(0, -1) < Target Then
    Target.Offset(0, -2).Interior.ColorIndex = 6
    Else
    Target.Offset(0, -2).Interior.ColorIndex = xlNone
    
    End If: End If: End If: End If
End Sub

 

[RIKU]

Sayın Cost Control ve Sayın Fructose'a ayrı ayrı teşekkür ediyorum. Biraz geç oldu ama kusura bakmayın. Siteye geç girebildim. Konuyu değiştirmeye çalıştım . Umarım olmuştur. İyi Günlerrrr.