tekrarlı kayıtları temizleme

[krizotil]

Merhaba arkadaşlar;
Elimde 85.000 lik veri var ve bunlarda 2bin civarı tekrarlı kayıt. Tekrarlı kayıtları Eğersay ile buldum. Yalnız bu kayıtlarda üye numarası büyük olan kalacak şekilde düzenleme yapmam gerekiyor. Yardımcı olursanız çok sevinirim.
Örnek dosya ektedir.Ekli dosyayı görüntüle ornek.xls

 

[krizotil]

Tabloda koşula göre tekrarlı kayıtları bulma

Merhaba arkadaşlar;
Elimde 85.000 lik veri var ve bunlarda 2bin civarı tekrarlı kayıt. Tekrarlı kayıtları Eğersay ile buldum. Yalnız bu kayıtlarda üye numarası büyük olan kalacak şekilde düzenleme yapmam gerekiyor. Yardımcı olursanız çok sevinirim.
Örnek dosya ektedirEkli dosyayı görüntüle ornek.xls

 

[dEdE]

Merhaba,

Ekli dosyayı inceler misiniz.

 

[krizotil]

makroyu çalıştıramıyorum

 

[krizotil]

Çok teşekkür ederim. Yalnız benim makrolar konusunda pek bilgim yok. Buradaki işlemi asıl belgede nasıl uygulayabilirim.

 

[dEdE]

..... Yalnız benim makrolar konusunda pek bilgim yok. Buradaki işlemi asıl belgede nasıl uygulayabilirim.

Merhaba,
Makroyu çalıştırmak için düğmeye tıklamanız yeterli.
Asıl belgeniz deki verilerin yerleşimi örnek dosya ile aynı ise;örnek dosya açık iken VBA editöründe File menüsünden Export file.. seçerek modülü kaydedip, örnek dosyayı kapatıp asıl dosyanızı açtıktan sonra yine aynı menüden import file yi seçerek modülü asıl dosyanıza alabilirsiniz. Copy/Paste de yapabilirsiniz.
Sonra makroyu çalıştırmanız yeterli olacaktır.

Eğer asıl dosyanızdaki sütunların yerleşimi öenek dosyadan farklı ise kodlarda değişiklik yapmak gerkecektir. Değişikliği asıl dosyanıza tıpatıp benzeyen bir dosya gönderirseniz yapabiliriz.

ÖNEMli NOT: Asıl dosyanızın yedeğini almadan makroyu çalıştırmayınız. Makro ile yapılan işlemler geri alınamazlar.
Hoşça kalın.

 

[Necdet]

Merhaba,

Ad ve Soyadı Küçükten Büyüğe, Üye numarasını da Büyükten Küçüğe sıraladıktan sonra

E2 Sütununa aşağıdaki fonksiyonu yazınız ve aşağıya doğru kopyalayınız.

=EĞER(VE(B2=B1;C2=C1);"Silinecek";"Kalacak")

Sonra E sütununda silinecekleri süzdürüp hepsini silebilirsiniz.

 

[krizotil]

Merhaba

Asıl dosyadaki hücreler ekteki dosyadaki gibi.
Ayrıca Makroyu biraz inceledim "Range("A" & i & ":G" & i).Interior.ColorIndex = 6" bu kısımlardaki B 'leri G yaptım yalnız işe yaramadı. Kayıtların hemen hemen hepsini sildi Ekli dosyayı görüntüle ornek.xls

 

[S.Yiğit]

Merhaba,

Aynı konuyu birden fazla başlık altında açmayınız.. Aşağıdaki konuyla bu konu aynı..

tekrarlı kayıtları temizleme

 

[Necdet]

6 numaralı mesaj için fikriniz ne?

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

 

[krizotil]

Teşekkürler

Çok teşekkür ederim Nejdet bey,
Şu an o formüle bakıyorum.

 

[dEdE]

Merhaba,
Aynı konuyu birden fazla başlık altında açmayınız.. Aşağıdaki konuyla bu konu aynı..

tekrarlı kayıtları temizleme

Merhaba,
Sayın S.Yiğit,
Ben mi yanılıyorum? verdiğiniz link bu başlığa yönlendiriyor.(6730 Bu başlık değil mi?)

 

[Ali]

Aynı konu ile iki farklı başlık açılmıştı.Sayın S.Yiğit'in uyarısı ile konuları birleştirdim.

 

[krizotil]

Emeğinize Sağlık

Arkadaşlar yardımlarınız için çok teşekkür ediyorum. Beni büyük bir dertten kurtardınız. Ellerinize sağlık