Aynı olan verileri diğer sayfaya tek olarak aktarmak

[kontto]

Arkadaşlar, daha önce bu siteden arkadaşlar yardımı ile aşağıdaki kodu kendime göre uyarlamıştım. Çokta işime yaramıştı. Sizden istediğim yardım. Aktarma yaparken A dan Z ye sıralayarak aktarmasını istiyorum. Umarım yardımcı olursunuz. Şimdiden sağolun.

Option Explicit
Private Sub Worksheet_Activate()
Dim syf As Worksheet
For Each syf In Worksheets
On Error Resume Next
If syf.FilterMode = False Then
Else
syf.ShowAllData
End If
Next syf
Sheets("veri").Columns(6).Copy
Sheets("anasayfa").Columns("aa:aa").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$AA$1:$AA$65536").RemoveDuplicates Columns:=1, Header:= _
xlYes
Range("AA1").Select
End Sub

 

[suleyman242]

Aktarma yaparken A dan Z ye sıralayarak aktarmasını istiyorum. Umarım yardımcı olursunuz. Şimdiden sağolun.

illa ki aktama sırasında mı sıralama istiyorsun yoksa aktarma işlemi tamamlanınca sıralasa işini görür mü?

 

[erkanfun]

Arkadaşlar, daha önce bu siteden arkadaşlar yardımı ile aşağıdaki kodu kendime göre uyarlamıştım. Çokta işime yaramıştı. Sizden istediğim yardım. Aktarma yaparken A dan Z ye sıralayarak aktarmasını istiyorum. Umarım yardımcı olursunuz. Şimdiden sağolun.

Option Explicit
Private Sub Worksheet_Activate()
Dim syf As Worksheet
For Each syf In Worksheets
On Error Resume Next
If syf.FilterMode = False Then
Else
syf.ShowAllData
End If
Next syf
Sheets("veri").Columns(6).Copy
Sheets("anasayfa").Columns("aa:aa").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$AA$1:$AA$65536").RemoveDuplicates Columns:=1, Header:= _
xlYes
Range("AA1").Select
End Sub

Örnek bir dosya koymalısınız.

 

[kontto]

Arkadaşlar kusura bakmayın hafta sonu girince girme imkanım olmadı. Süleyman bey aktardıktan sonrada a dan z ye sıralayabilir.

 

[suleyman242]

Arkadaşlar kusura bakmayın hafta sonu girince girme imkanım olmadı. Süleyman bey aktardıktan sonrada a dan z ye sıralayabilir.

Kendi hazırladığım bir dosyayı ekledim.