Tarihlerde Sıralama

[iplikci_80]

Öncelikle herkese merhabalar arkadaşlar.EK'te gönderdiğim belgenin B3 sütunundan başlamak üzere girdiğim karışk tarihlerin otomatik olarak bağlı buldukları satırlarıda içine almak kaydıyla küçükten büyüğe sıralamasının yapılmasını yapmak isitiyorum yardımcı olursanız severinim. Herkese teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayın.

B sütununda herhangibir hücreye çift tıkladığınızda sıralama yapılacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    Cancel = True
    Range("B3:O" & Rows.Count).Sort Range("B3"), xlAscending
End Sub

 

[iplikci_80]

çok teşekkür ederim.