Sıralama Kodu

[İsmail Küçükşengün]

Merhabalar;

Excel çalışma kitabının sayfasında verilerim var.

Bu sayfada "F" sütununda;

07 Aralık 2006 12:35
12 Aralık 2006 09:30
12 Aralık 2006 09:50
12 Ekim 2006 09:50
14 Aralık 2006 14:00
14 Aralık 2006 14:00
14 Aralık 2006 14:00
19 Ekim 2006 09:35
21 Kasım 2006 11:20
30 Kasım 2006 14:00
30 Kasım 2006 14:00
30 Kasım 2006 14:00
30 Kasım 2006 14:00
30 Kasım 2006 14:00
31 Ocak 2007 09:00

Şeklinde tarihler var.

Bu tarihlerin ARTAN ŞEKİLDE sıralanması için;


Sheets("duruşmalar").Select
Range("A3:F65500").Select
Selection.Sort Key1:=Range("F3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("F3").Select

Şeklinde kod kullanıyorum.

Bu kez ilk harf ya da rakam olan gün tarihine göre
yukarıdaki örnekte olduğu gibi önce 07 Aralık 2006 12:35 tarihi geliyor.

Oysa en yakın tarih olan 12 Ekim 2006 09:50 tarihinin ilk sırada olması gerekir.

Excel sayfasının F sütununun hücre biçimlendirmesi de tamam.

Yukarıdaki kodda ne gibi değişiklik uygundur.

Şimdiden Teşekkürler...

 

[Recep İpek]

Selection.Sort Key1:=Range("F3"),

satırını

Selection.Sort Key1:=Range("F2"), olarak deneyin.

 

[İsmail Küçükşengün]

Sn. ripek;

İlgine teşekkürler.

Veriler 3. satırdan başlıyor.
Yine de denedim. Fakat sonuç değişmedi.

 

[Recep İpek]

Sizin kodlarınız bende çalışıyor.

Örnek dosya ektedir.

 

[İsmail Küçükşengün]

Sn. ripek;

İlginize bir kez daha teşekkür ediyorum.
Evet örneğinizde çok güzel sıralama yapıyor.
Veri girişlerim Userform.dan.
Hem userforma, hem de çalışma sayfasına aynı kodları uyguladığım halde, yine
maalesef sıralama yapmıyor.
Sorun aklıma gelmeyen başka bir sebepten olabilir.

Çalışmamın boyutu çok fazla olduğu için, buraya da ekleyemiyorum.

En iyisi kafayı yememek için olduğu gibi bırakmak galiba.
Yeni bir program çalışmamda, yapamadığın 2 konu var. Birisi bu. Neyse.

Teşekkürlerimi sunuyorum.
Selamlarımla.

 

[Recep İpek]

İsterseniz iftardan sonra tekrar deneyiniz.