2 Sınamalı Sıralama

[xBariSCiLx]

Merhaba.
Forumda benzer başlıklara baktım. Bu konuda çok bilgim olmadığı için kendime göre yeterince düzenleyemedim. Ek te olan dosyadaki sıralamayı macro ile nasıl yapabiliriz? Yardımcı olursanız sevinirim.(Önce rütbe sonra adısoyadı sütununa göre tablo içerisindeki alanda satırları sıralamasını istiyorum.)
Ayrıntılı açıklama dosyada yazdım.

 

[halit3]

Alternat,f olarak bu kodu denermisiniz.

Sub sıralama()
On Error Resume Next
satır = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sutun = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells(4, 1), Cells(satır, sutun)).Select
Application.Dialogs(39).Show
Range("a1").Select
End Sub

Uygulama:
1. açılan pencereden sıralama ölçütü açılan listeden sutun B yi seçin
2.düzey ekle düğmesine tıklayıp alta açılan yeni listeden (daha sonra) dan açılan listeden Sutun C yi seçin ve tamamı tıklayın.

 

[xBariSCiLx]

İlginize teşekkürler. Ancak Düzey ekleme bölümü sınırlı sayıda karakter aldığı için gerekli rütbelerdeki karakterler fazla geliyor ve hepsini kabul etmiyor
Eklenmesi gereken rütbeler ekteki dosyada var.