Liste Kutusu oluşturma ve sayfalar arası köprü

[Mertkan]

Öncelikle herkese selamlar Yaklaşık bir aydır forumu takip ediyorumm.Şunu ögrenmek istiyorum...

Örnekte 5 sayfa var,Bir listeleme kutusu oluşturdum denetim araç çubugundan ve ya formlardan .
Listeme kutusununu içerisinde de Bu 5 sayfayı süz gibi Alt Alt sıralamak daha sonra seçmek istedigim sayfanın üzerine gelip tıkladıgımda da o sayfaya kendisini atmasını istiyorum bir köprü misali..ve Birde bu listeleme kutusunun içerisine nasıl deger(yazı) yazabiliyoruz...
Yapılış şekli nasıldır ?
Bu konuda bayagı bir acemiyim

 

[Levent Menteşoğlu]

Denetim araç kutusundan comboboxı kullanmanızı öneririm.

Comboboxın bulunduğu sayfa sekmesi üzerinde sağ-klik yapın ve açılan pencereden "kod görüntüle" yi seçerek sayfanın kod modülüne ulaşın. Bu açılan sayfaya aşağıdaki kodu kopyalayın. Bu kod comboboxtan seçilen sayfaya gitmek içindir.

Private Sub ComboBox1_Change()
Sheets("" & ComboBox1).Select
End Sub

Aşağıdaki koduda VB editöründe sol üst tarafta gördüğünüz "Thisworkbook" yazısını çift tıklayarak açılan kod modülüne kopyalayın. Bu kodda dosya açılışında comboboxa sayfa isimlerini yükler. Kodun çalışması için dosyayı bir kez kapatıp tekrar açın.

Private Sub Worksheet_Activate()
For a = 1 To Sheets.Count
ComboBox1.AddItem Sheets(a).Name
Next
End Sub

 

[Mertkan]

tekrar selam levent bey;

Ben söylemiş oldugunuz bütün işlemleri yaptım karşıma bom boş bir liste kutusu çıktı,liste kutusunun içerisine bir deger giremedim daha, sayfa1-sayfa2 gibi öncelikle bunun içerisine nasıl bir deger girecem daha sonra köprü kuracam..

Böyle Bir çalışma yapılmış daha önce bir çok kez sizin için kolay olsa gerek
http://www.excel.web.tr/showthread.php?t=25418&highlight=de%F0i%FEken+k%F6pr%FC

bana önerebileceginiz bir link veya çalışma bilgi varmı ? Formlar userforlar ve denetim araç çubuundan farkezmez çünkü bir çalışma kitabında 60 yakın sayfa açtım bunlara liste kutusu ile köprü kurmaya çalışacagım

İlginiz için tşk.Edr.

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[Selçuk1]

sn. Seyit Tiken'in başka bir soruda verdiği örnek ile sn. leventm'in kodlarını birleştirince aşağıdaki örnek ortaya çıktı. belki işinize yarayabilir. (teşekkürler Sn. Seyit Tiken ve Sn. Levent Bey.. )

iyi çalışmalar...

 

[Selçuk1]

Ben dosyayı uyarlayana kadar Seyit Hocam cevap vermiş zaten.. :mrgreen::mrgreen::mrgreen: ben çok geç kalmışım.
Bende sizin örneğinizi arkadaşa tavsiye ediyordum..

selamlar Seyit Hocam.. :mrgreen::mrgreen::mrgreen::mrgreen::mrgreen:

 

[Mertkan]

Arkadaşlar emekleriniz için çok teşekkürler..

Ben bu konu hakında hiç bir Bilgim yok eklenti dosyanın içerisinde derdimi anlatmaya çalıştım..Örneklerini istemiyorum nasıl yapıldıgı hakkında bilgi çünkü bunu sürekli kullacagım..

Yardımlarınız için teşekkürler

 

[ileriexcel]

Kodları sayfa kod bölümüne kopyalayın.

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(ComboBox1.Text).Select
End Sub

Private Sub Worksheet_Activate()
ComboBox1.Clear
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub

 

[Mertkan]

Kodları sayfa kod bölümüne kopyalayın.

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(ComboBox1.Text).Select
End Sub

Private Sub Worksheet_Activate()
ComboBox1.Clear
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub

Teşekkürler
Evet sayfaların içerine köprüler kuruldu ama
1 sayfada 3 tane liste kutusu var ama sadece birisinde gözüküyor

3 ünde de gösterim nasıl yapıyoruz mümkünmü ,birde mesela birinci liste kutusunda 1 den-20 ye kadar olan sayfalar
2. liste kutusunda 20-40 olan sayfaların gözükmesi gerekiyor..böyle bölmelere ayırmak icap ediyor bunu nasıl yapıyoruz


mümkünse yardımlarını bekliyoruz

 

[Mertkan]

Teşekkürler
Evet sayfaların içerine köprüler kuruldu ama
1 sayfada 3 tane liste kutusu var ama sadece birisinde gözüküyor

3 ünde de gösterim nasıl yapıyoruz mümkünmü ,birde mesela birinci liste kutusunda 1 den-20 ye kadar olan sayfalar
2. liste kutusunda 20-40 olan sayfaların gözükmesi gerekiyor..böyle bölmelere ayırmak icap ediyor bunu nasıl yapıyoruz


mümkünse yardımlarını bekliyoruz

Hadi Ama Yardım edecek Kimse yok mu :yardim:

 

[Seyit Tiken]

Ekli dosyayı inceleyin.

 

[Mertkan]

Sevgili Seyit Kardeşim emegin için teşekkürler ve herkese tekrar teşekkürler
ben bu liste kutusu işinden pek anlamadıgım için ekteki dosyayı incelesemde birşey anlamıyorum....yapılış yolu benim için önemli idi..

emekleriniz için teşekkürler..