- Katılım
- 12 Nisan 2012
- Mesajlar
- 533
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
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
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