benzersiz kayıtları görmek istiyorum

[elice]

merhaba ustalarım ,

yapacağınız yardım için şimdiden teşekkür ederim, ekte gönderdiğim tablodaki
kayıtlardan sadece benzersiz olanları bir stünda görmek istiyorum.

 

[zafer]

Merhaba

Aşağıdaki linkteki konuları inceleyiniz.

Mükerrer Kayıt Uygulamaları,

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub TEST()
Dim SUTB, S As Integer
[C1:C100].Clear
For SUTB = 4 To Cells(65536, "B").End(3).Row
If WorksheetFunction.CountIf(Range("B4:B" & SUTB), Cells(SUTB, "B")) = 1 Then
S = S + 1
Cells(S, "C") = Cells(SUTB, "B").Value
End If
Next
End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.
Formülle yapılmış şekli.

 

[elice]

ustalarıma teşekkür ediyorum,,, her iki çözümde birbirinden güzel, emeğinize, ellerinize sağlık, hoşçakalın.