makro ile aynı olan rakamların tek yazılması

[elvis]

arkadaşlar; sayfa1 in A sütununda bulunan (altalta yazılı) rakam veya kelimelerin , yine B sütununda (yine alt alta) aşağıya doğru otomotik olarak aynı olan girişlerin tek olarak yazılması makro ile mümkün müdür?

mesela; sayfa1 de A sütunundan aşağıya doğru ;

ali
ali
metin
metin
metin
2
2
6
9
9
10
ayşe
fatma
diye yazdığım zaman B sütununda aşağıya doğru olarak;

ali
metin
2
6
9
10
ayşe
fatma
olarak tek yazılabilir mi?

ilginiz için şimdiden teşekkürler
iyi çalışmalar

 

[alpi]

Verilerinizin olduğu sütunu seçin
Veri/Filitre Uygula/Gelişmiş Filitre yi seçin
Açılan pencerede Başka bir yere kopyala yı seçin
Hedef için kopyalamak istediğiniz sutünu seçin
Yanlızca Benzersiz Kayıtlar ı seçin
Tamam ı tıklatın.

 

[Recep İpek]

Aynı işlevin makro kodu ise,

Sub Aktar()
On Error Resume Next
Application.ScreenUpdating = False

Set S1 = Sheets(1)
Set S2 = Sheets(2)

Set alan1 = S1.Range("A2:A100")
Set alan3 = S1.Range("B2")

alan3.ClearContents
  
alan1.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=alan3, Unique:=True

Application.ScreenUpdating = True

End Sub

 

[Merhum İdris SERDAR]

Ekteki dosyayı inceleyin

 

[elvis]

arkadaşlar ilginiz için çok teşekkür ediyorum
harikasınız!
bunlar fazlasıyla işimi gördü