• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Koşullu Hücre Rengini Belirleme

  • Konbuyu başlatan Konbuyu başlatan akmes
  • Başlangıç tarihi Başlangıç tarihi
A

akmes

Katılım
27 Mayıs 2010
Mesajlar
527
Excel Vers. ve Dili
Excel 2003 Turkçe
Merhaba,ekteki excel dosyasından da anlaşılacağı gibi S ve U sütunlarındaki hücreleri aşağıdaki olasılıklara göre renklendirmek istiyorum.Ama işin içinden çıkamadım yardımınızı rica ediyorum.


C5 1 ise (1 harici bir durumda asla çalışmayacak) H5 değeri 0 (sıfır) dan büyük ise I5 in değeri 0 (sıfır) dan büyük ise renk ..................... lacivert
C5 1 ise (1 harici bir durumda asla çalışmayacak) H5 yada I5 ten herhangi birisi 0 ( sıfır yada küçük) ise renk ..................... mavi


C5 2 ise (2 harici bir durumda asla çalışmayacak) H5 değeri 0 (sıfır) dan büyük ise I5 in değeri 0 (sıfır) dan büyük ise renk ..................... lacivert
C5 2 ise (2 harici bir durumda asla çalışmayacak) H5 yada I5 ten herhangi birisi 0 ( sıfır yada küçük) ise renk ..................... mavi


C5 1 veya 2 ise (1 ve 2 harici değerde yada C5 boş olursa çalışmayacak) H5 değeri 0 (sıfır) dan büyük ise I5 in değeri 0 (sıfır) dan büyük ise renk.....................lacivert
C5 1 veya 2 ise (1 ve 2 harici değerde yada C5 boş olursa çalışmayacak) H5 değeri 0 (sıfır) dan büyük ise I5 in değeri 0 (sıfır) dan büyük ise renk.....................lacivert

olayımız bu 3 temelden yürüyor. ilk grubu ev sahibi 2 grubu deplasman 3 gurubuda hem ev hem deplasman totali olarak düşünebiliriz.
 

Ekli dosyalar

Merhaba,

Son koşulunuzu sanki iki kez yazmışsınız.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayın.

Kod: 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row < 5 Then Exit Sub
    
    Cells(Target.Row, "S").Interior.ColorIndex = xlNone
    Cells(Target.Row, "U").Interior.ColorIndex = xlNone
    
    On Error GoTo Son
    
    If Cells(Target.Row, "C") = 1 And Cells(Target.Row, "H") > 0 And Cells(Target.Row, "I") > 0 Then
        Cells(Target.Row, "S").Interior.ColorIndex = 5
    End If
    If Cells(Target.Row, "C") = 1 And (Cells(Target.Row, "H") <= 0 Or Cells(Target.Row, "I") <= 0) Then
        Cells(Target.Row, "U").Interior.ColorIndex = 37
    End If
    If Cells(Target.Row, "C") = 2 And Cells(Target.Row, "H") > 0 And Cells(Target.Row, "I") > 0 Then
        Cells(Target.Row, "S").Interior.ColorIndex = 5
    End If
    If Cells(Target.Row, "C") = 2 And (Cells(Target.Row, "H") <= 0 Or Cells(Target.Row, "I") <= 0) Then
        Cells(Target.Row, "S").Interior.ColorIndex = 37
    End If
    If (Cells(Target.Row, "C") = 1 Or Cells(Target.Row, "C") = 2) And Cells(Target.Row, "H") > 0 And Cells(Target.Row, "I") > 0 Then
        Cells(Target.Row, "S").Interior.ColorIndex = 5
    End If
Son:
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row < 5 Then Exit Sub
    
    Cells(Target.Row, "S").Interior.ColorIndex = xlNone
    Cells(Target.Row, "U").Interior.ColorIndex = xlNone
    
    On Error GoTo Son
    
    If Cells(Target.Row, "C") = 1 And Cells(Target.Row, "H") > 0 And Cells(Target.Row, "I") > 0 Then
        Cells(Target.Row, "S").Interior.ColorIndex = 5
    End If
    If Cells(Target.Row, "C") = 1 And (Cells(Target.Row, "H") <= 0 Or Cells(Target.Row, "I") <= 0) Then
        Cells(Target.Row, "U").Interior.ColorIndex = 37
    End If
    If Cells(Target.Row, "C") = 2 And Cells(Target.Row, "H") > 0 And Cells(Target.Row, "I") > 0 Then
        Cells(Target.Row, "S").Interior.ColorIndex = 5
    End If
    If Cells(Target.Row, "C") = 2 And (Cells(Target.Row, "H") <= 0 Or Cells(Target.Row, "I") <= 0) Then
        Cells(Target.Row, "S").Interior.ColorIndex = 37
    End If
    If (Cells(Target.Row, "C") = 1 Or Cells(Target.Row, "C") = 2) And Cells(Target.Row, "H") > 0 And Cells(Target.Row, "I") > 0 Then
        Cells(Target.Row, "S").Interior.ColorIndex = 5
    End If
Son:
End Sub
 
Korhan Ayhan' Alıntı:
Merhaba,

Son koşulunuzu sanki iki kez yazmışsınız.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayın.

Kod: 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row < 5 Then Exit Sub
    
    Cells(Target.Row, "S").Interior.ColorIndex = xlNone
    Cells(Target.Row, "U").Interior.ColorIndex = xlNone
    
    On Error GoTo Son
    
    If Cells(Target.Row, "C") = 1 And Cells(Target.Row, "H") > 0 And Cells(Target.Row, "I") > 0 Then
        Cells(Target.Row, "S").Interior.ColorIndex = 5
    End If
    If Cells(Target.Row, "C") = 1 And (Cells(Target.Row, "H") <= 0 Or Cells(Target.Row, "I") <= 0) Then
        Cells(Target.Row, "U").Interior.ColorIndex = 37
    End If
    If Cells(Target.Row, "C") = 2 And Cells(Target.Row, "H") > 0 And Cells(Target.Row, "I") > 0 Then
        Cells(Target.Row, "S").Interior.ColorIndex = 5
    End If
    If Cells(Target.Row, "C") = 2 And (Cells(Target.Row, "H") <= 0 Or Cells(Target.Row, "I") <= 0) Then
        Cells(Target.Row, "S").Interior.ColorIndex = 37
    End If
    If (Cells(Target.Row, "C") = 1 Or Cells(Target.Row, "C") = 2) And Cells(Target.Row, "H") > 0 And Cells(Target.Row, "I") > 0 Then
        Cells(Target.Row, "S").Interior.ColorIndex = 5
    End If
Son:
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row < 5 Then Exit Sub
    
    Cells(Target.Row, "S").Interior.ColorIndex = xlNone
    Cells(Target.Row, "U").Interior.ColorIndex = xlNone
    
    On Error GoTo Son
    
    If Cells(Target.Row, "C") = 1 And Cells(Target.Row, "H") > 0 And Cells(Target.Row, "I") > 0 Then
        Cells(Target.Row, "S").Interior.ColorIndex = 5
    End If
    If Cells(Target.Row, "C") = 1 And (Cells(Target.Row, "H") <= 0 Or Cells(Target.Row, "I") <= 0) Then
        Cells(Target.Row, "U").Interior.ColorIndex = 37
    End If
    If Cells(Target.Row, "C") = 2 And Cells(Target.Row, "H") > 0 And Cells(Target.Row, "I") > 0 Then
        Cells(Target.Row, "S").Interior.ColorIndex = 5
    End If
    If Cells(Target.Row, "C") = 2 And (Cells(Target.Row, "H") <= 0 Or Cells(Target.Row, "I") <= 0) Then
        Cells(Target.Row, "S").Interior.ColorIndex = 37
    End If
    If (Cells(Target.Row, "C") = 1 Or Cells(Target.Row, "C") = 2) And Cells(Target.Row, "H") > 0 And Cells(Target.Row, "I") > 0 Then
        Cells(Target.Row, "S").Interior.ColorIndex = 5
    End If
Son:
End Sub
Genişletmek için tıkla ...

Üstadım çok teşekkür ederim.Elinize, emeğinize sağlık.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst