Tek düğmeyle sayfayı gizleyip gösterme

[izcik]

Merhabalar

xlSheetVeryHidden komutuyla örnekteki makroyu yapmaya çalıştım fakat olmadı.

Sayfanın sekmeye sağ tıklayarak değil, düğmeyle gizleyip görünmesini istiyorum.

Teşekkürler

ornek.xls dosyasını indir - download

ornek.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Muzaffer Ali]

Merhaba.

Private Sub CommandButton1_Click()
    Sheets("Sayfa1").Visible = Not Sheets("Sayfa1").Visible
End Sub

 

[Orion1]

Düğme nerde olacak?

 

[izcik]

Düğme nerde olacak?

Uzmanım düğme Sayfa2’de olacak

 

[izcik]

Merhaba.

Private Sub CommandButton1_Click()
    Sheets("Sayfa1").Visible = Not Sheets("Sayfa1").Visible
End Sub

Uzmanım teşekkürler

Fakat “sayfa sekmesinden görünür hale gelmesini istemiyorum” şeklinde belirtmiştim. Bu yüzden veryhidden komutunun olması gerekiyor.

 

[Seyit Tiken]

Çift Tıklama komutuyla, imleç nerede olursa olsun sayfayı gizle-göster yapabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True

End Sub

 

[Muzaffer Ali]

Uzmanım teşekkürler

Fakat “sayfa sekmesinden görünür hale gelmesini istemiyorum” şeklinde belirtmiştim. Bu yüzden veryhidden komutunun olması gerekiyor.

Private Sub CommandButton1_Click()
    If Sheets("Sayfa1").Visible = xlSheetVeryHidden Then
        Sheets("Sayfa1").Visible = True
    Else
        Sheets("Sayfa1").Visible = xlSheetVeryHidden
    End If
End Sub

 

[izcik]

Çift Tıklama komutuyla, imleç nerede olursa olsun sayfayı gizle-göster yapabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True

End Sub

Uzmanım teşekkürler

Vermiş olduğunuz kodları aynen yapıştırdım fakat olmadı yapamadım.

Sayfa1’i çift tıklama ile değil, bir düğmeyle gizleyip göstermek istiyorum.
Ayrıca sayfa gizlendiği zaman, sekme bölümünden değil, sadece düğme ile görünür hale gelebilmeli.

Sanıyorum xlsheetveryhidden komutu bu işe yarıyor.

 

[izcik]

Private Sub CommandButton1_Click()
    If Sheets("Sayfa1").Visible = xlSheetVeryHidden Then
        Sheets("Sayfa1").Visible = True
    Else
        Sheets("Sayfa1").Visible = xlSheetVeryHidden
    End If
End Sub

Sayın Muzaffer Ali uzmanım, olmuştur. Teşekkür ederim.
Saygılar.

Sayın Orion uzmanım ve Seyit Tiken uzmanım ilgileriniz için teşekkür ederim. Eğer benzer çözümleriniz olursa severek denemek isterim.

 

[Orion1]

Buyurun.

Sub gizlegoster()
If Worksheets("Sayfa1").Visible = False Then
    Worksheets("Sayfa1").Visible = True
    Else
    Worksheets("Sayfa1").Visible = False
End If
End Sub