Filtrele ve A dan Z ye sırala

[mcetinkaya65]

Rapor diye bir çalışmam var.
Arşiv sayfasının B2 hücresinden sona kadar yazılı İsim ve soy isimleri filtreleyip Gen topl sayfasının B2 hücresinden başlayarak 1 er adet ve alfabetik olarak sıralıyor.
Sorun ise;
B2 hücresinde olan isim ve soy isim eğer stunda tekrarlamış ise 2 defa yazıyor.
Çalıştıran Makro
Saygılarımla..

Sub Mukerrer2()
Dim say As Long, say1 As Long, shf1 As Worksheet, shf3 As Worksheet

Set shf1 = Sheets("Arşiv")
Set shf3 = Sheets("Gen topl")

shf3.Range("B2:B" & shf3.Range("B3000").End(3).Row).Clear
shf3.Activate

say = shf1.Range("B30000").End(3).Row
shf1.Range("B2:B" & say).AdvancedFilter xlFilterInPlace, Unique:=True
shf1.Range("B2:B" & say).Copy shf3.Range("B2")

say1 = shf3.Range("B30000").End(3).Row
shf3.Range("B2:B" & say1).Sort Key1:=shf3.Range("B2")
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub Mukerrer2()
    Dim say As Long, say1 As Long, shf1 As Worksheet, shf3 As Worksheet
    
    Set shf1 = Sheets("Arşiv")
    Set shf3 = Sheets("Gen topl")
    
    shf3.Range("B2:B" & shf3.Range("B3000").End(3).Row).Clear
    shf3.Activate
    
    say = shf1.Range("B30000").End(3).Row
    shf1.Range("B1:B" & say).AdvancedFilter xlFilterInPlace, Unique:=True
    shf1.Range("B2:B" & say).Copy shf3.Range("B2")
    
    say1 = shf3.Range("B30000").End(3).Row
    shf3.Range("B2:B" & say1).Sort Key1:=shf3.Range("B2")
End Sub

 

[mcetinkaya65]

Deneyiniz.

Sub Mukerrer2()
    Dim say As Long, say1 As Long, shf1 As Worksheet, shf3 As Worksheet
    
    Set shf1 = Sheets("Arşiv")
    Set shf3 = Sheets("Gen topl")
    
    shf3.Range("B2:B" & shf3.Range("B3000").End(3).Row).Clear
    shf3.Activate
    
    say = shf1.Range("B30000").End(3).Row
    shf1.Range("B1:B" & say).AdvancedFilter xlFilterInPlace, Unique:=True
    shf1.Range("B2:B" & say).Copy shf3.Range("B2")
    
    say1 = shf3.Range("B30000").End(3).Row
    shf3.Range("B2:B" & say1).Sort Key1:=shf3.Range("B2")
End Sub

Sayın Korhan Ayhan Bey
Allah razı olsun.
İki Makro arası farkı bulamadım E yaşlılıktan herhalde

 

[Korhan Ayhan]

Fark;

shf1.Range("[B][COLOR=Red]B1[/COLOR][/B]:B" & say).AdvancedFilter xlFilterInPlace, Unique:=True