Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Yüksek sayıda veri içeren tablo ile çalışma-yardım

apogate
apogate
Access Cevaplanmış Soruları
11
4766

Yüksek sayıda veri içeren tablo ile çalışma-yardım

Çözüldü #7
apogate
Üye
apogate
Bul
Üye
Adı Soyadı:
Konum:
Ofis Versiyonu:
Son Oturumu: 12/12/2015,20:34
Yorumları: 9
Konuları: 2
Kayıt Tarihi: 08/09/2013
Teşekkür Puanı: 0
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.
Cevapla
Çözüldü #8
aydın3838
Aktif Üye
aydın3838
Bul
Aktif Üye
Adı Soyadı: ya.... ay....
Yaşı: 43
Konum: Kayseri
Ofis Versiyonu: Ofis 2003
Son Oturumu: 07/11/2018,18:51
Yorumları: 271
Konuları: 45
Kayıt Tarihi: 20/12/2009
Teşekkür Puanı: 8
Mesleğiniz: serbest
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
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #9
apogate
Üye
apogate
Bul
Üye
Adı Soyadı:
Konum:
Ofis Versiyonu:
Son Oturumu: 12/12/2015,20:34
Yorumları: 9
Konuları: 2
Kayıt Tarihi: 08/09/2013
Teşekkür Puanı: 0
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.
Cevapla
Çözüldü #10
C*e*l*o*y*c*e
Uzman
C*e*l*o*y*c*e
Bul
Uzman
Adı Soyadı: Ce.... Ya....
Konum: Ankara
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: Bugün,18:09
Yorumları: 3.556
Konuları: 78
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.033
Mesleğiniz: Yazılım
size sizin tablonuz üzerinde bir form yaptım burda yeni kayıt diyerek aynı telefon numarasını girmeye çalışın..uyaracaktır.
.rar Celoyce_Mükerrer kayıt.rar (Dosya Boyutu: 31,52 KB | İndirme Sayısı: 7)
Cevapla
Çözüldü #11
apogate
Üye
apogate
Bul
Üye
Adı Soyadı:
Konum:
Ofis Versiyonu:
Son Oturumu: 12/12/2015,20:34
Yorumları: 9
Konuları: 2
Kayıt Tarihi: 08/09/2013
Teşekkür Puanı: 0
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.
Cevapla
Çözüldü #12
apogate
Üye
apogate
Bul
Üye
Adı Soyadı:
Konum:
Ofis Versiyonu:
Son Oturumu: 12/12/2015,20:34
Yorumları: 9
Konuları: 2
Kayıt Tarihi: 08/09/2013
Teşekkür Puanı: 0
Sonunda buldum.Belki benzer konu ile bu macro'ya ihtiyacı olabilecekler için paylaşım yapmakta fayda görüyorum.
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
.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.!
Son Düzenleme: 11/10/2013, 00:14, Düzenleyen: apogate.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da