Koşullu Sıralama

[steppe]

Merhaba Arkadaşlar,
Epeyce araştırdım fakat örnektekine benzer bir sırlamayı bulamadım. Örnekte detaylı açıkladığım gibi K sütunundaki şehir sırasını bozmadan tarihe göre nasıl sıralayabilirz?
Yardımlarınız için şimdiden teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

01-Bursa
02-İzmir
03-Ankara

Şeklinde şehir isimlerini değiştirirseniz istediğiniz gibi sıralama yapabilirsiniz.
Eğer şehir isimlerinde değişiklik yapmak istemezseniz, tablonuza yeni bir kolon daha eklersiniz yeni eklediğiniz kolanda sıra numarası verip sıralarsınız.

 

[Korhan Ayhan]

A2:E9 aralığını seçin.
Veri menüsünden filtre butonunun yanındaki sırala butonuna tıklayın.
İlk sıralama ölçütüne D..YERİ seçin. Düzen kısmından ÖZEL LİSTE seçeneğini seçin.

Aşağıdaki ekran açılacaktır.



LİSTE GİRDİLERİ penceresine görselde ki gibi yazıp EKLE butonuna tıklayın. Eklediğiniz özel listeyi seçip TAMAM tuşuna basın.

İkinci sıralama ölçütüne ise TARİH sütununu tanımlayıp sıralama işlemini tamamlayın.

 

[steppe]

dalgalıkur ve Korhan Ayhan,
Hocalarıma ilgileri için teşekkür ederim. Yalnız bu sıralamayı kodla yapmak mümkün mü?

 

[Korhan Ayhan]

Dediğim yöntemi makro kaydet ile deneyin. Sonra oluşan kodları düzenlersiniz.

 

[steppe]

Merhaba Arkadaşlar,
Korhan Ayhan Hocamın söylediği gibi makro kaydetten özel liste oluşturdum. Makro gayet güzel çalışıyor. Aşağıda ve örnekte verdiğim makroyu sadeleştirip düzenlemek mümkün mü?

Sub ozel_liste()
'
' ozel_liste Makro
'

'
Application.CutCopyMode = False
'Application.AddCustomList ListArray:=Range("K1:K13")
Range("A2:E803").Select
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add2 Key:=Range("D2367" _
), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"Bursa,İzmir,Ankara,Mersin,İstanbul" _
, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add2 Key:=Range("A2:A367" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sayfa1").Sort
.SetRange Range("A1:E367")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub