Sıralama

[Z3U519]

Arkadaşlar aşağıdaki gibi bir veriyi sıralamak istiyorum.Yalnızca sayıları sıraladığımda şehirlerin sırası değişmediği için karışıyor.Ben şehirlerin ve değelerinin büyükten küçüğe ya da küçükten büyüğe sıralanmasını istiyorum.2007'de nasıl yapabilirim?

Adana 320
Ankara 410
Antalya 250
Hatay 720

gibi..

 

[İhsan Tank]

dosya ekler misiniz_?

 

[Z3U519]

Verileri girmedim henüz ama tüm iller için bu şekilde sıralama yapmam gerekiyor.

 

[İhsan Tank]

Verileri girmedim henüz ama tüm iller için bu şekilde sıralama yapmam gerekiyor.

ne istediğinizi anlamadım üstteki mesajımı okudunuz mu_?
ben açıklama istemedim dosya istedim. hadi dosyanın içine açıklama yazın da yardım edelim bari

 

[Z3U519]

Kabataslak şöyle bişey olacak İhsan Bey.

 

[İhsan Tank]

Kabataslak şöyle bişey olacak İhsan Bey.

merhaba
boş bir module kopyalayın ve deneyin.
küçük sıralaması için

Sub sırala_küçük()
Dim ts
ts = MsgBox("Küçükten Büyüğe Sıralama Yapıyorum", vbYesNo, "Onay")
If ts = vbNo Then Exit Sub
Application.ScreenUpdating = False
Range("A2:B1048576").Sort key1:=Range("B2"), order1:=xlAscending, _
key2:=Range("A2"), order2:=xlAscending
Application.ScreenUpdating = True
MsgBox "Küçük'ten Büyüğe Sıraladım", vbInformation, "Bitiş"
End Sub

büyük sıralaması için

Sub sırala_büyük()
Dim ts
ts = MsgBox("Büyükten Küçüğe Sıralama Yapıyorum", vbYesNo, "Onay")
If ts = vbNo Then Exit Sub
Application.ScreenUpdating = False
Range("A2:B1048576").Sort key1:=Range("B2"), order1:=xlDescending, _
key2:=Range("A2"), order2:=xlAscending
Application.ScreenUpdating = True
MsgBox "Büyükten Küçüğe Sıraladım", vbInformation, "Bitiş"
End Sub

 

[Z3U519]

Çok teşekkür ederim çalıştı.

 

[İhsan Tank]

Çok teşekkür ederim çalıştı.

rica ederim
:yazici: