Makro ile özel sıralama

[kemalist]

Arkadaşlar Merhaba;benim istediğm E2 hüresini baz alarak yukardan aşağıya büyükten küçüğe arada boşluk olmadan makro ile sıralama yapmak.
Örnek dosya ektedir.İlginize şimdiden teşekkür ederim.

 

[Orion1]

Buyurun.

Sub siralama()
Dim son As Long
son = Sheets("Sayfa1").Cells(Rows.Count, "E").End(xlUp).Row
Range("A2:E" & son).Sort Range("E2"), xlDescending
End Sub

 

[kemalist]

hocam üst kısımda boş satırlar oluşuyor

 

[Orion1]

Sizin son satırı esas son satırın ardından 10 - 15 satır daha var.Used range öyle kabul ediyor.
O boşlekları silerseniz düzelir.

 

[kemalist]

hocam o satırlarda formüller var daha sonra ilave edersek diye duruyor

 

[Orion1]

Aşağıdaki mavi renkteki karakteri tekrar düzeltin.
son = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row

 

[5353]

"Sub siralama()
Dim son As Long
son = Sheets("Sayfa1").Cells(Rows.Count, "E").End(xlUp).Row
Range("A2:E" & son).Sort Range("E2"), xlDescending
End Sub"

Küçükten büyüğe nasıl olur.
Up Down filan yaptım olmadı ?

 

[Korhan Ayhan]

MAKRO KAYDET yöntemini deneyiniz.