Tarih Sıralama

[whusburn]

ekte ki banka ekstresini tarih sırasına göre eskiden yeniye sıralamak istediğimde bakiye ve açıklamalar sütunu tarih sırasına göre sıralanmamakta forumda çok araştırdım ama soruna çözüm bulamadım yardımcı olacak arkadaşlarla şimdiden teşekkür ediyorum

 

[İhsan Tank]

ekte ki banka ekstresini tarih sırasına göre eskiden yeniye sıralamak istediğimde bakiye ve açıklamalar sütunu tarih sırasına göre sıralanmamakta forumda çok araştırdım ama soruna çözüm bulamadım yardımcı olacak arkadaşlarla şimdiden teşekkür ediyorum

merhaba
boş bir module kodu kopyalayın ve çalıştırın

Option Explicit
Sub sırala()
Dim ts
ts = MsgBox("Tarih Sıralaması Yapayım Mı_?", vbYesNo, "Onay")
If ts = vbNo Then Exit Sub
Range("A2:D1048576").Sort key1:=Range("A2"), ORDER1:=xlAscending
MsgBox "Sıralama Yapıldı", vbInformation, "Bitiş"
End Sub

 

[whusburn]

olmadı üstad bakiyeler sıralanmadı 30.06.2011 tarihinde son işleme göre bakiye şu şekilde olmalı işlem -0.14 bakiye +8.36