Sayfa deaktif olduğunda sayfayı gizleme

[Crazy Drake]

Private Sub Worksheet_Deactivate()
Sheets(Sayfa1).Visible = False
End Sub

sayfanın kod bölümüne bu kodları girerek gizleyebiliyorum ama sayfa ismi girmeden nasıl gizleyebiliriz

c = ActiveSheet.Name
Sheets(c).Visible = False

kodunuda denedim ancak deaktif olanı değilde aktif olanı gizliyor

 

[Korhan Ayhan]

Selamlar,

Gizlemek istediğiniz sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz. Sayfayı bir kez aktif ettikten sonra kod çalışacaktır.

Option Explicit
 
Public Sayfa As String
 
Private Sub Worksheet_Activate()
    Sayfa = ActiveSheet.Name
End Sub
 
Private Sub Worksheet_Deactivate()
    Sheets(Sayfa).Visible = False
End Sub

 

[Crazy Drake]

Run-time Error '9':
Subscript out of range

hatası verdi

 

[uzmanamele]

Run-time Error '9':
Subscript out of range

hatası verdi

merhaba
kodu sayfa1'in kod bölümüne yazdınız, excele döndünüz, sayfa2'yi seçtiniz ve hata mesajı aldınız.
sayfa1 aktif olmadığı için gizlenmesi gerektiğini düşündünüz.
aktif sayfa için kod yazdığınız için hata verdi, aktif sayfa adı sayfa1 iken kodu sayfa2 ye yazsanız hata mesajı almazdınız.
bu açıklamalardan sonra nedenini de siz bulun bakalım.

 

[Crazy Drake]

Sayfa 1 zaten aktif olduğu için
Sayfa = Empty

 

[Crazy Drake]

teorik olarak öyle olması gerekiyor ama dediğiniz şekilde yaptım yine aynı hatayı verdi

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Önerdiğim kodda küçük bir değişiklik yaptım. Değişken tanımlamasını modül içine aktardım. Ayrıca dosya açılında otomatik sayfa seçimi yapacak kod ekledim. Bu şekilde kodun çalışması için bir kereliğine sayfa seçme zorunluluğuda ortadan kalkmış oldu.

 

[Crazy Drake]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
i = ActiveSheet.Index - 1
If i = 0 Then Exit Sub
Sheets(i).Range("B1").Value = Range("C6").Value
Sheets(i).Range("B2").Value = Range("C5").Value
End Sub

çok özür diliyorum yazmayı unutmuşum sayfada bu kodda var ikisi beraber çalışmıyor bu kodu kaldırınca çalışıyor ikisininde çalışabileceği şekilde nasıl düzenleriz

 

[Korhan Ayhan]

Selamlar,

Tam olarak ne yapmaya çalıştığınızı açıklarsanız yardımcı olabilirim.