bütün ustalara oncelıkle kolay gelsin

Katılım
24 Aralık 2013
Mesajlar
2
Excel Vers. ve Dili
10
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

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,892
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
. . .

Dosyanız ektedir.

İşlem Sonucu:


Kod:
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
. . .
 

Ekli dosyalar

Üst