İstenilen sayfaları gösteren diğerlerini gizleyen makro

[morino]

Merhabalar

Daha yeni başlıyorum bu işe, bu kadar basit bir şeyle sizi uğraştırdığım için özür dilerim.

Amacım, bir giriş sayfası yapıp açılışta sadece bunun gözükmesi, bu sayfada bulunan butonlara basıldığında ise istenen sayfaların gözükmesi. Yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

Aşağıdaki yordamı boş bir modüle kopyalayınız.

Sub auto_open()
Dim i As Integer
For i = 2 To Worksheets.Count
    Sheets(i).Visible = False
Next i
End Sub

Sayfa2'yi göstermek içinde aşağıdaki kodu kullanınız.

Sheets("Sayfa2").Visible = True

 

[aydın3838]

sub gizle ()
Sayfa1.Visible = False
Sayfa2.Visible = False
Sayfa3.Visible = False
Sayfa5.Visible = False
Sayfa6.Visible = False
end sub

sub göster ()
Sheets("sayfa1").Visible = True
Sheets("sayfa2").Visible = True
Sheets("Sayfa3").Visible = True
Sheets("Sayfa4").Visible = True
Sheets("Sayfa5").Visible = True

end sub

 

[aydın3838]

evren hocam özür olsun

sizi göemedim

 

[Orion1]

evren hocam özür olsun

sizi göemedim

Estafurullah.

 

[morino]

Çok teşekkür ederim

 

[Serdar SELEN]

sen bır tane ıstedın onlar ıkı tane verdı superler

 

[bydogannn67]

hocam gizlediğim sayfalarda userfom ile verı cekıp verı aktarıyorum bu yuzden hata verıyo

hem sayfaları gizliyebıleceğim hemde userfomda işlem yapabıleceğim bi kod bi çalışma varmıdır sayfaların gözükmesını istemıyorum

 

[Orion1]

hocam gizlediğim sayfalarda userfom ile verı cekıp verı aktarıyorum bu yuzden hata verıyo

hem sayfaları gizliyebıleceğim hemde userfomda işlem yapabıleceğim bi kod bi çalışma varmıdır sayfaların gözükmesını istemıyorum

Veri çekip ,aktarma yaptığınız kodları bir görelim.