• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
24 Ocak 2010
Mesajlar
3
Excel Vers. ve Dili
2003 tr
ü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.
 

Ekli dosyalar

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
 
dosyanız ekte

c1 hücresinde bu =BUGÜN() formülü var olup bugünün tarihinden önceki tarihleri gizler
Kod:
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
 

Ekli dosyalar

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.
 
ü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 ..
 
ilgilenen tüm arkadaşlara teşekkür ederim.
 
Geri
Üst