Benzersiz ve Alfabetik Sıralama, Belirli Sayfalar İçin

[1Al2Ver]

Merhaba,

"KAYITLAR" sayfasındaki düğmeye tıkladığımda,

"KAYITLAR" sayfası ile sadece "MEYVE", "SEBZE", "BAKLİYAT", "TAVUK", "ET", "YAĞLAR", "KONSERVE", "DONMUŞ" ve "PAKETLİ" sayfaları için,

Her sayfanın "B2:B1500" aralığındaki verileri, yine kendi sayfasının "AA2:AA1500" aralığına,

Ek'li dosyada örneklediğim gibi, Benzersiz ve Alfabetik olarak sıralatmak istiyorum,

(Her sayfaya bir düğme koyup, sayfalara gidip tek tek sıralatmak istemiyorum)

Teşekkür ederim.

 

[İdris SERDAR]

.

Makroya gerek var mı? Bunu deneyin.

Sayfaların hepsini seçin. (KAYITLAR sayfa adının üstünde sağ klik - Select All Sheets)

KAYITLAR sayfasının AA2 hücresine;

=SORT(UNIQUE(B2:B1500);1)

formülünü yazmanız yeterli.

.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu deneyin.

Sub Benzersiz_Sırala_Kayıtlar()
    Dim Sayfalar As Variant
    Dim Sayfa As Integer
    Sayfalar = Array("KAYITLAR", "MEYVE", "SEBZE", "BAKLİYAT", "TAVUK", "ET", "YAĞLAR", "KONSERVE", "DONMUŞ", "PAKETLİ")
    For Sayfa = 0 To UBound(Sayfalar)
        With ThisWorkbook.Worksheets(Sayfalar(Sayfa))
            .Range("B1:B1500").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("AA1"), Unique:=True
            .Range("AA2:AA1500").Sort Key1:=.Range("AA2"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
        End With
    Next
End Sub

 

[1Al2Ver]

Sayın İdris SERDAR merhaba,

Çözüm ve öneriniz için teşekkür ederim,

365 üyeliğim bitince bilgisayarda, ofis 2016 yüklü olacak, bu sürümde sanırım "FİLTRE" işlemi yok,

Bu nedenle makro çözüm istiyorum,

Tekrar teşekkür ederim.

 

[1Al2Ver]

Sayın Muzaffer Ali,

İlginiz ve çözüm için teşekkür ederim, çok makbule geçti.

Saygılarımla.