bütün ustalara oncelıkle kolay gelsin

[nkon8]

benim sorum ornek tarihler alt alta sıralı

24.11.2013
25.11.2013
26.11.2013
27.11.2013
28.11.2013
29.11.2013
30.11.2013
......

ben ıstıyorumkı fıltre yapım her actıgımda 3 gun ve sonrası gelsın gelsın oncelerı gostermesın daha bana acaba mumkunmu

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

İşlem Sonucu:

Sub AUTO_OPEN()
Application.ScreenUpdating = False

Dim süz As Long
With Sheets("Günler")

On Error Resume Next
If Not .AutoFilterMode Then
.Range("A1").AutoFilter
Else
.ShowAllData
End If

süz = Format(DateValue(Date), "0") - 3
.Range("A1").AutoFilter Field:=1, Criteria1:=">=" & süz

End With
Application.ScreenUpdating = True
MsgBox Format(süz, "dd.mm.yyyy") & " ve sonrası listelendi"
End Sub

. . .