sekme gizleme kodu alternatifi

[ismail-34]

Herkese Selam değerli excel web ailesi..

benim sorum office 2013 türkçede aşağıda kod sekmeleri gizleyebiliyor ve düzgün çalışıyor. ancak office 2016 ingilizcede sekmede satırlara bişi yazınca anasayfadaki görüntü sekmenin içinde görüntüsü sonra gidiyor..

aşağıdaki koda alternatif birşey varsa iyi olur.ingilizce olayı yüzünden sanırım ?


Private Sub Worksheet_Deactivate()
Me.Visible = xlHidden
End Sub

 

[Korhan Ayhan]

Bu ifadenizden birşey anlamadım..

sekmede satırlara bişi yazınca anasayfadaki görüntü sekmenin içinde görüntüsü sonra gidiyor..

 

[ismail-34]

Değerli Hocam misal ekteki örnekteki sekmedeki şekle tıklandığında kendisini ve firma listesi haricindeki tüm sekmeleri kapatan bir şey işime yarardı.

ayrıca o şeklin , sayfayı aşağı kaydırmada hep en üstte olacak şekilde sabit şekilde kalması sağlanabilirmi ? (hücreleri dondur işlevi haricinde bir çözüm)

 

[ismail-34]

çözüm yok heralde ?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Application.ScreenUpdating = False
   
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> "Firma Listesi" Then Sh.Visible = False
    Next

    Application.ScreenUpdating = True
End Sub

 

[ismail-34]

Option Explicit Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Application.ScreenUpdating = False For Each Sh In ThisWorkbook.Worksheets If Sh.Name <> "Firma Listesi" Then Sh.Visible = False Next Application.ScreenUpdating = True End Sub

hocam hepsini gizliyor ama göster dediğim zaman sekme açmıyor hatta yeni sekme oluştur deyincede açıyor hemen kapanıyor.verdiğiniz kodu çalışma sayfasına koyarak denedim..

 

[Korhan Ayhan]

GÖSTER dediğiniz komutu paylaşırmısınız.

 

[ismail-34]

GÖSTER dediğiniz komutu paylaşırmısınız.

göster komutum yok hocam.ben aşağıdan sekmelerin üzerinden göster diyorum olmuyor.eğer ancak kod ile açılır diyorsanız göster kodu paylaşırsanız sevinirim.

 

[Korhan Ayhan]

Ekteki dosyadaki gibi kullanabilirsiniz.

 

[ismail-34]

Eyw çok değerli Korhan hocam harikasınız. tam istediğim gibi.

başta konuyu karışık anlattığım için tekrar özür dilerim.

Sağlıcakla kalın Sağolun varolun.