Benzersiz kayıtlar.

[Orion1]

Merhaba.
Sayın Arol11 istediğiniz dosyayı hazırladım.
Ekli dosyayı inceleyiniz.

Sub benzersiz()
Dim sat As Long
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A1:AZ65536").ClearContents
sat = 1
For Each hucre In Range("A1:AZ700")
    If WorksheetFunction.CountIf(Range("A1:AZ700"), hucre.Value) = 1 Then
        Sheets("Sayfa2").Cells(sat, "A").Value = hucre.Value
        sat = sat + 1
    End If
Next
Application.ScreenUpdating = True
MsgBox "Benzersizler Sayfa2'ye Aktarıldı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[arol11]

Selamlar,çok teşekkür ederim.
Sayın Ali beyinde konuyu buradan takip etmesini dilerim.Basitçe bir örnek ekliyorum.Benzersizler yine aynı satırlara gelecek şekilde listelenmeli.
Kolay gelsin.

 

[Ali]

Sn arol ekteki dosyada modül içerisine kullanıcı tanımlı bir fonksiyon yaptım.

H1 ve H2 hücrelerini sağa doğru çektiğinizde benzersiz liste elde edeceksiniz.

Örnek ektedir.

 

[arol11]

Farketmedim, konuyu diğer bir alanda sormaktan dolayı özür dilerim.Verdiğiniz uygulama için teşekkür ederim.

 

[Orion1]

Sayın Ali üstadım cevaplamış.Bende makrolu bir çözüm yaptım.