Tarihe Göre Sırala

[Leoncio]

Merhaba;

Örneğini ekte verdiğim çalışmamda, günlük girişler yapılıyor. B sütunu tamamen tarihlerden oluşan verilerden mevcut. B8 hücreden itibaren yıl sonuna kadar dolacak. Yapmam gereken;

Belki bir Auto_open olarak yazılabilir. Dosya açıldığında tarih sırasına göre sıralasın.

 

[fedeal]

Sub auto_open()
Range("A8:F" & Sheets("sayfa1").Cells(65536, "a").End(xlUp).Row).Select
Selection.Sort Key1:=Range("B8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("sayfa1").Cells(1, "a").Select
End Sub

iyi çalışmalar.

 

[Ayhan Ercan]

Merhaba

Sub Auto_Open()
Sayfa1.Select
Range("a8:f" & Sayfa1.[f65536].End(3).Row).Sort key1:=Sayfa1.Range("B8")
End Sub

 

[Leoncio]

Arkadaşlar Teşekkür ederim.