Benzer Veriyi Şartlı Kaydetme

[seddur]

Merhaba.Aşağıdaki kod "A" sutunundaki aynı veriyi 2. kez kaydetmiyor.Yapmak istediğim "A" ve "B" sutunundaki veri aynı ise kaydetmesin,"A" sutunu aynı "B" sutunu farklı ise yeni kayıt yapsın.Yardımcı olursanız sevinirim.


Private Sub ListView1_Click()
Set s1 = Sheets("Kayıt")
i = s1.Cells(Rows.Count, "a").End(xlUp).Row + 1
If WorksheetFunction.CountIfs(s1.Range("A:A"), UserForm2.ListView1.SelectedItem.SubItems(1)) = 0 Then
s1.Cells(i, "a") = UserForm2.ListView1.SelectedItem.SubItems(1)
s1.Cells(i, "b") = ActiveSheet.Range("s7")
End if