Belirli Sayfalarda Çalışan Makro

[1Al2Ver]

Merhaba,

Makro Kaydet yöntemi ile elde ettiğim Benzersiz Sırala ve Alfabetik Sırala kodları kendi sayfasında çalışmaktadır.

İsteğim ; Bu kodların sadece, aşağıda ismi geçen sayfalarda ve tek bir kod olarak, "KAYITLAR" sayfasından bir düğme ile çalışmasıdır.

Sayfa isimleri ; "KAYITLAR", "MEYVE", "SEBZE", "BAKLİYAT", "TAVUK", "ET", "YAĞLAR", "KONSERVE", "DONMUŞ" ve "PAKETLİ" dir,

Teşekkür ederim.

Sub Benzersiz_Sırala_Kayıtlar() 

  Range("B1:B1500").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "AA1"), Unique:=True
        
  Call Alfabetik_Sırala_Kayıtlar
        
End Sub

Sub Alfabetik_Sırala_Kayıtlar() 

    Range("AA2:AA1500").Select
    ActiveWindow.SmallScroll Down:=-37
    Selection.Sort Key1:=Range("AA2"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

 

[Korhan Ayhan]

Aşağıdaki yapıyı kendinize uyarlarsınız.

Option Explicit

Sub Test()
    Select Case ActiveSheet.Name
        Case "KAYITLAR", "MEYVE", "SEBZE", "BAKLİYAT", "TAVUK", "ET", "YAĞLAR", "KONSERVE", "DONMUŞ", "PAKETLİ"
            Rem Çalışmasını istediğiniz kodları buraya yazınız.
        Case Else
            MsgBox "Makronuz bu sayfada çalışmaz!", vbCritical
    End Select
End Sub

 

[1Al2Ver]

Sayın Korhan Ayhan merhaba,

İlginiz için teşekkür ederim,

Önceki mesajımda açıklamaları yanlış ifade etmiş olabilirim,

Adı geçen sayfaların "B2:B1500" arasında veriler var ve bu veriler her sayfada farklı,

Örn; "KAYITLAR" sayfası "B2:B1500" aralığında, Ali, Veli, Niyazi.. vb varken, "MEYVE" sayfası "B2:B1500" aralığında Ali, Bahri, Şeref var, (bazı isimler ortak, bazıları değil)

İsteğim ; "KAYITLAR" sayfasına koyacağım bir düğmeye tıkladığımda,

Her sayfanın kendine özgü "B2:B1500" aralığındaki verileri, yine her sayfanın "AA2:AA1500" arasına benzersiz ve alfabetik sıralama yapmasıdır,

Şimdiki hali ile her sayfaya bu kodu ayrı ayrı yazıp, kendi sayfasına gidip çalıştırıyorum, bu da her seferinde 11 sayfaya gitmemi gerektiriyor.

Olabiliyor ise bu şekliyle çalışan bir makro kodu rica ediyorum,

Teşekkür ederim.

 

[Korhan Ayhan]

Sorunuz birden bambaşka bir boyut aldı...

 

[1Al2Ver]

Sayın Korhan Ayhan, tekrar merhaba,

Yanlış ifadeler ve yönlendirmeler için özür dilerim, 1 nolu mesajımda anlatmak istediğimi, ifadeye dökememişim,

Yeni isteğim olabilir ise memnun olurum,

Teşekkür ederim.