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...

 

[ercanborais]

Hocam Selamlar....

Bizim bu örnekte sadece C hücresi gizli olarak geliyordu ve seçenek seçince açılıyordu...
Ben bunu C,D,E kolonları için yapmak istedim bir türlü olmadı.

Yani ilk açılışta C,D ve E kolonları gizli geliyor... Seçenek seçince açılıyor....

https://www.dosyaupload.com/2rVL/Düşeyara_seçilince_Gizli_Hücre_Açılsın_(1).xlsm

Ben B4:B yazmışsınız burayla biraz oynadım fakat bir türlü olmuyor... Nasıl yapabiliriz ? Yardımcı olursanız çok sevinirim.

Saygılarımla,

 

[Muzaffer Ali]

Aleykümselam.

B4:B yerine B4:D yazmanız yeterli olacaktır.

Önceki kodu silin yerine aşağıdakini kullanın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B4:D" & 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]

Orası hariç her yeriyle oynadık neden oraya D yazmayı akıl edemedik bilmiyorum. Çok teşekkürler... Saygılar

 

[ercanborais]

hocam seni de rahatsız ediyorum . Bu kodu denedim ben....

Sadece C yi açıyor aralıkta....D ve E gizli kalıyor yine. Acaba kodda eksik olan bir yer mi var ?

 

[Muzaffer Ali]

Sanırım eski kodu denediniz.
son eklediğim kod çalışıyor.
Dosyaya uyguladım dosya ekte.

İndir Düşeyara seçilince Gizli Hücre Açılsın (1) xlsm

Dosyayı indir Düşeyara seçilince Gizli Hücre Açılsın (1) xlsm

dosya.co

 

[ercanborais]

Dosyayı indirdim Engellemeyi KAldır dedim makroların çalışması için. çalıştı... Sadece C açılıyor. D ve E gizli kalıyor yine...
Yazdığınız koda B4:F OLARAK YAPTIM.. YİNE C AÇILIYOR C,D,E AÇILMIYOR AYNI ANDA

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B4:F" & 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

 

[Muzaffer Ali]

Ekran kaydı ekte.
Ben mi soruyu anlayamadım siz mi farklı bir şey yapıyorsunuz? Kontrole edin.

İndir Kayıt mp4

Dosyayı indir Kayıt mp4

dosya.co

 

[ercanborais]

Şimdi anladım sizde c kolonu aciliyor ilk ona yaziyorsunuz yazinca d aciliyor sıra sıra.
Benim dedigim c d ve e kolonlari aynı anda hepsi acilsin tek tek degil. Hepsi de ayni anda gizlensin

 

[Muzaffer Ali]

Bu kodu kullanın.

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
            Range("C:E").EntireColumn.Hidden = True
        Else
            Range("C:E").EntireColumn.Hidden = False
        End If
    End If
End Sub

 

[ercanborais]

Hocam şimdi deneme imkanı bulabildim.... Allah razı olsun tastamam oldu.... Allah a emanet

 

[Muzaffer Ali]

Ecmain. Siz de Allah'a emanet olun.