Seçilen ay hariç diğer ayların gizlenmesi

[unur]

Mrb arkadaşlar;

1-Eklediğim dosyada açıkladığım üzere C1 sütününda seçilen ay hariç diğer ayların sütunlarının gizlenmesini sağlayabilirmiyiz.
2-Aylarda aynı günü yazmamak için mükerer yazılmamasını sağlamak istiyorum.
Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sut As Byte
If Intersect(Target, [c1]) Is Nothing Then Exit Sub
Cells.EntireColumn.Hidden = False
    For sut = 4 To 39
        If Not Cells(4, sut).Value Like [c1].Value Then
            Cells(4, sut).EntireColumn.Hidden = True
        End If
    Next
End Sub

 

[unur]

Çok Teşekkürler elinize sağlık.

 

[polis-53]

seçilen ay hariç diğerleri gizledi tamam tümünü göster de yaparsanız çok daha ili olacak sanırım

 

[unur]

Mrb arkadaşlar;

2-Aylarda aynı günü yazmamak için mükerer yazılmamasını sağlamak istiyorum.

Polis-53 arkadaşımızın dediği gibi tümünü görme seçeneği olursa ve yukarıda yazdığım gibi mükerrrer yazılmamasını sağlayabilirsek daha kullanışlı olacak.Teşekkürler.

 

[unur]

Polis-53 arkadaşımızın dediği gibi tümünü görme seçeneği olursa ve yukarıda yazdığım gibi mükerrrer yazılmamasını sağlayabilirsek daha kullanışlı olacak.Teşekkürler.

Yardımcı olacak arkadaşlara şimdiden Teşekkürler.

 

[Mahir64]

Merhaba,

Bu şekilde deneyin.

Sub Tümü()
Columns("D:AM").EntireColumn.Hidden = False
End Sub

 

[unur]

Teşekkürler Mahir Bey; Mükerrer yazımı önlemek için fikri olan yokmu?

 

[unur]

Merhabalar;

Arkadaşlar Ekte göndermiş olduğum dosyada aşağıdaki kodlarla ilgili ay seçiliyor. Ancak bu ayların herbiri 3 sütundan oluşuyor.

Bu üç sütunda seçili olan ayda mükerrer kayıt yapılmasını engellemek için kodlarda bir revizyon yapabilirmiyiz acaba?

İlgilenen arkadaşlara şimdiden Teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sut As Byte
If Intersect(Target, [c1]) Is Nothing Then Exit Sub
Cells.EntireColumn.Hidden = False
For sut = 4 To 39
If Not Cells(4, sut).Value Like [c1].Value Then
Cells(4, sut).EntireColumn.Hidden = True
End If
Next
End Sub