Soru Birden fazla koşulla satır gizleme ve gösterme

[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

 

[ÖmerFaruk]

Hangi satırları gizlemek istiyorsınuz? 4. satır mı?

 

[saban060666]

Hangi satırları gizlemek istiyorsınuz? 4. satır mı?

hayır branşlar 4. satırda ben 47 ve 59 u gizlemek istiyorum

 

[ÖmerFaruk]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C4]) Is Nothing Then Exit Sub
Bak = Application.Proper(Target.Value)
Select Case Bak
    Case "Almanca", "İngilizce", "Fransızca", "Rusça", "Çince"
    Rows("47:59").Hidden = False
    Case Else
    Rows("47:59").Hidden = True
End Select
End Sub

 

[saban060666]

Vermiş olduğunuz kod çalıştı çok teşekkür ederim Adnan bey birde bunu uygulamamda yardımcı olursanız minnettar olurum.

 

[saban060666]

Vermiş olduğunuz kod çalıştı çok teşekkür ederim Adnan bey birde bunu uygulamamda yardımcı olursanız minnettar olurum.

Private Sub Worksheet_Change1(ByVal Target As Range)
If Intersect(Target, [C4]) Is Nothing Then Exit Sub
Bak = Application.Proper(Target.Value)
Select Case Bak
Case "Almanca", "İngilizce", "Fransızca", "Rusça", "Çince"
Rows("47:59").Hidden = False
Case Else
Rows("47:59").Hidden = True
End Select
End Sub


Private Sub Worksheet_Change2(ByVal Target As Range)
If Intersect(Target, [C4]) Is Nothing Then Exit Sub
Bak = Application.Proper(Target.Value)
Select Case Bak
Case "beden", "din"
Rows("60:65").Hidden = False
Case Else
Rows("60:65").Hidden = True
End Select
End Sub

 

[saban060666]

her iki işlemde c4 den yapılan seçime göre olacak

 

[saban060666]

Vermiş olduğunuz kod çalıştı çok teşekkür ederim Adnan bey birde bunu uygulamamda yardımcı olursanız minnettar olurum.

Çok özürdilerim ÖMER bey