userform da bulunan buton ile sayfa açılırmı

[arifbirgen]

Değerli arkadaşlar
Örnekteki sayfa1,sayfa2,sayfa3... gibi sayfalar açılabilinirmi?

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
End Sub
Private Sub CommandButton2_Click()
Sheets("Sayfa2").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("Sayfa3").Select
End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
Label2.Caption = "Sayfa1 seçildi..!!"
End Sub

Private Sub CommandButton2_Click()
Sheets("Sayfa2").Select
Label2.Caption = "Sayfa2 seçildi..!!"
End Sub

Private Sub CommandButton3_Click()
Sheets("Sayfa3").Select
Label2.Caption = "Sayfa3 seçildi..!!"
End Sub

 

[arifbirgen]

Değerli hocam N.Ziya Hiçdurmaz ve Evren GİZLEN cevaplarınızdan
dolayı çok teşekkür ederim.Özellikle Evren hocam sorulara çok yardımcı
oluyorsunuz . benim ilk soruma cevap vermenize rağmen siteye girdiğimde
çoğunlukla size rastlıyorum.Bundan sonrada yardımlarınızı bekleriz.Başarı
sağlık ve esenlikler dilerim.

 

[Orion1]

Değerli hocam N.Ziya Hiçdurmaz ve Evren GİZLEN cevaplarınızdan
dolayı çok teşekkür ederim.Özellikle Evren hocam sorulara çok yardımcı
oluyorsunuz . benim ilk soruma cevap vermenize rağmen siteye girdiğimde
çoğunlukla size rastlıyorum.Bundan sonrada yardımlarınızı bekleriz.Başarı
sağlık ve esenlikler dilerim.

Güzel temennileriniz için teşekkür ederim.
Bende size sağlık ve esenlikler dilerim.
İyi çalışmalar.

 

[arifbirgen]

Değerli hocalarım
Evren GİZLEN hocam 3 nolu mesajı ile cevapladı.Yeni bir sorum daha olacak
örnekte olduğu gibi butona tıklayınca sayfa açılmakta,fakat sayfa açılırken
aynı anda userform kapanmasını istiyorum.Bu mümkünmü.Başta Evren Gizlen
ve diğer tüm hocalarımın yardımcı olursa memnun olurum.

 

[Orion1]

Değerli hocalarım
Evren GİZLEN hocam 3 nolu mesajı ile cevapladı.Yeni bir sorum daha olacak
örnekte olduğu gibi butona tıklayınca sayfa açılmakta,fakat sayfa açılırken
aynı anda userform kapanmasını istiyorum.Bu mümkünmü.Başta Evren Gizlen
ve diğer tüm hocalarımın yardımcı olursa memnun olurum.

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
Label2.Caption = "Sayfa1 seçildi..!!"
Unload Me
End Sub

Private Sub CommandButton2_Click()
Sheets("Sayfa2").Select
Label2.Caption = "Sayfa2 seçildi..!!"
Unload Me
End Sub

Private Sub CommandButton3_Click()
Sheets("Sayfa3").Select
Label2.Caption = "Sayfa3 seçildi..!!"
Unload Me
End Sub

 

[arifbirgen]

sayın hocam Evren GİZLEN

Cevabınızdan dolayı çok çok teşekkür ederim.Sağlık ve Mutluluk dilerim.

 

[Orion1]

sayın hocam Evren GİZLEN

Cevabınızdan dolayı çok çok teşekkür ederim.Sağlık ve Mutluluk dilerim.

Rica ederim.
İyi çalışmalar.