sıra ile alttaki ile Aynı olanları renklendirerek gruplama

[euphrates55]

tabloya bakarak anlatmak istediğimi anlamak daha mümkün. teşekkürler...

 

[Muzaffer Ali]

Merhaba.

Sayfa adını sağ tıklatın "Kod Görüntüle" seçin aşağıdaki kodları açılan sayfaya kopyalayın.

E ve F kolonunda bir değişiklik olduğunda kodlar otomatik çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Kolonlar As String
    Dim Bak As Integer
    Dim Say As Integer
    Say = Cells(Rows.Count, "E").End(xlUp).Row
    If Not Intersect(Target, Range("E:F")) Is Nothing Then
        For Bak = 2 To Say
            If Cells(Bak, "E") = Cells(Bak - 1, "E") And Cells(Bak, "F") = Cells(Bak - 1, "F") Then
                Cells(Bak, "E").Interior.Color = Cells(Bak - 1, "E").Interior.Color
                Cells(Bak, "F").Interior.Color = Cells(Bak - 1, "E").Interior.Color
            Else
                If Cells(Bak - 1, "E").Interior.Color = 10086143 Then
                    Cells(Bak, "E").Interior.Color = 14348258
                    Cells(Bak, "F").Interior.Color = 14348258
                Else
                    Cells(Bak, "E").Interior.Color = 10086143
                    Cells(Bak, "F").Interior.Color = 10086143
                End If
            End If
        Next
    End If
End Sub

 

[euphrates55]

elinize sağlık. hızlı cevap için ayrıca teşekkürler.