açılışta bugünden eski tarihleri filtreleme ve tarihi geçen sütunu gizleme

[talparsla]

üstadlar kolay gelsin,
a sütununda 365 gün sırasıyla aşağıya doğru gidiyor, ve sütunlarda görevler var.
excel açıldığı günden önceki satırların gizlenmesi ve sütundaki görevin tarihi geçtiğinde gizlenmesini nasıl sağlayabilirim.

 

[apocalyt]

boş bir modüle kopyalayın.

Sub auto_open()
Dim x As Long
For x = 3 To [a1000].End(3).Row
If CDate(Cells(x, 1)) <= Now - 1 Then
Rows(x).Hidden = True
Else
Exit Sub
End If
Next x
End Sub

 

[tahsinanarat]

dosyanız ekte

c1 hücresinde bu =BUGÜN() formülü var olup bugünün tarihinden önceki tarihleri gizler

Sub auto_open()
Application.ScreenUpdating = False
Set s1 = Sheets("Sayfa1")
tarih = s1.[c1]
For i = 2 To s1.[A65536].End(3).Row
    If tarih >= s1.Cells(i, "a") Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Göster()
    Cells.Select
    Selection.EntireRow.Hidden = False
    Range("C1").Select
End Sub

 

[tahsinanarat]

Sn. apocalyt, sizin kodlarınızı da denedim, tarihler karışık olduğunda gizleme yapmıyor, ancak tarih sırasında ve küçük tarihler ilk sarılarda olursa gizleme yapıyor, bilginiz olsun, göz atabilirseniz sevinirim.

 

[apocalyt]

üstad talparsla arkadaş veriler sıralı diyince bende kodun boşuna 365 satır dolaşmasını engellemek için ilk kendisinden büyük bulduğu tarihte makronun çalışmasını durdurması için yazdım..genede teş uyarı için ..

 

[talparsla]

ilgilenen tüm arkadaşlara teşekkür ederim.