Gizli sayfaya geçiş

[58Muhendis58]

sayın ustalar 3 gündür bir sorunu çözemiyorum değerli yardımlarınıza ihtiyacım var
Anasayfa adında sayfama ekle menüsünde Şekiller ile oluşturduğum bir butonum var buton adı Kabul2. Veri adında başka bir sayfam var (başka sayfalarda var) istediğim şu Kabul2 butonuna bastığımda gizlemiş olduğum Veri isimli Sayfaya gitmek istiyorum veri sayfasında çıktığım an sayfanın tekrar gizlenmesini istiyorum. teşekkür ederim

 

[hasankardas]

Vba
Çalışma Kitabının kod bölümüne

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name = "Veri" Then
        Sh.Visible = xlSheetVeryHidden
    End If
End Sub

Anasayfa da eklediğiniz butona module içerisinde

Sub Kabul2_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Veri")
    ws.Visible = xlSheetVisible
    ws.Activate
End Sub

dener misiniz. yapamazsanız örnek dosyayı yükleyin düzenleriz.

 

[58Muhendis58]

abi olmadı dosyam ektedir teşekkür ederim https://www.filemail.com/d/ydjpdrrblqnaokc

 

[hasankardas]

Buton olarak ekledim siz istediğiniz gibi düzenlersiniz

ANONYMOUS - Filemail

Click here to view and download these shared files from Filemail.com

www.filemail.com

 

[58Muhendis58]

Abi eline sağlık Allah razı olsun

 

[hasankardas]

Abi eline sağlık Allah razı olsun

Rica ederim..