silme butonu sorunu

[Costcost]

Merhabalar,
listview'e kayıt ettiğim bilgilerin hepsini silmek istediğim zaman, mükerrer kayıt için kullandığım kodda hata veriyor. hata veren kısım: "If Target <> "" And WorksheetFunction.CountIf(Range("d6:d105"), Target) > 1 Then " . sorunu çözümedim. değerli yardımlarınızı bekliyorum. şimdiden teşekkürler.


kodlar aşağıda.

'mükerrer kayıt.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [d6:d105]) Is Nothing Then Exit Sub
'If sil59 = True Then Exit Sub ' -----> bu kısmı kullanmıyorum. bu siteden buldum kodu.
If Target <> "" And WorksheetFunction.CountIf(Range("d6:d105"), Target) > 1 Then
MsgBox "mükerrer kayıt var !...": Target = "": Target.Activate
End If
End Sub


'hepsini silme butonu // listviewde yer alan tüm kayıtlı listeyi siliyor.
Private Sub CommandButton10_Click()
On Error Resume Next

Dim Response As VbMsgBoxResult
Response = MsgBox("tüm liste silinecek ?", vbYesNo + vbCritical)

Select Case Response
Case vbYes
Sheets("ALFA").Activate
Sheets("ALFA").Range("A6:A105").Select
Selection.ClearContents
Sheets("ALFA").Range("C6:K105").Select
Selection.ClearContents

Case vbNo
End Select

End Sub

 

[turist]

Kodunuza (mavi satırı)ekleyip deneyin.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
On Error Resume Next
If Intersect(Target, [d6:d105]) Is Nothing Then Exit Sub
'If sil59 = True Then Exit Sub ' -----> bu kısmı kullanmıyorum. bu siteden buldum kodu.
If Target <> "" And WorksheetFunction.CountIf(Range("d6:d105"), Target) > 1 Then
MsgBox "mükerrer kayıt var !...": Target = "": Target.Activate
End If
End Sub

 

[Costcost]

Sayın Turist, kodu ekledim, şimdi düzeldi. hata vermiyor. yardımınız için çok teşekkür ederim. Allah razı olsun.

 

[turist]

Sayın Turist, kodu ekledim, şimdi düzeldi. hata vermiyor. yardımınız için çok teşekkür ederim. Allah razı olsun.

Sağ olun.