koşula göre hücre renklendirme

[bitmez13]

a1 hücresine AS yazdığımda a2:b15 ekadarki aralıklarda hücre içeriği AS olan hücreler yeşil olsun AF yazdığımda aynı aralıktaki AF yazan hücreler kırmızı olsun buna benze 10 farklı değere göre formül yazabilirmiyiz

 

[asi_kral]

Merhaba
Tüm koşullar için ayrı renk mi olacak. Ayrıca kod değiştiğinde diğer renkler ne olacak kayıp mı olacak yoksa olduğu gibi duracak mı_?
Bir de tüm koşulları yazın. Renkleri de yazın. Ve herşeyden önemlisi dosya ekleyin.

 

[bitmez13]

örnek ektedir

 

[bitmez13]

yardım edecek yokmu

 

[Korhan Ayhan]

Merhaba,

Koşul sayınız 3 ten fazla olduğu için size makro kullanmanızı öneriyorum.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayınız. A1 hücresine veri girip deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Renk As Byte, Alan As Range, Bul As Range, Adres As String
    
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Select Case UCase(Target)
        Case "AK"
            Renk = 3
        Case "AS"
            Renk = 5
        Case "AF"
            Renk = 10
        Case "AT"
            Renk = 6
        Case "AY"
            Renk = 15
        Case "AZ"
            Renk = 46
    End Select
    
    Set Alan = Range("B2:N30")
    Alan.Interior.ColorIndex = xlNone
    
    Set Bul = Alan.Find(UCase(Target), , , xlWhole)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
            Bul.Interior.ColorIndex = Renk
            Set Bul = Alan.FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
End Sub