Rangeteki sayıları sıralama

[SHADOWofCHAOS]

Yukarıdaki rangeteki sayıları, küçükten büyüğe dizen program.
Arkadaşlar yarın programlama sınavım var. Önemli. Kodları yazarsanız çok yardımcı olursunuz

 

[Necdet]

Merhaba,

Makro kaydet ile sonuca ulaşabilirsiniz.

Range("A3:A14").Sort Key1:=Range("A1")

Buraya doğrudan yazdım, denemedim.

 

[SHADOWofCHAOS]

yeterli olmadı.. yine de teşekkürler.

 

[Necdet]

Yeterli olmadı derken?

Kodu açık açık mı yazmak gerek, e yazalım.

Sub Sirala()
    Range("A3:A14").Sort Key1:=Range("A1")
End Sub

Bu kodu bir modüle kopyalayın, isterseniz bir de butona bağlayın.

E bu da yeterli olmaz ise eleştirinizi almak isterim.

 

[mancubus]

programlama sınavına başkasının yazdığı kodlar ile girecekseniz hayat size zor...