YARDIM Tek bir sütundaki sayıları küçükten büyüğe sıralayan makro

[muazbudak]

Arkadaşlar belki forumda vardır ama ben bulamadım. Eğer varsa şimdiden özür dilerim...

A sütununda (sayılar) isminde bir Range olduğunu varsayalım. Bu range de atıyorum A10 a kadar birbirinden farklı sayılar var. ben bu range deki sayıları küçükten büyüğe sıralayan makroyu istiyorum.. sağ tıklatıp sırala yapıyoruzya hani işte onunla aynı işlevi yapacak olan makro yani..

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir

 

[Necdet]

Merhaba,

Başka bir örnek :

Sub Sirala()
    Range("A2:A" & Cells(Rows.Count, "A").End(3).Row).Sort Key1:=[A1]
End Sub

 

[muazbudak]

Teşekkür ederim ancak lazım olan kod bu değil. evet aynı işi yapıyor ancak hoca bunu sormuyor. dim kullanarak if kullanarak vs istiyor. aslına bakarsan eğer biz bilgisayarı bir çok işimizi pratik bir biçimde yapmak için kullanıyorsak program yazarken de pratik olanı kullanmamız gerekir. hatta sağ tıkla sırala geç. ama naparsın işte eğitim sistemimizin amacı hiç bir zaman öğrenciye bir şeyler kazandırmak olmadı. ve olacağına da inanmıyorum. öğretmek yerine eziyet ediyorlar. her neyse ben yazdım işine yarayan olur diye burda paylaşıyım sizde bi gözgezdirin isterseniz @asr35 @NecdetYeşertener

 

[YUSUF44]

Teşekkür ederim ancak lazım olan kod bu değil. evet aynı işi yapıyor ancak hoca bunu sormuyor. dim kullanarak if kullanarak vs istiyor. aslına bakarsan eğer biz bilgisayarı bir çok işimizi pratik bir biçimde yapmak için kullanıyorsak program yazarken de pratik olanı kullanmamız gerekir. hatta sağ tıkla sırala geç. ama naparsın işte eğitim sistemimizin amacı hiç bir zaman öğrenciye bir şeyler kazandırmak olmadı. ve olacağına da inanmıyorum. öğretmek yerine eziyet ediyorlar. her neyse ben yazdım işine yarayan olur diye burda paylaşıyım sizde bi gözgezdirin isterseniz @asr35 @NecdetYeşertener

Öncesinde tam istediğinizi belirtmediğiniz için arkadaşların akıllarına gelen ilk çözümü uygulamaları gayet doğal (buna occam'ın usturası deniyordu galiba).

Çözümü kendiniz halletmeniz güzel. Sadece bir ayrıntıyı ifade etmek istiyorum:

n = Range("Rakamlar").Rows.Count

satırı bence gereksiz çünkü siz rakamlar alanını A1:a10 olarak oluşturmuşsunuz, yani bu durumda n her zaman 10 çıkar. for i = 1 to 10 yazmanız yeterliydi.

 

[muazbudak]

Forumda bir çok kişinin benim aradığım kodu aradığını farkettim ama çözümü bulamadım. Olur da bu sayfaya denk gelip faydalanmak isteyen olursa sadece Rakamlar Range i oluşturup bu kodu aynen kullanabilsinler diye

 

[Necdet]

Forumda bir çok kişinin benim aradığım kodu aradığını farkettim ama çözümü bulamadım. Olur da bu sayfaya denk gelip faydalanmak isteyen olursa sadece Rakamlar Range i oluşturup bu kodu aynen kullanabilsinler diye

Diziyi sıralamak deseydiniz bu kadar lafa gerek kalmazdı
Üstelik dizi sıralamaları ile ilgili örneklerde var hatırladığım kadarıyla.

 

[muazbudak]

Neyse benim hatam. Zaten ilk mesajda peşin peşin özür dilemiştim. Hersey icin sağolun