Azalan sıralama yapacak makro

[12SubaT]

Arkadaşlar bir e sütunundaki:
100
50
250
480
5
15
2,5

gibi bulunan rakamları filtre olmadan azalan sıralama yapacak bir makro.rakamlar e sütununa formüller aracılığıyla toplanarak yazılıyor (yani kitap her açıldığında güncelleniyor). Yardımlarınızı bekliyorum...

dosya eklemeye gerek yok,e sütununa bir kaç rakam yazılması yeter siteyi kasmayalım durduk yerde

 

[Emir Hüseyin Çoban]

Merhaba, küçük bir ek olsa iyi olurdu. E sütununa rakamları formül ile aldığınızı belirtmişsiniz.
İlgili satırlarında beraberinde sıralanması gerekmiyor mu?

 

[necro82]

göz atar mısınız?

Range("E1").Select
Range("E1:E3").Sort Key1:=Range("E1"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

 

[12SubaT]

evet hocam
mesela:
ahmet mehmet yazıyor, e sütunundaki değeri 550
ali veli ninki 600
hasan hüseyin 300

filtreden azalan sıralama yapınca yapınca nasıl satırlarla sıralıyorsa öyle olacak yani.

 

[12SubaT]

pardon,buyrun
Ekli dosyayı görüntüle 123.xls

 

[Emir Hüseyin Çoban]

Aşağıdaki kodları deneyiniz.

Sub Makro1()
    Range("B5:I65536").Sort Key1:=Range("E6"), Order1:=xlDescending
End Sub

evet hocam
mesela:
ahmet mehmet yazıyor, e sütunundaki değeri 550
ali veli ninki 600
hasan hüseyin 300

filtreden azalan sıralama yapınca yapınca nasıl satırlarla sıralıyorsa öyle olacak yani.