Benzersiz verileri getirme

[turgayzeynep]

Eski versiyon bilgisayar kullanıyorum Sayfa 1'de A1: A1000 arasındaki verileri sayfa 2 B7 :B1000 arasına getirmek istiyorum ve buna yardımcı sütun olmadan yapmak istiyorum Nasıl yapabilirim nasıl bir formül yazmam gerekiyor yardımcı olabilir misiniz

 

[Korhan Ayhan]

Linkler faydalı olabilir..

Google Search

 

[mustafa1205]

Formül ile eski versiyonlarda biraz zor. Kod İle derseniz aşağıdaki kod ile rahatlıkla yapabilirsiniz...


Sub BenzersizleriGetir()
Dim wsSrc As Worksheet, wsDst As Worksheet
Set wsSrc = Sheets("Sayfa1")
Set wsDst = Sheets("Sayfa2")

wsDst.Range("A1:A1000").ClearContents
wsSrc.Range("A1:A1000").AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=wsDst.Range("b7"), Unique:=True
End Sub

 

[turgayzeynep]

Formül ile eski versiyonlarda biraz zor. Kod İle derseniz aşağıdaki kod ile rahatlıkla yapabilirsiniz...


Sub BenzersizleriGetir()
Dim wsSrc As Worksheet, wsDst As Worksheet
Set wsSrc = Sheets("Sayfa1")
Set wsDst = Sheets("Sayfa2")

wsDst.Range("A1:A1000").ClearContents
wsSrc.Range("A1:A1000").AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=wsDst.Range("b7"), Unique:=True
End Sub

Hocam Elinize emeğinize sağlık Teşekkür ederim fakat makroları güncellemiyor bilgisayarımıza sıkıntı oluyor makrolar formül olursa daha iyi olur

 

[Erdem Akdemir]

Merhaba,

Ekteki örnek dosyayı hazırladım. Kendi dosyanıza uygulayınız.