Alfabetik sıraya göre filtreleme

[kadir78]

İyi günler. Aşağıdaki kod ile filtreme yapıyorum fakat bu işlemi alfabetik sıraya göre nasıl yapabilirim. Filtreleme yaptığım L sütununda ay isimleri var Ocak tan, Aralık a kadar 1 yıllık. Makro ile filtreme yaparken hücre içerisine yazdığım Ay adı ile filtreleme sorun yok, hücre içerisine veri girmeden alfabetik sırayla makro ile filtrelemek için kodlara nasıl ekleme yapmak gerekir.

s2.range("B5:V1200").Autofilter Field:12, criteria1:=s1.range("B2")

 

[YUSUF44]

Aşağıdaki kodlar B2 hücresine sırasıyla ayları yazar. Next satırından önce o aya ilişkin kendi işlem kodlarınızı ekleyebilirsiniz.:

Dim ay As Variant
ay = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
For bak = 0 To UBound(ay)
    [B2] = ay(bak)
Next

 

[YUSUF44]

Alfabetik sıralama için koddaki ayları kendiniz sıraya dizebilirsiniz.

 

[kadir78]

Yusuf bey teşekkür ederim sağolun.

 

[kadir78]

Yusuf bey kodları denedim yanlız benim istediğim gibi olmadı. Hücre icerisindeki veriyi kullanmadan fitre yapılmış L sütunundaki alfabetik sıraya göre yapılamazmı.

 

[YUSUF44]

Hangi sayfanın L sütunundan bahsediyorsunuz? Dosyanızı görmeden yorum yapamam!

 

[kadir78]

Yusuf bey iki sayfa var birinci sayfa rapor sayfası s1 ikinci sayfa ise s2 verilerin olduğu sayfa L sütunu s2 veri sayfasında. S1 rapor sayfasını setledim, s2 veri sayfasını setledim. Rapor sayfasındaki b2 hücresine ay adı girmeden veri sayfasındaki filtre yapılmış L sütunundaki filtre değerleri alfabetik olarak listeleniyor. İşte bu listeye göre makro ile filtreleme yapmak istiyorum. İş yerinde Internet bulunmadigindan cep ten yaziyorum.

 

[YUSUF44]

Dosya olmadan yorum yapamam maalesef.