Yazılan Kodun belli bir kısmı çalışıyor,

[jemalizm]

Merhaba

bir excel şablonumuz var,

veri giriş sayfasında 3 adet seçeneğimiz var

2G yeni
3G yeni
Revizyon,

bunlardan herhangi birisini seçtiğimizde Sheetlerden belirlediklerimizi gizlemesi gerekiyor.

Revizyon'u seçtiğimizde herşey normal çalışıyor ama 2G yeni de veyahut 3G yeni de seçtiğimizde belirttiklerimizi gizlemiyor acaba geliştirmeye çalıştığım formülde sorun mu kontrol edebilir misiniz.

şimdiden teşekkürler.


Private Sub Worksheet_Change(ByVal Target As Range)


Application.ScreenUpdating = False



If Range("C9").Value = "Revizyon" Then


Sheets("ATBF").Visible = False


Else

Sheets("ATBF").Visible = True


End If


Application.ScreenUpdating = False

If Range("C9").Value = "3G Yeni" Then


Sheets("Kapak (2G)").Visible = False

Else

Sheets("Kapak (2G)").Visible = True


End If





Application.ScreenUpdating = False

If Range("C9").Value = "2G Yeni" Then


Sheets("Kapak (3G)").Visible = False

Else

Sheets("Kapak (3G)").Visible = True

End If






Application.ScreenUpdating = False

If Range("C9").Value = "2G Yeni" Then


Sheets("Revizyon").Visible = False

Else

Sheets("Revizyon").Visible = True


End If




Application.ScreenUpdating = False

If Range("C9").Value = "3G Yeni" Then


Sheets("Revizyon").Visible = False

Else

Sheets("Revizyon").Visible = True


End If





Application.ScreenUpdating = False



If Range("C9").Value = "Revizyon" Then


Sheets("Kapak (2G)").Visible = False


Else

Sheets("Kapak (2G)").Visible = True


End If




Application.ScreenUpdating = False



If Range("C9").Value = "Revizyon" Then


Sheets("Kapak (3G)").Visible = False


Else

Sheets("Kapak (3G)").Visible = True


End If




End Sub

 

[takin]

Tüm bu kodlar yerine aşağıdaki kodu deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
select case Range("C9").Value
    case "Revizyon"
        Sheets("Revizyon").Visible = True
        Sheets("Kapak (2G)").Visible = False
        Sheets("Kapak (3G)").Visible = False
    case "2G Yeni"
        Sheets("Revizyon").Visible = False
        Sheets("Kapak (2G)").Visible = True
        Sheets("Kapak (3G)").Visible = False
    case "3G Yeni"
        Sheets("Revizyon").Visible = False
        Sheets("Kapak (2G)").Visible = False
        Sheets("Kapak (3G)").Visible = True
end select
End Sub

 

[Murat OSMA]

Maşallah şiir gibi kodlar...

 

[jemalizm]

Çok teşekkürler Takin bey,

gerçekten yazdığınız kodu görünce nasıl göremediğimizi şaşırıdk