Evet aranan numarayı tekrar aramamak,istenilen bu;Fakat,yukarıda örneğinde verdiğim gibi,elimdeki mevcut 200 000 adet datada 5669940281 numarası en az 15 adet mevcut fakat farklı isimlerde,daha doğrusu yazılış hatalarından kaynaklanan nedenlerden dolayı farklı isimlerden oluşmuş.Tabloda ihtiyacımız olan,benzersiz tek numara ve ad soyad idi.Fakat manuel olarak Excelin farklı renk biçimlendirmesi özelliğini kullanarak 3 gün süren çalışma sonucu tek tek silerek binlerce yineleyen numaraları sildik.Yinede bunun daha kolay yolu varsa bilmekte fayda var.Bilgi ve paylaşımlarınız için teşekkürler.
Yüksek sayıda veri içeren tablo ile çalışma-yardım
selam
arkadaşlarında anlatmak istediği bu mükerrer kayıt yani daha yolun başında iken ilk kayıt yapılacağı zaman kayıt ekranında iken aynı numara ve ad soyad bilgilerini kontrol ettirip tabloda yoksa kaydetmekten geçmekte
biraz vb bilgisi bunu hayli hayli yapar
bu konuda sitede binlerce soru ve çözülmüş konu mevcut
saygılar
arkadaşlarında anlatmak istediği bu mükerrer kayıt yani daha yolun başında iken ilk kayıt yapılacağı zaman kayıt ekranında iken aynı numara ve ad soyad bilgilerini kontrol ettirip tabloda yoksa kaydetmekten geçmekte
biraz vb bilgisi bunu hayli hayli yapar
bu konuda sitede binlerce soru ve çözülmüş konu mevcut
saygılar
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Doğru Aydın bey,daha yolun başındayken mukerrer kayıtlar filtrelenerek gitmiş olsaydı,herşey daha kolay olurdu,fakat malesef,yolun sonunda bu işlemi yapmak zorundayım.biraz Vba bilgisine sahip olmayabilirim ,bu ayıp değildir veya personelden birinede bunu çözmesini söyleyebilirdim fakat 50 yaşına gelmiş biri olarak hala öğrenmeye çalışıyorum ;Bu gibi forum sitelerinin amacı bilgi paylaşımı ve yardımlaşmadır.Yorumunuzda dediğiniz gibi Bu sitede ve diğerlerinde binlerce soru ve çözülmüş konularınıda araştırdım,fakat malesef denk çözümler bulamadım.Evet mükerrer kayıtlarla ilgili birçok konu var.Fakat bu çözümler genelde tek sutun üzerine çözülmüş konular.Benim istediğim 2 sutun üzerindeki mükerrer kayıtlar ve bu sutunlardaki tekrarlar silinirken satırlardaki telefon,isim sıralaması bozulmamalı.Konuyla ilgili birebir denk cözüm varsa ve linkini verebilirseniz sevinirim.
Son Düzenleme: 09/10/2013, 20:26, Düzenleyen: apogate.
size sizin tablonuz üzerinde bir form yaptım burda yeni kayıt diyerek aynı telefon numarasını girmeye çalışın..uyaracaktır.
Bu ihtiyacımı karşılamaz.200 000 e yakın datayı tek tek ayıklamak imkansız.Excelde yinelen kayıtları sil dediğimde ikinci sutundaki isimler alakasız numaralara kayıyor.Excel de tekrar eden numaraları silip boş satırları yukarıya kaydırmayan ,silinen hücreleri boş bırakan makro yazabilsek sorun kalmayacak.
Sonunda buldum.Belki benzer konu ile bu macro'ya ihtiyacı olabilecekler için paylaşım yapmakta fayda görüyorum.
.Bu makroyu 2 sutun yerine 4 sutuna nasıl genişletebiliriz,ve 70 saniyeden sonra kod hata veriyor;işlem süresini uzatmak mümkünmü?70,80 bin satır üzerinde sorun yok fakat 100 bin üzerinde kod error veriyor.!
Kod:
Option Explicit
Sub Mukerrer_Kayitları_Temizle()
Dim Alan As Variant, X As Long, Son As Long, SD As Object, Say As Long, Zaman As Double
Application.ScreenUpdating = False
Zaman = Timer
Son = Cells(Rows.Count, 1).End(3).Row
Alan = Range("A2:B" & Son)
Set SD = CreateObject("Scripting.Dictionary")
Range("E2:F" & Rows.Count).ClearContents
ReDim Dizi(1 To 2, 1 To Son)
For X = LBound(Alan) To UBound(Alan)
If Not Len(Alan(X, 1)) = 0 And Not SD.Exists(Alan(X, 1)) Then
SD.Add Alan(X, 1), Nothing
Say = Say + 1
Dizi(1, Say) = Alan(X, 1)
Dizi(2, Say) = Alan(X, 2)
End If
Next
If Say > 0 Then
ReDim Preserve Dizi(1 To 2, 1 To Say)
Cells(2, "E").Resize(Say, 2) = Application.Transpose(Dizi)
Application.ScreenUpdating = True
MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & "İşlem süresi ; " & Format((Timer - Zaman), "0.000") & " Saniye", vbInformation
End If
Application.ScreenUpdating = True
End Sub
Son Düzenleme: 11/10/2013, 00:14, Düzenleyen: apogate.
Konuyu Okuyanlar: 1 Ziyaretçi