sütun karşılaştırma

[yalovam77]

Merhaba
iki sütun karşılaştırma örnekleri var ama ekte örnek gönderdiğim 4 sütunu karşılaştırmayı yapamadım. Yardımcı olabilirmisiniz

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim Bak As Long
    Dim Say As Integer
    With ThisWorkbook.Worksheets("Sayfa1")
        For Bak = 2 To .Cells(Rows.Count, "D").End(xlUp).Row
            Say = WorksheetFunction.CountIfs(.Range("A:A"), .Cells(Bak, "D"), .Range("B:B"), .Cells(Bak, "E"))
            If Say = 0 Then
                .Cells(Bak, "F") = "Yok"
            Else
                .Cells(Bak, "F") = "Var"
            End If
        Next
    End With
End Sub