aynı kayıtların silinmesi

[beyza77x]

Merhaba, excel dosyasında 24k kadar veri var.İsim,soy isim,adres bilgileri içeriyor.Aynı adrese sahip ve aynı soyadına sahip olanların silinmesini istiyorum.Bir türlü yapamadım.Bana yardım eder misiniz? Teşekkürler.

 

[betsfat]

Yinelenen değerleri kaldıracağın sütunları seç, veri bölümünden yinelenenleri kaldırı seç...

 

[beyza77x]

aynı adreste yaşayan farklı soyada sahip olanların silinmesini istemiyorum.Bunun için bir formül var mıdır?

 

[Mdemir63]

Selamlar
Formumuza hoşgeldiniz.

asıl bilgilerinizi içermeyen ama yapısı aynı olan dosyanızı
aşağıdaki sitelerden birine yüklerseniz daha çabuk yanıt alırsınız.

Soru ile ilgili "Örnek" Excel Dosyası Ekleme

Değerli excel.web.tr üyelerimizin dikkatine. Sorularınızın daha kısa sürede ve doğru cevaplandırılması için , bir excel dosyası eklenmesi gerekiyorsa; konu başlığınızda sorunuzla ilgili bilgi verdikten sonra;aşağıda açıklanan şekilde bir "ÖRNEK EXCEL DOSYASI" hazırlayabilirsiniz. ÖRNEK EXCEL...

www.excel.web.tr

http://dosya.co/
http://s2.dosya.tc/
https://wetransfer.com/
https://www.transfernow.net/tr/

 

[betsfat]

 

[beyza77x]

İndir ornek

Dosyayı indir ornek

dosya.co

dosya bu tarz.adress line 1 sutununda adresler var aynı adrese ve aynı soyada sahip kayıtların silinmesini istiyorum.bunu yapmanın bir yolu var mı?

 

[betsfat]

Beyza hanım örnekte adress line 1 dosyanızda yinelenen değer yok,hepsi birbirinden farklı.O yüzden silme yapmaz.Orjinal dosyanıza yukarıda belirttiğim şekilde uygulama yapın 1 dk'nınızı almaz..

 

[beyza77x]

original dosyada çok fazla yinelenen değer var.sutunları göstermek için böyle attım.Yinelenenleri kaldır dediğimde silmedi.birden fazla kez denedim.

 

[betsfat]

adresleri değiştirirek örnek gösteriyorum.10/14-15/21 satırlar dediğiniz şartlarda ...

 

[betsfat]

 

[betsfat]

Veri sekmesindeki yinelenenleri kaldırı seçiniz.Verilerimde üst bilgi var kutucuğunu işaretleyiniz.Başlıklardan sadece surname ve adress line1 seçili olsun.Tamam deyiniz.Kaç adet yinelenen var size söyleyecek sizde tamam deyip kaldırın

 

[çıtır]

Deneyiniz.

Sub Benzersil()
Dim s1 As Worksheet: Dim sd As Object
Dim a As Variant: Dim liste As Variant
Dim i As Long: Dim b()
Set s1 = Sheets("Sayfa1")
Zaman = Timer
son = s1.Cells(Rows.Count, 1).End(xlUp).Row
liste = s1.Range("A1:E" & son)
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(liste, 1)
If liste(i, 1) <> "" And liste(i, 3) <> "" Then
bag = liste(i, 1) & "," & liste(i, 3)
f Not .Exists(bag) Then
        say = say + 1
       For j = 1 To UBound(liste, 2)
                    liste(say, j) = liste(i, j)
                   Next
                .Item(bag) = say
        End If
  End If
 Next i
End With
s1.Range("A1").CurrentRegion.ClearContents
s1.Range("A1").Resize(say, UBound(liste, 5)).Value = liste
MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub

 

[beyza77x]

compile error syntax error yazdı

 

[çıtır]

f Not .Exists(bag) Then

satırı

If Not .Exists(bag) Then

şeklinde olaçak.

 

[beyza77x]

İndir

Dosyayı indir

dosya.co

duzelttim run dedim bu yazdı.eğer yardım edebilirseniz cok mutlu olurum

 

[çıtır]

Dosyada deneyiniz.
https://www.dosyaupload.com/ft4n

 

[EmrExcel16]

Deneyiniz...

Sub Tekrarsiz() 
    Range("A2:E" & Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates Columns:=Array(1,3)
    MsgBox "Islem tamam..."
End Sub

 

[beyza77x]

çok teşekkür ederim herkese.sorunum çözüldü.

 

[assenucler]

Sayın @EmrExcel16,


17. iletiye eklediğiniz kod kısa olmasına karşın, 130 satır ve 11 sütunda bulunan çift verilerimin tümünü sildi.

Emek ve paylaşımınız için teşekkür ederim.

Saygılar,

 

[EmrExcel16]

Sayın @EmrExcel16,


17. iletiye eklediğiniz kod kısa olmasına karşın, 130 satır ve 11 sütunda bulunan çift verilerimin tümünü sildi.

Emek ve paylaşımınız için teşekkür ederim.

Saygılar,

Rica ederim sn. @assenucler , iyi çalışmalar.