Hücre gizleme

[firstmoon3434]

Merhabalar,
A sütunu sayısal değer girişi için boş. B,C,D,E,F,G şeklinde devam eden toplam 20 sütun var. A1 sütünuna 1 değeri girildiğinde 1. sütun kalıp sonraki kalan 19 sütunu gizleyecek şekilde ne yapabilirim. Çok teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

If Target = 1 Then
Columns("B:T").EntireColumn.Hidden = True
Else
Columns("B:T").EntireColumn.Hidden = False
End If

End Sub

 

[firstmoon3434]

Elinize, emeğinize sağlık teşekkür ederim. Selamlar