- Katılım
- 5 Ekim 2017
- Mesajlar
- 8
- Excel Vers. ve Dili
- 2013 turkçe
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
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