numaraya göre veri sıralamayı bir butonla nasıl yapılı

[ahmetozbey]

a1:50,b1:b50,c1:50 hücrelerinde hücrelerinde verilerim var a1:a50 hücrelerinde numaralar kayıtlı b hücrelerinde isim c de ise soyisimler var.
buton vasıtası ile numaraya göre nasıl sıralattırabilirim.
şimdiden teşekkür ederim.

 

[prodigy]

Sub sırala()
Range("a1:c500").Select
Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("a1").Select
End Sub

bunu bir butona atayabilirsin

 

[ahmetozbey]

teşekkür ederim. işimi gördü.