Tarihe ğöre sırala

[mutluedenercan]

Ekte içini silerek verdiğim bir liste var...

Doğum tarihi önce olanları öne gitirisin istiyorum...


Normal sırala komutu ile yapamadım ( isime göre sırama mümkünde tarihe göre olmuyormu)

yani satır yazımı bitince otomatik tarihe göre sıralaması mümkünmü
( yaşı küçük olanlar üst satıra geçecek)

teşekkür

 

[sametozyavuz]

komut yerine A dan Z ye
yada Z den A ya sıralatma yöntemini deneseniz.

Sub Makro3()
'
' Makro3 Makro
'

'
    Columns("D:D").Select
    Range("D2").Activate
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("D2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sayfa1").Sort
        .SetRange Range("A3:G23")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1:G1").Select
End Sub

 

[mutluedenercan]

bunu bir düğmeye atadım run time eror 438 verdi.....

 

[sametozyavuz]

hata veren dosyayı ekleyiniz

 

[mutluedenercan]

ekledim ..teşekkür

 

[ckayaz]

tersine istersen kod sayfasında Order:=1 yazan yeri 1 yerine 2 yazarsınz