mükerrerleri silmek

[ozgur1179]

Arkadaşlar Excel de 2 tablom var Bunlar içinde mükerrer olanını silmek istiyorum excel de formul olarak nasıl silinir (( saatlerdir debeleniyorum yardımınızı bekliyorum ...

 

[Ömer]

Merhaba,

Sorunuzu örnek dosya ile destekleyip açıklarmısınız.

 

[ozgur1179]

Hocam amacım örneğin alttaki tablo gibi 32000 girişim var buradaki birden fazla tekrar eden veriyi silmek istiyorum tablo giremedim fazla anlamam forumdan inşallah bağışlarsınız 2 adet excell verilerini tek veriye indirip mükerrer olanları elemek istiyorum

A B C
00005435688 5010.38/335.00 CEMAL TURHAN
00005435988 5010.33/314.00 ALİ ÖZTÜRK
00005436194 5010.28/309.00 ŞENEL KAYA
00005436430 5010.39/25.00 CUMA YILDIRIM
00005436431 5010.39/26.00 CUMA YILDIRIM
00005436432 5010.39/27.00 CUMA YILDIRIM

 

[Ömer]

Linki inceleyiniz. Küçük bir data ( 5-10 satır ) ekleyip silinmesi gerekenleri boyayarak neden silinmesi gerektiğini dosya içinde açıklarmısınız.

Sorunun devamında, ataç eklemek( Dosya eklemek).

.

 

[ozgur1179]

inşallah olmuştur

 

[Ömer]

Arkadaşlar Excel de 2 tablom var Bunlar içinde mükerrer olanını silmek istiyorum excel de formul olarak nasıl silinir (( saatlerdir debeleniyorum yardımınızı bekliyorum ...

Mükerrerlik kontrolü C sütununa göre yapılacak sanırım.

Module kopyalıp çalıştırınız.

Modül Ekleme (Resimli Anlatım)

 Sub BenzersizListele()
 
    Dim d, i As Long, j As Long, deg As String
    Dim dizi() As String, x As Integer
 
    Application.ScreenUpdating = False
 
    Set d = CreateObject("Scripting.Dictionary")
 
    For i = 2 To Cells(Rows.Count, "C").End(xlUp).Row
        deg = Cells(i, "C")
        If Not d.exists(deg) Then
            j = j + 1
            ReDim Preserve dizi(1 To 8, 1 To j)
                For x = 1 To 8
                    dizi(x, j) = Cells(i, x)
                Next x
            d.Add deg, Nothing
        End If
    Next i
 
    Range("A2:H" & i).ClearContents
    Range("A2").Resize(j, 8) = Application.WorksheetFunction.Transpose(dizi)
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[ozgur1179]

elinize sağlık 2 dakikada çözdük meseleyi allah klavyenize zaval vermesin çok sağ olun

 

[Necdet]

elinize sağlık 2 dakikada çözdük meseleyi allah klavyenize zaval vermesin çok sağ olun

Excel sürümünüz 2007 imiş, 2007 de zaten çift kayıtları kaldırabilirsiniz.

Veri sekmesinde Yinelenenleri kaldır sizin işinizi çözer.

 

[ozgur1179]

evde Xp kullanıyorum

 

[Necdet]

evde Xp kullanıyorum

o zaman kodlara devam