liste oluşturma

[ahmetozbey]

örnek a3 hücresinde açılır liste olacak(veri doğrulamadaki liste gibi) açılır listede
çalışma sayfası adlarının gözükmesini istiyorum.
yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

A1 hücresine denetim araç kutusundan bir combobox yerleştirin ve aşağıdaki kodu bir normal modül sayfasına kopyalayın. Kodun çalışması için dosyayı kapatıp tekrar açın.

Sub auto_open()
For a = 1 To Sheets.Count
Sheets("sayfa1").ComboBox1.AddItem Sheets(a).Name
Next
End Sub

 

[ahmetozbey]

teşekkür ederim.

 

[udentr2002]

Bu bilgi banada lazımdı

hocam comboboxa tıkladıktan sonra açılan sayfa isimlerine tıkladığımızda o sayfanın açılması için ne yapabiliriz????????

 

[Levent Menteşoğlu]

hocam comboboxa tıkladıktan sonra açılan sayfa isimlerine tıkladığımızda o sayfanın açılması için ne yapabiliriz????????

Comboboxa aşağıdaki kodu yazın.

Private Sub ComboBox1_Click()
Sheets(ComboBox1.Text).Select
End Sub

 

[udentr2002]

çok teşekkürler levent hocam

Çok iyi oldu bunu öğrenmem dosyamda banada lazımdı daha iyi oldu şimdi elinize sağlık.

Vede eğer vaktiniz varsa lütfen "Kayıt Bul???" adlı soruma bakabilrmisiniz hocamm

 

[ahmetozbey]

bişey daha sorayım.
combobox nesnesinde sayfaların listesi geliyor bi sorun yok. örnek 10 tane sayfa olsun ama ben ilk üç sayfanın listede gözükmesini istemiyorum kalan 7 sinin gözükmesini istiyorum olabilirmi böyle bişey.
veya sayfa isimleri rakamla başlayanların gözüküp, harfle olanların gözükmesini istemiyorum
yardımcı olursanız sevinirim

 

[ahmetozbey]

cevap verebilirseniz işim çok kolaylaşacak

 

[Korhan Ayhan]

Selamlar,

Sn. leventm beyin ilk cevabındaki kodu aşağıdaki şekilde değiştirirseniz istediğiniz gerçekleşecektir.

Sub Auto_Open()
For a = [b][color=blue]4[/color][/b] To Sheets.Count
Sheets("sayfa1").ComboBox1.AddItem Sheets(a).Name
Next
End Sub

 

[udentr2002]

sayın hocam

aynı konuya ek olarak daha önce levent beyin vermiş olduğu kodları yazdım yani comboboxa tıkaldığımzda gelen sayfaya gitmesi için çalışıyor yanlız ben her sayfaya o sayfa1 deki comboboxu kaydettiğimde diğeer sayfalardaki çalışmıyor her sayfamda o comboboxtan olmasını vede combobox açıldığında üzerine tıkladığımda o sayfaya gitmesini isitiyorum. Bunun için her sayfaya ayrı ayrı combobox yerleştirip onlarada aynı kodumu verecz ekli dosya gönderiyorum incelerseniz çok sevinirim

 

[udentr2002]

dosyayı gönderirken hata oluştu

yeniden gönderiyorumm

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda Sayfa1 de bulunan ComboBox1 i diğer sayfalarada kopyaladıktan sonra Sn. leventm beyin önerdiği kodu aşağıdaki şekilde değiştirip dosyanızı kaydedin ve kapatıp tekrar açın.

Sub Auto_Open()
    For X = 1 To Sheets.Count
    Sheets("Sayfa1").ComboBox1.AddItem Sheets(X).Name
    Sheets("Sayfa2").ComboBox1.AddItem Sheets(X).Name
    Sheets("Sayfa3").ComboBox1.AddItem Sheets(X).Name
    Next
End Sub

Dosyanızdaki bütün sayfaların kod bölümünede aşağıdaki kodu uygulayın.

Private Sub ComboBox1_Click()
    Sheets(ComboBox1.Text).Select
End Sub

 

[udentr2002]

cost control

çok teşekkürler kod çalışıyor sanırım sayfa sayımız arttıkça gidip orda
Sheets("Sayfa3").ComboBox1.AddItem Sheets(X).Name
kodunuda artırarak yazmak zorundayız öyle değilmi
elinize sağlık sağolun

 

[ahmetozbey]

teşekkürler