Farklı numara olması durumunda

[1903emre34@gmail.com]

Merhabalar,

G2 hücresine, 260 ve H2 hücresine 3,15 yazıldığı zaman C sütunda ki rakamların H2 hücresinde yazılan sayılardan farklı ise satırın yeşile renge dönüşmesini istiyorum, nasıl kod oluşturabiliriz ?

 

[Necdet]

Merhaba,

G2 hücresi ile A sütununda bir ilişki var mı?

 

[1903emre34@gmail.com]

Merhaba,

Evet, ilişki durum bulunmaktadır.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Renklendir()
    
    Dim a, c As Range, Adr As String, i As Byte, s As Byte, s1 As Byte

    Range("A2:C" & Rows.Count).Interior.ColorIndex = 0
    
    a = Split(Range("H2"), ",")
    With Range("A:A")
        Set c = .Find(Range("G2") & "*", , xlValues, xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                s = UBound(a) + 1: s1 = 0
                For i = 0 To UBound(a)
                    If Cells(c.Row, "C") <> Val(a(i)) Then
                        s1 = s1 + 1
                    End If
                    If s = s1 Then
                        Cells(c.Row, "A").Resize(1, 3).Interior.ColorIndex = 10
                    End If
                Next i
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
    
End Sub

Necdet Bey, ben G2 ile A sütunu ilişkilendirerek hazırlamıştım. Sizin sorunuzu yeni gördüm.

.

 

[1903emre34@gmail.com]

Teşekkürler, Ömer bey,

Hayırlı günler