Koşullu Biçimlendirme

[sukruyilmaz1]

Merhabalar Sayın Uzmanlarım,

Ekli dosyada tiplere göre renklendirme yapmak istiyorum. Hücre içindeki yazılara göre istediğim renkleri nasıl verebilirim?

Şimdiden çok teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne uygulayınız.

Bir hücreye tıkladığınızda işlem gerçekleşecektir.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim X As Long, Y As Integer, Bul As Range
    
    Application.ScreenUpdating = False
    
    For X = 3 To 18 Step 3
        For Y = 4 To 44 Step 4
            Set Bul = Range("A28:A35").Find(Cells(X, Y), , , xlWhole)
            If Not Bul Is Nothing Then
                Cells(X, Y - 1).Resize(2, 2).Interior.Color = Bul.Offset(, 2).Interior.Color
            Else
                Cells(X, Y - 1).Resize(2, 2).Interior.Color = xlNone
            End If
        Next
    Next
    
    Set Bul = Nothing

    Application.ScreenUpdating = True
End Sub

 

[sukruyilmaz1]

Merhaba,

Sayfanızın kod bölümüne uygulayınız.

Bir hücreye tıkladığınızda işlem gerçekleşecektir.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim X As Long, Y As Integer, Bul As Range
   
    Application.ScreenUpdating = False
   
    For X = 3 To 18 Step 3
        For Y = 4 To 44 Step 4
            Set Bul = Range("A28:A35").Find(Cells(X, Y), , , xlWhole)
            If Not Bul Is Nothing Then
                Cells(X, Y - 1).Resize(2, 2).Interior.Color = Bul.Offset(, 2).Interior.Color
            Else
                Cells(X, Y - 1).Resize(2, 2).Interior.Color = xlNone
            End If
        Next
    Next
   
    Set Bul = Nothing

    Application.ScreenUpdating = True
End Sub

çok teşekkür ederim @Korhan Ayhan bey.