Buton ile safya gizle/göster

[mmk]

Merhabalar, hazırlamış olduğum excel'e 2 farklı macro butonu eklemek istiyorum.

1.buton: tüm çalışma kitabındaki gizli sayfaları görünür halegetirsin (yalnız vb'dan veryhidden olarak seçilen sayfaların gizli kalması gerekiyor. sadece "xlSheetHidden" olan safyaların görünür olması lazım)

2.buton: butonun bulunduğu sayfayı tıklayınca "xlSheetHidden" olarak gizlemesi gerekiyor.

yardımlarınızı bekliyorum, şimdiden teşekkürler.

 

[Trilenium]

Sub Rectangle3_Click()
'Sayfalarý Gizle
Dim i As Integer


For i = 1 To Worksheets.Count - 1
Sheets(i).Visible = False
Sheets("4").Visible = xlSheetVeryHidden
Sheets("5").Visible = xlSheetVeryHidden
Next i
Sheets("Ana Sayfa").Select
End Sub


Sub Rectangle1_Click()
'Sayfalarý Göster
Dim i As Integer
For i = 1 To Worksheets.Count - 1

If Sheets(i).Visible = xlSheetVeryHidden Then
Sheets(i).Visible = False
Else

Sheets(i).Visible = True
End If
Next i
Sheets("Ana Sayfa").Select
End Sub


Deneyiniz.

 

[mmk]

Sub Rectangle3_Click()
'Sayfalarý Gizle
Dim i As Integer


For i = 1 To Worksheets.Count - 1
Sheets(i).Visible = False
Sheets("4").Visible = xlSheetVeryHidden
Sheets("5").Visible = xlSheetVeryHidden
Next i
Sheets("Ana Sayfa").Select
End Sub


Sub Rectangle1_Click()
'Sayfalarý Göster
Dim i As Integer
For i = 1 To Worksheets.Count - 1

If Sheets(i).Visible = xlSheetVeryHidden Then
Sheets(i).Visible = False
Else

Sheets(i).Visible = True
End If
Next i
Sheets("Ana Sayfa").Select
End Sub


Deneyiniz.

1. makroda bu satırda hata veriyor hocam ve herhangi bir işlev yapmıyor malesef. "Sheets("4").Visible = xlSheetVeryHidden"

2 makroda veryhidden gizli sayfaları hariç gizli sayfalar gözüküyor fakat veryhidden olan sayfalar hidden' a dönüştüğü için veryhidden olarak kalmıyor. ( anladığım kadarıyla gösteriyor sonra veryhidden olanlarıda hidden olarak değiştiriyor.)

 

[Trilenium]

6 sayfa açınız

sayfa adlarınız

1 2 3 4 5 ve Ana Sayfa olarak yapın.

tekrar deneyin