Tekrar Eden Verileri Filtreleyerek Listeleme

[fledermaus]

Herkese Merhaba,

Veri listeleme ile alakalı örnek paylaşabilecek olan var mıdır ?

Site üzerinden biraz araştırmak istedim sanırım başlık farklı olabileceği için açıkçası bulamadım.

Örnek vermem gerekirse belirli bir sütunda liste şeklinde olan ve tekrar etme olasılığı olan veri gurubunu başka bir sayfada listelemek istiyorum.

Mesela ekteki örnekte olduğu gibi birinci sayfasındaki veri grubunu ikinci sayfada tekrar etmeyecek şekilde aşağı doğru listelemek istiyorum.

Konuyla ilgili örnek paylaşabilecek olan var ise çok sevinirim.

Saygılarımla,

 

[relaxim]

Merhaba

Vba ile yapılmış örnek eklenmiştir. Eğer vba değil başka yöntem derseniz benzersiz filitreme yapabilirsiniz.

Not: Vba kodlarını benim bir çalışmamda forumdaki değerli üstadlar yazmıştır.

 

[fledermaus]

@relaxim merhaba,

Ne yazık ki güvenlik kısıtlamaları nedeniyle NBA kullanamıyorum.

VBA olmadan bu konuda yardımcı olabileceğimiz birileri var mıdır?

Saygılarımla,

 

[DoğanD]

Merhaba,

Benzersiz fonksiyonunu kullanabilirsiniz. Ve hatta Sırala fonksiyonu ile birleştirip daha işlevsel hale getirebilirsiniz. Fakat bu veriler yanlarında başka veriler ile kullanılıyorsa ve işlem yapacaksanız Pivot Tablo'yu öneririm.

 

[okan32]

Deneyiniz

Sub TekrarEdenleriListele()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim dict As Object
    Dim cellValue As String
           Set ws1 = ThisWorkbook.Sheets("Sayfa1")
    Set ws2 = ThisWorkbook.Sheets("Sayfa2")
    
    
    Set dict = CreateObject("Scripting.Dictionary")
    
    
    lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    
    
    For i = 1 To lastRow
        cellValue = ws1.Cells(i, "A").Value
      
        If Not dict.exists(cellValue) Then
            ws2.Cells(ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row + 1, "A").Value = cellValue
          
            dict.Add cellValue, Nothing
        End If
    Next i
    
    MsgBox "Tekrar eden olmayan değerler Sayfa2'ye listelendi.", vbInformation
    
End Sub