Bugün öncesinin gizlenmesi

[ydemiral]

Bir sütuna tarijhleri yazdım. Yanında da takip etmem gerekenler var.
Sorum şu... Her açtığımda geçmiş tarihlerin gizlenip en üstte bu günü görmem mümkünmüdür?

 

[hamitcan]

Sub auto_open()
    For i = 1 To [a65536].End(3).Row
       If Cells(i, 1) <> Date Then Rows(i).Hidden = True
    Next
End Sub

 

[ydemiral]

Sub auto_open()
    For i = 1 To [a65536].End(3).Row
       If Cells(i, 1) <> Date Then Rows(i).Hidden = True
    Next
End Sub

Bunu nereye kopyalamam lazım.
Ayrıca sitede bu konuyu hangi başlıkta aramam gerekiyor.

 

[hamitcan]

Alt+F11 tuşlarına basıp Insert Menüsünden bir Module ekleyin ve içine yapıştırın sonra dosyayı kapatıp açın.