Benzer Kayıtlar Hakkında Yardım

[esmatekel]

Öncelikle Allahın Selamı Üzerinize Olsun Ben Excelde Bir Dosya VAr Ve Bunun İçinde Yaklaşık 2500 Kayıt Var Ve Bunlardan Birbilerine Benzeyen Kayıtlar Var Ve Bu Birbirine Benzeyen Kayıtları Otomatik Olarak Veya B,r Makro Aracılığı İle Silebilimmiyim MÜmkünse Yardımcı Olabilirmisiniz Birbirine Benzeyen Kayıtlar Datadan Silinecek Mümkünse Yardmcı Olunuz Saygılarımla Mehmet Adak

 

[N.Ziya Hiçdurmaz]

Hangi sutuna göre silinecek?

 

[esmatekel]

Yardım

Hangi sutuna göre silinecek?

Beyaz Satırlarla
Sarı Satırlarda Birbirine Benzeyen
Hücreler Var Bunlar Dan Birbirine Benzeyen Özellikle A ve B Sütününü Baz A
larak Olabilirmi

 

[N.Ziya Hiçdurmaz]

Yanıt

B sutununa göre aynı olan verilerin bir tanesi hariç diğerlerini siler. A sütununuda sildirirsek komple satır sildiğimizden veri kaybı oluşacaktır.

Sub TEKRARLAR()
Dim SUT As Integer
For SUT = Cells(65536, "B").End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("B1:B" & SUT), Cells(SUT, "B")) > 1 Then
Rows(SUT).Delete
End If
Next
End Sub

 

[esmatekel]

bir tanesi hariç diğerlerini siler
Demişsiniz Bir Tanesi Hariç Değil Bibirine Benzeyen İki Satırıda Silsin Öyle Bir Kod Var mı
Yani Aynı Olan İki Satırıda Silmesi Lazım Birbirine Benzemeyen Kayıtlar Kalması Lazım
Mümkünse

 

[esmatekel]

V.Basic For Applications Saolun Eğer Mümkünse Son Sorumada Cevap Verebilirseniz Beni Büyük Bir Yükden Kurtarırsınız

 

[N.Ziya Hiçdurmaz]

Son sorunuzu ben pek anlayamadım. benim çözümümde veri kaybı oluyor.Diğer arkadaşlar bir baksınlar.

 

[esmatekel]

Benzer Kayıtlar

Bakın Tam Olarak Anlatamadım Galiba Ve Tekrar Bir Örnek Dosya Ekledim Eğer Mümkünse İnceleyebilirmisiniz

 

[Skorpiyon]

Sayın esmatekel,

Denediniz mi bilmiyorum. Eğer denemedi iseniz,

A sütununu komple tutunuz ve sırayla aşağıdaki işlemleri yapınız.
VERİ - FİLTRE UYGULA - GELİŞMİŞ FİLTRE. Karşınıza çıkacak pencerede YALNIZCA BENZERSİZ KAYITLAR bölümüne çentik koyun ve TAMAM deyin.

Oluşan listeyi fare ile A1'den tutup son satıra kadar çekin. Kopyala deyin ve istediğniiz yere yapıştırın. Elinizde benzersiz bir liste olmuş olur.

 

[esmatekel]

Teşekkürler