Mükerrer verilerden benzersiz veritabanı oluşturmak

[cebelitarık]

Forumun Değerli Üyeleri

Yapmak istediğim şey: Ekli dosyada örneğini verdiğim şekilde "Veriler" sayfasındaki ham ve T.C. Kimlik no açısından mükerrer verileri, "veritabanı" sayfası "c" sütunundaki T.C. Kimlik numaraları ile karşılaştırarak, benzersiz bir şekilde veritabanı sayfasına, son dolu satırdan itibaren aktarmak.
Saygılarımla

 

[Husgvarna]

Forumun Değerli Üyeleri

Yapmak istediğim şey: Ekli dosyada örneğini verdiğim şekilde "Veriler" sayfasındaki ham ve T.C. Kimlik no açısından mükerrer verileri, "veritabanı" sayfası "c" sütunundaki T.C. Kimlik numaraları ile karşılaştırarak, benzersiz bir şekilde veritabanı sayfasına, son dolu satırdan itibaren aktarmak.
Saygılarımla

Merhaba.
T.C. Kimlik no'ya göre aşağıdaki kodu deneyin.

Sub Düğme1_Tıklat()
For A = 2 To Cells(65500, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("VERİTABANI").Range("C2:C65500"), Cells(A, 3)) = 0 Then
[COLOR="#ff0000"]x = x + 1[/COLOR]
B = Sheets("VERİTABANI").Cells(65500, 1).End(xlUp).Row + 1
Sheets("VERİTABANI").Cells(B, 1) = B - 1
Sheets("VERİTABANI").Range("B" & B & ":F" & B).Value = Range("B" & A & ":F" & A).Value
End If
Next
[COLOR="Red"]If x > 0 Then
MsgBox x & " Adet benzersiz veri aktarımı yapıldı."
Else
MsgBox "Bütün veriler mükerrer olduğundan hiç veri aktarılamadı.", vbCritical
End If[/COLOR]
End Sub

 

[cebelitarık]

Sayın Husgvarna
İlginiz için çok teşekkür ederim.
Kod çok güzel işime yaradı. Sadece bir şey ilave edebilirmiyiz?

Her aktarmada ne kadar benzersiz veri aktarıldığı ile ilgili bir mesaj verebilirmi?
Örneğin:
"5 adet benzersiz veri aktarımı yapıldı."
Veya aktarılan tüm veriler veritabanı ile mükerrer ise
" Bütün veriler mükerrer olduğundan hiç veri aktarılamadı."
gibi
Saygılarımla

 

[Husgvarna]

Her aktarmada ne kadar benzersiz veri aktarıldığı ile ilgili bir mesaj verebilirmi?
Örneğin:
"5 adet benzersiz veri aktarımı yapıldı."
Veya aktarılan tüm veriler veritabanı ile mükerrer ise
" Bütün veriler mükerrer olduğundan hiç veri aktarılamadı."
gibi

Yukarıdaki kodlara eklemeler yapmaya çalıştım: İncelermisiniz?

 

[cebelitarık]

Sayın Husgvarna
İlginiz için çok teşekkür ederim.
Kod çok güzel işime yaradı.
Başarılar dilerim