UserForm ve Label Click

[hazan_25]

Arkadaşlar Merhaba!

Yaptığım çalışmada sayfaları gizleyerek UserFormlar üzerinden çalışıyorum. Ana menü olan userform1 üzerindeki label butonlarıyla gelen ekrandaki seçeneklerden yine label butonlarıyla excel sayfalarının önizleme olarak raporunu görüyorum. Yalnız önizlemeyi kapatınca rapor seçenek ekranı değilde ana menü geliyor! label_Click olayını bir türlü gerçekleştiremedim! Yardımcı Olurmusunuz?

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz.

 

[hazan_25]

Sn. leventm,

Örnek dosyayı ekledim!

 

[Levent Menteşoğlu]

sorunuzdan bir şey çıkaramadım, ana menü ile rapor seçenek ekranından kastınız nedir?

 

[hazan_25]

sorunuzdan bir şey çıkaramadım, ana menü ile rapor seçenek ekranından kastınız nedir?

Sayın leventm,

Benim istediğim örnekteki formda raporlar butonuna tıklayınca gelen ekrandaki sayfa 1,2,3 butonlarına tıklayınca açılan rapor önizlemesini kapatınca tekrar sayfa1,2,3 butonlarının göründüğü ekranın gelmesini istiyorum, Önizleme kapatılınca userform1 açılış ekranı değil!

Örnek olarak sayfa1 butonunun altındaki;

Private Sub Label2_Click()
Application.Visible = True
Unload Me
Sheets("Sayfa1").Select
ActiveWindow.SelectedSheets.PrintPreview
Application.Visible = False
UserForm1.Show
End Sub

Kodlarında UserForm1.Show 'dan sonra ;

Private Sub Label1_Click()
Label1.Enabled = False
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
CommandButton1.Visible = True
End Sub

olayının gerçekleşmesini istiyorum!
UserForm1.Show'un altına Label1_Click yazıyorum ama değişmiyor!

 

[Levent Menteşoğlu]

labellere yazdığınız kodların içindeki "unload me" komutunu "me.hide" komutu ile değiştirin.

 

[hazan_25]

Teşekkürler Sn.leventm!