Sutunlarin Ayri Ayri Siralanmasi

[eozgungor]

MERHABA,

200 SUTUN-5 SATIRDAN OLUSAN BIR RANGEDE HER SUTUNU KENDI ICINDE SIRALAMAK ISTIYORUM:roll:
BU KOLONLARI BIRBIRLERINDEN BAGIMSIZ NASIL SIRALAYABILIRIM KI? :yardim: SIMDIDEN TESEKKURLER

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub sirala()
For a = 1 To Cells(1, 256).End(xlToLeft).Column
Columns(a).Sort key1:=Cells(1, a)
Next
End Sub

 

[eozgungor]

Kesinlikle Aradigim Buydu, Tekrar Tesekkurler