Karışık sayılar sıralansın

[Ercan_ÇELİKOĞLU]

Örnek dosyada A sütununa karışık sıra numarası olan sayılar yazılı amaç şu A1 'DEN Aen son satırına kadar yazılı olan karışık sayıları tek bir makro ile sıralansın

 

[Necdet]

Merhaba,

Sub Sırala()
Son = [A65536].End(3).Row
Range("A1:A" & Son).Sort Key1:=[A1]
End Sub

 

[Orion1]

Buyurun efendim.

Sub sirala()
Range("A1:A65536").Sort Range("A1")
End Sub

 

[Ercan_ÇELİKOĞLU]

Sayın Gizlen ve Yeşertener

Sizlere teşekkürü bir borç bilirim saygıyla.

 

[Orion1]

Sizlere teşekkürü bir borç bilirim saygıyla.

Rica ederim.
İyi çalışmalar.