Açılır listede isimleri bir kere görme.

[sward175]

Herkese Merhabalar,
Müşteri Takip sayfası B1 hücresine Woden Bilgi sayfasından C7:C1200 aralığındaki İsimleri birer kere Açılır listeye almak istiyorum.
Bu anlamda destek verecek arkadaşlarıma şimdiden teşekkürler ederim.
İyi günlere,
sward175

 

[airborne]

s.a.

Sub Listeyi_TekrarSiz_Al()
    Dim wsKaynak As Worksheet, wsHedef As Worksheet
    Dim rngKaynak As Range, rngHedef As Range
    
    Set wsKaynak = ThisWorkbook.Sheets("Woden Bilgi")
    Set wsHedef = ThisWorkbook.Sheets("Müşteri Takip")
    
    Set rngKaynak = wsKaynak.Range("C7:C1200")
    Set rngHedef = wsHedef.Range("Z1") 'Listeyi buraya çıkaracak
    
    rngKaynak.AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=rngHedef, Unique:=True
End Sub

 

[sward175]

Selamlar, airborne,
Kaynak sayfaya sürekli veri girilecek bu şart olursa kod sürekli yenileme yapacak mı ?
Teşekkürler,

 

[airborne]

S.a.

C1:c1200 arasına veri girecekseniz problem yok. Fakat c1200 alacaksanız c1200 c2000 yapabilirsiniz

 

[sward175]

Sayın, airborne,
Çok teşekkür ederim.

 

[muhasebeciyiz]

denermisiniz

 

[sward175]

Sayın, muhasebiciyiz,
Çok teşekkür ederim.