sayfa ya geçme

[adeks]

Merhaba

Merheba Ã?rnektede görüldüğü gibi Excel açıldığın da açılan userform ün üstündeki buton a tıkladıgımızda sayfa2 yi açmasın istiyorun nasıl bir kod yaza bilirim.

Teşekkürler

 

[Tarkan VURAL]

İyi de butona tıklandığında birşey olmuyor ki. kitap açıldığında application nesnesini gizlemişsiniz ondan sonra ne yapmak istediniz ?

 

[Korhan Ayhan]

Aşağıdaki kodu kullanabilirsiniz...

Private Sub CommandButton1_Click()
UserForm1.Hide
Application.Visible = True
Sheets("Sayfa2").Select
End Sub

 

[excellium]

[vb:1:8a8f9e4d82]
Private Sub CommandButton1_Click()
UserForm1.Hide
Application.Visible = True
Sheets("Sayfa2").Select
UserForm1.show
End Sub
[/vb:1:8a8f9e4d82]