Sıralamada boş satırları alta alma

[mserler]

üstadlarım kolay gelsin.sitedeki bir çok örneği inceledim fakat sıralamayı istediğim gibi yapamadım.başka bir sayfadan aldığım verileri sıralarken sıralanacak derecesi olmayan fakat dereceleri olanların altına sıralanmasını istediğim verileri sıralatamadım.ekteki dosyadaki açıklamaya göre yardım ederseniz çok sevinirim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub Sirala()
Range("A6:M" & [A65536].End(3).Row).Sort Key1:=[D1], kEY2:=[B1]
End Sub