tarihe göre sıralama

[haruncelebi1]

Arkadaşlar; b sutundaki tarih verilerini sıralamak için oluşturduğum makro aşağıda. ne var ki tarihleri gün ay yıla göre değil yalnızca güne göre sıralıyor yani ;
01/11/2008
05/05/2006
06/05/2005 oluyor
yardımınız için teşekkür ederim.


Private Sub CommandButton39_Click()
Sheets("ÖDEMESAYFASI").Select
Range("b2:c42").Sort Key1:=Range("b2")
End Sub

 

[Merhum İdris SERDAR]

Private Sub CommandButton39_Click()
Sheets("ÖDEMESAYFASI").Select
Range("B2:C42").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

şeklinde deneyin.

 

[haruncelebi1]

sn yurttaş verdiğiniz makroyu kendi çalışmama uyarlayamadım. boş bir sayfaya terihleri girdim bir buton oluşturup denedim çalışıyor ama benim çalışmamda olmuyor.

ben tarih verilerini bir textbox vasıtasıyla giriyorum.. sırala dediğimde olmuyor.sorun textboxla ilgili olabilir mi? teşekkürler.

 

[Merhum İdris SERDAR]

ben tarih verilerini bir textbox vasıtasıyla giriyorum.

Hücreye metin olarak aktardığı için sıralamayı tarih açısından doğru yapmaz.

Textbox'ınızın koduna aşağıdakileri deneyin bakalım ne olacak.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")
End Sub

veya;

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = CDate(TextBox1.Value)
End Sub

ya da;

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(CDate(TextBox1.Value), "dd.mm.yyyy")
End Sub

 

[gezgin3458]

ben tarih verilerini bir textbox vasıtasıyla giriyorum.

Hücreye metin olarak aktardığı için sıralamayı tarih açısından doğru yapmaz.

Textbox'ınızın koduna aşağıdakileri deneyin bakalım ne olacak.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")
End Sub

veya;

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = CDate(TextBox1.Value)
End Sub

ya da;

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(CDate(TextBox1.Value), "dd.mm.yyyy")
End Sub

benim başımdada böyle bir sorun var bende tarihleri sıralatmaya çalışıyorum ama yapamıyorum.
sizin verdikleinizide uyguladım oda çalışmadı banada yardımcı olurmusunuz

 

[haruncelebi1]

ben de denedim olmadı. sorun textbox'a atadığım diğer makrolardan kaynaklanıyor olabilir, çözüm bulursam buraya yazarım. çözüm öneren/önerecek arkadaşlara teşekkür ederim.