Günü gelmiş tarihten itibaren tarih sıralaması

[ASLAN7410]

Merhaba arkadaşlar.

Ekte gönderdiğim örnek sayfamda günü gelmiş tarihten itibaren tarih sıralaması yapmak istiyorum, günü geçmiş tarihleride en sona sıralamasını istiyorum, veri satırı çok olduğu için takip etmesi zor oluyor.

Veri kısmından A'dan Z'ye sırala dediğimde en küçük tarihten en büyük tarihe sıralama yapıyor, ancak burada günü geçmiş tarihler satırın en başına geliyor, buda benim işime yaramıyor.

Yardım edecek arkadaşlara şimdiden teşekkür ederim.

http://s3.dosya.tc/server5/o4kofo/Yeni_klasor.rar.html

 

[Ömer BARAN]

Merhaba Sayın ERASLAN.
Aşağıdaki kod'u Sayfa1'in kod bölümüne yapıştırın.
Tarihlerden birini değiştirdikten sonra, sayfa değiştirip Sayfa1'e tekrar dönerek test ediniz.

Kod sayfa etkinleştiğinde otomatik olarak çalışacak ve sıralamayı yapacaktır.

Private Sub Worksheet_Activate()
son = [A65536].End(3).Row
With Range("F2:F" & son)
    .Formula = "=IF(D2>TODAY(),(D2-TODAY()*MAX(A:A)),IF(D2=TODAY(),-1*(MAX(A:A)*ROW())*TODAY(),IF(D2<TODAY(),(TODAY()-D2)+(ROW()/MAX(A:A)))))"
End With
Range("A2:F" & son).Sort Key1:=Range("F2"), Order1:=xlAscending
Range("F2:F" & son).ClearContents
End Sub

 

[Ömer BARAN]

Eğer, sıra numarlarının da yenilenmesini istiyorsanız; yukarıdaki kod'un sonundaki End Sub satırından önce aşağıdaki satırları ekleyiniz.

With Range("A2:A" & son)
    .Formula = "=ROW()-1"
    .Value = .Value
End With

 

[ASLAN7410]

Ömer Bey valla süper oldu Allah razı olsun, çok teşekkür ediyorum.
Hayırlı çalışmalar.