Veri girdikçe açılan sütunlar

[CAFERCİFTCİ]

Arkadaşlar,
Örneğin A dan I ya kadar10 tane sütunu olan bir tablo var.Sadece A sütunum görünsün.Ben A sütununa veri girdiğimde B sütunu görünsün.B sütununa da veri girdiğimde C görünsün.Bu şekilde yelpaze gibi açılım olsun istiyorum.Bunu nasıl örnekleyeceğimi bilemedim.Yardımlarınızı bekliyorum.Saygılarımla

 

[Necdet]

Böyle bir şeye neden gereksinim duyuyorsunuz? Merak ettim doğrusu.

Pek mantıklı gelmedi ama aşağıdaki kodlar hücrede değişiklik olduğunda bir sonraki sütunu gösterir.

Değişiklik olmadan nasıl gidersiniz o da sizin sorununuz artık

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Column = 9 Then
        Columns("B:B").Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.EntireColumn.Hidden = True
        Target.Offset(1, -8).Activate
    Else
        Range(Cells(Target.Row, Target.Column + 1), Cells(Target.Row, Target.Column + 1)).EntireColumn.Hidden = False
        Target.Offset(0, 1).Activate
    End If
        
End Sub

 

[CAFERCİFTCİ]

Böyle bir şeye neden gereksinim duyuyorsunuz? Merak ettim doğrusu.

Pek mantıklı gelmedi ama aşağıdaki kodlar hücrede değişiklik olduğunda bir sonraki sütunu gösterir.

Değişiklik olmadan nasıl gidersiniz o da sizin sorununuz artık

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Column = 9 Then
        Columns("B:B").Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.EntireColumn.Hidden = True
        Target.Offset(1, -8).Activate
    Else
        Range(Cells(Target.Row, Target.Column + 1), Cells(Target.Row, Target.Column + 1)).EntireColumn.Hidden = False
        Target.Offset(0, 1).Activate
    End If
        
End Sub

Necdet bey üstadım öncelikle ilginiz ve yardımlarınız için şükranlarımı sunuyorum.Buna neden ihtiyaç duyduğuma gelince,işim gereği çok sayıda sütundan oluşan tablolarla çalışıyorum.Verileri sütunlara sıra ile giriyorum.Bu yöntemle ekranda sütun kirlikiğinden kurtulacağım.Daha az sayıda ve daha geniş boyutlu,okunaklı sütunlar oluşturabilmem mümkün olacak...umarım becerebilirim.Saygılarımla...