Yalnızca Benzersiz Kayıtlar Kalacak

[jack_extreme]

merhaba
daha önce forumda ve yabancı kaynaklarda aradım fakat bulamadım

istediğim şey elimde bir liste ve takip numaraları var fakat listede aynı takip no 2 kere gelebiliyor
koşullu biçimlendirmeden benzersiz kayıtları renklendirebiliyorum fakat liste uzadığı zaman kontrolü zor olabiliyor yada gözden kaçabiliyor

benim istediğim sadece benzersiz kayıtlar kalsın çift olan kayıtların hepsi silinsin istiyorum
yardımlarınız için şimdiden teşekkürler

 

[Haluk]

Data >> Remove Duplicates

.

 

[jack_extreme]

Data >> Remove Duplicates

.

dediğinizi biliyorum ama o çift kayıtların tekini siliyor diğer teki kalıyor benim istediğim çift kayıtların tamamen silinmesi sadece benzersiz kayıtların kalması

 

[Haluk]

2 tane aynı kayıttan birini silince zaten geriye kalan "benzersiz" olmuyor mu?

.

 

[jack_extreme]

2 tane aynı kayıttan birini silince zaten geriye kalan "benzersiz" olmuyor mu?

.

o zaman şöyle düzelteyim çift olan kayıtların hepsi silinecek sadece tek ve benzersiz kayıtlar kalacak ekteki dosyaya bakarsanız yardımcı olabilirsiniz diye düşünüyorum

 

[baydeniro]

o zaman şöyle düzelteyim çift olan kayıtların hepsi silinecek sadece tek ve benzersiz kayıtlar kalacak ekteki dosyaya bakarsanız yardımcı olabilirsiniz diye düşünüyorum

Merhaba jack.
Diyelim ki kayıtlar B sütunundalar ve B2 den aşağıya doğru sıralanmışlar.
C2 hücresine bu formülü yapıştırıp =İŞARET(EĞERSAY(B:B;B2)-1)
listenin sonuna kadar indir.
Filtre yardımıyla C sütununda 1 olanları seçip satır sil yapınca
sadece 1 adet olanlar kalır.

 

[jack_extreme]

Merhaba jack.
Diyelim ki kayıtlar B sütunundalar ve B2 den aşağıya doğru sıralanmışlar.
C2 hücresine bu formülü yapıştırıp =İŞARET(EĞERSAY(B:B;B2)-1)
listenin sonuna kadar indir.
Filtre yardımıyla C sütununda 1 olanları seçip satır sil yapınca
sadece 1 adet olanlar kalır.

Bu formülde işimi görür ama makro ile yapabilirsem daha sağlıklı olur çünkü bu listeyi internetten makro ile çekiyorum daha sonra liste uzadıkça işlem sürecide uzayacak bu şekilde yardımcı olabilirseniz sevinirim

 

[Necdet]

Merhaba,

B sütünunun boş olduğu varsayılarak, aşağıdaki makroyu deneyiniz.

Sub Makro1()
    
    Dim SonSat  As Long
    Dim i       As Long
    
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    SonSat = Cells(Rows.Count, "A").End(3).Row
    
    Range("B1").FormulaR1C1 = "=COUNTIF(C[-1],RC[-1])"
    Range("B1").AutoFill Destination:=Range("B1:B" & SonSat)
    
    Columns("B:B").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    For i = SonSat To 1 Step -1
        If Not Cells(i, "B") = 1 Then Rows(i).Delete
    Next i
    
    Columns("B:B").Delete Shift:=xlToLeft
    
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    
End Sub

 

[Zeki TEOMAN]

Merhaba , deneyiniz

Sub Makro1()

    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(C[-1],RC[-1])"
    Range("B1").Select
    Selection.AutoFill Destination:=Range("B1:B51")
    Range("B1:B51").Select
    Selection.AutoFilter
    Columns("A:B").Select
    ActiveSheet.Range("$B$1:$B$51").AutoFilter Field:=1, Criteria1:="2"
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("B1").Select
    Selection.ClearContents
End Sub

 

[baydeniro]

Merhaba,

B sütünunun boş olduğu varsayılarak, aşağıdaki makroyu deneyiniz.

Sub Makro1()
   
    Dim SonSat  As Long
    Dim i       As Long
   
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
   
    SonSat = Cells(Rows.Count, "A").End(3).Row
   
    Range("B1").FormulaR1C1 = "=COUNTIF(C[-1],RC[-1])"
    Range("B1").AutoFill Destination:=Range("B1:B" & SonSat)
   
    For i = SonSat To 1 Step -1
        If Not Cells(i, "B") = 1 Then Rows(i).Delete
    Next i
   
    Columns("B:B").Delete Shift:=xlToLeft
   
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
   
End Sub

Necdet üstadım kod için çok teşekkürler. Bir veri 2 veya daha fazla sayıda ise o verinin komple silinmesi (yani o veriden 1 tane de kalmayacak şekilde) mümkün mü !

 

[Necdet]

Necdet üstadım kod için çok teşekkürler. Bir veri 2 veya daha fazla sayıda ise o verinin komple silinmesi (yani o veriden 1 tane de kalmayacak şekilde) mümkün mü !

Kod zaten o işi yapıyor.

 

[baydeniro]

Kod zaten o işi yapıyor.

şöyle bir örnek vereyim : Vişne - Vişne - Erik verileri varsa sadece Erik kalsın

 

[Necdet]

Merhaba,

Dalgınlıkla bir hata yapmışım, Özür, kodları yeniledim, deneyiniz.

 

[baydeniro]

Merhaba,

Dalgınlıkla bir hata yapmışım, Özür, kodları yeniledim, deneyiniz.

Estağfurullah üstad. şimdi çok harika oldu. sağlıcakla kalın.

 

[jack_extreme]

Merhaba,

Dalgınlıkla bir hata yapmışım, Özür, kodları yeniledim, deneyiniz.

Çok teşekkürler tam istediğim gibi olmuş emeğinize sağlık