command butonla ilgili sayfayı açmak

[mustafa7691]

sayın hocalarım bir dosyada yapmaya çalıştığım şey açılır kutuda sayfa adı tıklanıp tamam butonuna basıldığında ilgili exel sayfasının açılması.forumda çok gezdim ama uyarlayamadım ve bilgimde yetersiz yol gösterirseniz sevinirim sağolun:yardim:

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[mustafa7691]

çok teşekkürler inceliyorum ellerinize sağlık

 

[Seyit Tiken]

Levent bey teşekkür ediyoruz. Çok kısa ve pratik bir kod. Aşağıdaki şekilde de çalıştı. ""& olmadan.
Private Sub ComboBox1_Click()
Sheets(ComboBox1).Select
End Sub

 

[Levent Menteşoğlu]

Levent bey teşekkür ediyoruz. Çok kısa ve pratik bir kod. Aşağıdaki şekilde de çalıştı. ""& olmadan.
Private Sub ComboBox1_Click()
Sheets(ComboBox1).Select
End Sub

Seyit bey 1 nolu sayfanın yerini değiştirerek yazdığınız kodu tekrar deneyin. Örneğin 3 ve 4 nolu sayfalar arasına kaydırın ve comboboxtan 1 i seçin.

 

[mustafa7691]

hocam bu combobox nesnesine R3:R8 aralığını (liste)nerden atadığınızı yazabilirmisiniz teşekkürler

 

[Levent Menteşoğlu]

hocam bu combobox nesnesine R3:R8 aralığını (liste)nerden atadığınızı yazabilirmisiniz teşekkürler

Denetim araç kutusundaki üçgen işaretini tıklayın böylece combobox tasarım konumuna geçecektir. Bu durumda comboboxa çift tıklayın, böylece properties penceresi ortaya çıkacaktır. Pencerede listfillrange özelliğine R3:R8 aralığı tanımlanmıştır. Tasarım durumundan çıkmak için yine üçgen cetvele tıklamak yeterlidir.

 

[Seyit Tiken]

Levent bey haklısınız. ""& olmadan, Kod dizine(sıra) göre çalışıyor. Sayfa sırası dahi değişse : "Sheets("" & ComboBox1).Select" kodu çalışır.

 

[mustafa7691]

hocam sağolun sayenizde hem öğreniyor hemde merak edip geliştirmeye çalışıyoruz iyiki varsınız server çok yoğun olduğu için kolay ulaşamıyorum cevaplarım gecikirse kusuruma bakmayın sayfaları açamıyorum

 

[Levent Menteşoğlu]

Levent bey haklısınız. ""& olmadan, Kod dizine(sıra) göre çalışıyor. Sayfa sırası dahi değişse : "Sheets("" & ComboBox1).Select" kodu çalışır.

Aslında Seyit bey bu konuyu hatırlatmanız iyi oldu bilmeyen üyelerimize bir açıklamada bulunayım.

sheets(1) ile sheets("1") farklı tanımlamalardır.

sheets(1) tanımlamasında her zaman index değeri 1 olan yani ilk sıradaki sayfa dikkate alınır.

sheets("1") tanımlamasında ise indexi ne olursa olsun adı "1" olan sayfa dikkate alınacaktır.

Bu sıralama zorunluluğunu ortadan kaldırmak için sdeğişken sayfa adını heets("" & ad) şeklinde kullanmak her zaman faydalı olacaktır. Buradaki "" işaretleri sağındaki veriyi tırnak işareti arasına almak içindir.

 

[alpi]

Sayın Levent şu şekilde yapmak daha doğru olmaz mı?

Sheets(ComboBox1.Text).Select

 

[Levent Menteşoğlu]

Sayın Levent şu şekilde yapmak daha doğru olmaz mı?

Sheets(ComboBox1.Text).Select

Çok daha güzel olur. Hatta Sheets(ComboBox1.Value).Select şeklinde de netice elde edilir. Biraz kullanım alışkanlığı ile alakalı ben .text ve .value özellliklerini pek kullanmam. Ama böyle bir durumda kullanmak çok daha güzel olacaktır. Hatırlatma için teşekkürler.