Benzersiz Formülün VBA karşılığı

[endexci]

Merhabalar,

Kullanım formülün VBA anlamı var. Eğer var ise aşağıdaki kodun VBA anlamı konusunda yardımcı olabilir misiniz
=BENZERSİZ(Tablo1[KODU1])

 

[Korhan Ayhan]

Merhaba,

Talebiniz eski sürümler içinse kullanıcı tanımlı fonksiyon yazılabilir. Ya da forumda alternatif BENZERSİZ verileri listeleyen formüller paylaşılmıştı. Arama yaparsanız ulaşabilirsiniz.

 

[endexci]

Korhan hocam,

Yeni sürümde yapmak istemiştim, aşağıdaki şekilde çözüme ulaştım.
Teşekkür ederim.

s1.Range("Tablo1[KOD]").Kopyala s2.Range("A2") Verileri sayfa1'den sayfa2'ye kopyalar
s2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo 'yenilenenleri kaldırıyor

Merhaba,

Talebiniz eski sürümler içinse kullanıcı tanımlı fonksiyon yazılabilir. Ya da forumda alternatif BENZERSİZ verileri listeleyen formüller paylaşılmıştı. Arama yaparsanız ulaşabilirsiniz.
[/ALINTI][/CODE]

 

[Korhan Ayhan]

Merhaba,

Eğer BENZERSİZ formülü sizin kullandığınız sürümde varsa (profilinizde 2010 yazıyor) alternatif olarak aşağıdaki yöntemi kullanabilirsiniz.

A sütunundaki verileri D sütununda benzersiz listeler..

Option Explicit

Sub Benzersiz_Liste()
    Dim Unique_Data As Variant
    Range("D:D").Clear
    Unique_Data = WorksheetFunction.Unique(Range("A:A"))
    Range("D1").Resize(UBound(Unique_Data)) = Unique_Data
End Sub