Veri aktarımında sayfaya mükerrer kayıt engelleme

[Altay3555]

Selamlar

Listboxdaki verilerimin mükerrer girişlerini nihayet önleyebildim,ListBox da da mükerrere izin yok,lakin DblClikle aktardığım kayıtları yanlışlıkla tekrar aktarırsam
sayfa 2 deki arşiv dosyası bunu kabul ediyor,
Sayfa 2 ye mükerrer kayıtı nasıl engellerim.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'CommandButoon1_Click teki kodları buraya alırsanız çift tıklamayla eklenir
Sheets("Sayfa2").Activate
If ListBox1.ListIndex = -1 Then
MsgBox " Önce kutudan seçmelisiniz"
Exit Sub
Else
Dim iListCount As Integer, iColCount As Integer
Dim iRow As Integer
Dim rStartCell As Range
Set rStartCell = Sheets("Sayfa2").Range("A65536").End(xlUp).Offset(1, 0)
For iListCount = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iListCount) = True Then
ListBox1.Selected(iListCount) = False
iRow = iRow + 1
For iColCount = 0 To Range("A220").Columns.Count - 1

rStartCell.Cells(iRow, iColCount + 1).Value = _
ListBox1.List(iListCount, iColCount)
Next iColCount
End If
Next iListCount
Set rStartCell = Nothing
End If
End Sub


'Kayıt düğmesi ile Mükerrer Kayıt girişi önleme (Sıra No için)
Say = WorksheetFunction.CountIf(Sheets("Sayfa1").Range("A7:A65536"), TextBox8.Text)
If Say > 0 Then
MsgBox "Bu kayıt daha önce girilmiştir !" & vbNewLine & _
"Lütfen girdiğiniz bilgileri kontrol ediniz.", vbCritical, "Mükerrer Kayıt"
Exit Sub
End If


Aslında Listboxdaki DblClik olayında aktarılanlar Listboxdan yok olsa da olacak gibi...
Yardımlarınız bekliyorum.

(Mesaj sayım da epey yükseldi,belki bundan kaynaklanan Çıraklık seviyesinde olduğum düşünülebilirse de hala ACEMİ'yim efemmm...Bilginize