Koşullu otomatik satır gizleme

[alparslanozmol]

Merhaba,

Bazı konuları inceledim ama sonuç alamadım.

Problemim şöyle ;

Giriş sheet'inde bulunan E19 hücresinde "Hayır" yazıyor ise aynı sheet te bulunan 31-39 arasındaki satırları gizlemek istiyorum.Şayet E19 "evet" ise satırlar gözükecektir.

Bunu E19 daki değişime göre bu işlemi otomatik olarak yapabilecek bir kod arıyorum.

Yardımcı olabilecek arkadaşlara peşinen teşekkürlerimi iletiri.

Saygılarımla,

 

[mancubus]

işlem yapılacak sayfanın kod modülüne:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$E$19" Then Exit Sub
    If Application.Proper(Target.Value) = "Hayır" Then Range("A31:A39").EntireRow.Hidden = True
    If Application.Proper(Target.Value) = "Evet" Then Range("A31:A39").EntireRow.Hidden = False
End Sub

 

[turist]

VBE editör sayfanıza (Alt ve F11 tuşlarına birlikte basarak açabilirsiniz) girin.
Solda ki listeden "Giriş" adlı sayfanızı çift tıklayın, solda açılan pencerede sayfa koduna:

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("E19") = "Hayır" Or Range("E19") = "hayır" Then
    Rows("31:39").EntireRow.Hidden = True
    
ElseIf Range("E19") = "Evet" Or Range("E19") = "evet" Then
     Rows("31:39").EntireRow.Hidden = False
    End If
End Sub

yazıp, VBE 'yi kapatın, sayfanızda uygulamayı deneyin.

 

[alparslanozmol]

Arkadaşlar değerli yardımlarınız için teşekkür ederim.

Sorun sizin desteğinizle çözülmüştür.

Saygılar.

 

[saban060666]

merhaba exelde yeniyim bir konuda yardım isteyecektim
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$c$4" Then Exit Sub
If Application.Proper(Target.Value) = "Beden Eğitimi;Bilişim Teknolojileri;Biyoloji;Coğrafya;Din Kültürü ve Ahlak Bilgisi;Felsefe;Fizik;Görsel Sanatlar;Kimya;Matematik;Müzik;Rehberlik;Tarih;Türk Dili ve Edebiyatı" Then Range("A47:m59").EntireRow.Hidden = True
If Application.Proper(Target.Value) = "Almanca;Fransızca;Rusça;İngilizce;Çince" Then Range("A47:m59").EntireRow.Hidden = False
End Sub

kodlamayı bu şekilde yaptım hatam nerededir. yardımcı olursanız sevinirim