command butonla ilgili sayfayı açmak

Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Ekli dosyayı inceleyin.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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.
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
hocam bu combobox nesnesine R3:R8 aralığını (liste)nerden atadığınızı yazabilirmisiniz teşekkürler
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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.
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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.
 
Katılım
22 Haziran 2005
Mesajlar
998
Excel Vers. ve Dili
Office 2007 Türkçe
Sayın Levent şu şekilde yapmak daha doğru olmaz mı?

Sheets(ComboBox1.Text).Select
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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.
 
Üst