Tarihe göre sütun gizleme

[amatory]

merhaba aşağıdaki gibi bir tablom var. ek olarak ta koydum. şimdi benim istediğim bugun ayın kaçıysa sadece o sütun gözüksun. yani bugun ayın 2si ise b, d, e, f .... af sütunları gözükmesin. birde yeni aya geçince ayın 1inde b1:af5 arasındaki tüm veriler temizlensin. yine tekrar yeni ayda bu şekilde veri girebileyim. bunu yapmak mümkün müdür. şimdiden emeğiniz için çok teşekkürler

a b c d e f g ............ af

1 adı 1 2 3 4 5 6 ........... 31

2 ali x i x x x x ............. x

3 mehmet x i x x x x ............. x

4 ahmet x i x x x x ............. x

5 metin x i x x x x ............. x

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Sub auto_open()
    Application.ScreenUpdating = False
    
    Sheets("Sayfa1").Select
    Columns("B:AF").EntireColumn.Hidden = True
    
    For i = 2 To 32
        If Cells(1, i) = Format(Date, "d") * 1 Then
            Columns(i).EntireColumn.Hidden = False
            Exit For
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Sub KOD_TÜMÜNÜ_GÖSTER()
    Columns("B:AF").EntireColumn.Hidden = False
End Sub

Sub KOD_TEMİZLE()
    Columns("B:AF").ClearContents
End Sub

Ekran Görüntüsü:

. . .

 

[amatory]

Cok saolun emeginize saglik hocam bi inceleyim.