Soru DüşeyAra ile Seçim Yapılınca Gizli Kolon Açılsın

[ercanborais]

Selamlar,

Ekteki dosyada örnek yapmaya çalıştım....

Sayfa açıldığında C kolonu gizli geliyor.

B kolonunda İlk değer harici hangi değer seçilirse seçilsin C kolonu görünür hale gelsin, açılsın yani...

Umarım böyle bişey mümkündür...

Dosya burada...

İndir Düşeyara seçilince Gizli Hücre Açılsın xlsx

Dosyayı indir Düşeyara seçilince Gizli Hücre Açılsın xlsx

dosya.co

Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

Sayfa1'in kod kısmına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B4:B" & Rows.Count), Target) Is Nothing Then
        If Target.Value <> "" Then
            Target.Offset(0, 1).EntireColumn.Hidden = False
        End If
    End If
End Sub

 

[ercanborais]

Allah razı olsun teşekkür ederim....

 

[ercanborais]

Peki hocam bişey sorucam... farzedelim ben ilk seçeneğe tekrar geri döndüm yani "----" .... o zaman da kapanma ihtimali için ne yapmamız lazım.... Eğer seçimden vazgeçerse kapansın yani tekrar...

 

[Muzaffer Ali]

O zaman bu kodu kullanın.
Boş yada ---- olursa gizler.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B4:B" & Rows.Count), Target) Is Nothing Then
        If Target.Value = "----" Or Target.Value = "" Then
            Target.Offset(0, 1).EntireColumn.Hidden = True
        Else
            Target.Offset(0, 1).EntireColumn.Hidden = False
        End If
    End If
End Sub

 

[ercanborais]

Valla süper oldu şimdi elinize sağlık, Allah razı olsun...