Sayfa isimlerini Combobox da listeleme

E

excelman

Katılım
3 Eylül 2004
Mesajlar
174
Excel Vers. ve Dili
Excel-2002 Türkçe
Merhabalar;

Excel dosyam üzerindeki sayfaların adlarını combobox ta listelemek istiyorum.Bu konuda yardımcı olursanız sevinirim.
 
Aşağıdaki kodu userforma yazın.

[vb:1:16522964ce]Private Sub UserForm_Initialize()
For a = 1 To Sheets.Count
ComboBox1.AddItem Sheets(a).Name
Next
End Sub
[/vb:1:16522964ce]
 
'70' çalışma hatası:
İzin verilmedi.
şeklinde hata uyarısı veriyor.
Başka bir yolu var mı acaba?
 
EKteki örneği inceleyin. Sanıyorum kodu yanlış yere yazdınız.
 
Ã?zür Dilerim hata benden kaynaklanıyormuş.

Combobox ın RowSource özelliğine hücre tanımlamışım ondan kaynaklanmış.
Teşekkür ediyorum.
 
Bu soruyla alakalı olduğu için yine buraya 1 soru eklemek istiyorum.
Yanlış yaptıysam affola.

Bu listeleme esnasında seçtiğim bazı sayfaların combobox da görünmesini nasıl engelleyebilirim.
 
Aşağıdaki gibi bir deneyin. Ã?rneğin burada Sayfa3'ün adı comboboxa alınmayacaktır.

[vb:1:18645c3548]Private Sub UserForm_Initialize()
For a = 1 To Sheets.Count
If Sheets(a).Name = "Sayfa3" Then GoTo 10
ComboBox1.AddItem Sheets(a).Name
10 Next
End Sub
[/vb:1:18645c3548]
 
Sayın Levent bey iki sayfanın gözükmesini istemezsek ne yapmalıyız.
 
If Sheets(a).Name = "Sayfa3" Then GoTo 10

satırında

If Sheets(a).Name = "Sayfa3" or Sheets(a).Name = "Sayfa4" Then GoTo 10

şeklinde. "or" sayısını daha çoğaltabilirsiniz.
 
ya kardeş verdiğiniz örnek süper
eyvallah
ama comboboxta listelenen sayfaları seçince direk oraya gitmesini nasıl sağlarız
yardımcı olurmusunuz
 
Hoşgeldiniz.Aynı modüle

[vb:1:880647d8e6]Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Select
End Sub[/vb:1:880647d8e6]


eklemeniz yeterli.
 
Hocam allah razı olsun
çalıştı herşey güzel ama şöyle bir sorunum var
ben bunu user forum da değilde direk excell sayfasında bir combobox yerleştirip aynı işlemi yani sheelt leri gösterip ordan seçtiğime direk gitmek istiyorum
varmı bir yolu
teşekkür ederim saygılar
 
Comboboxın sayfa üzerinde olduğunu baştan belirtseydiniz, daha hızlı cevap alabilirdiniz. Aşağıdaki kodu thisworkbook kod sayfasına kopyalayın sonra dosyayı kapatıp tekrar açın. Böylece sayfa isimleri comboboxa yüklenmiş olacaktır. Sayfayı seçme kodu aynıdır.

Kod: 
Private Sub workbook_open()
For a = 1 To Sheets.Count
Sheets("sayfa1").ComboBox1.AddItem Sheets(a).Name
Next
End Sub

veya comboboxın kendi butonuna tıkladığınızda sayfa isimlerinide yükleyebilirsiniz.

Kod: 
Private Sub ComboBox1_DropButtonClick()
For a = 1 To Sheets.Count
Sheets("sayfa1").ComboBox1.AddItem Sheets(a).Name
Next
End Sub
 
Son düzenleme:
Denetim araç kutusundan sayfanıza iki tane command button ve bir tane combo yerleştirin.

command 1 Sayfaları doldur olsun, yeni sayfa eklediğinizde bu tuşa basarak listeye alsın

[vb:1:046e43c1d9]Private Sub CommandButton1_Click()
ComboBox1.Clear
For a = 1 To Sheets.Count
ComboBox1.AddItem Sheets(a).Name
Next a
End Sub[/vb:1:046e43c1d9]

command 2 de comboda seçim yaptıktan sonra GİT tuşu olsun
[vb:1:046e43c1d9]Private Sub CommandButton2_Click()
If ComboBox1.Value = "" Then Exit Sub
Sheets(ComboBox1.Value).Select
End Sub[/vb:1:046e43c1d9]
 
hocam affınıza sığınıyorum
benim sorunum hala devam ediyor acaba sizinle özel olarak konuşabilirmiyiz
sabaha yetişmezse işimden olacam çünkü özel msg attım size
 
Ã?zel mesajla burda sormanız arasında bir fark yok, hatta burda sormanız daha iyi. ben olmasamda diğer arkadaşlar el atar daha çabuk çözeriz sorun neyse
 
Ekteki örneği inceleyin.
 
sn. Mikdad, bana özel mesajınız gelmedi ve zaten ricam o mesajı buraya yazmanız. Ayıca acil ve önemli dediğiniz konuda size sunulan Levent beyin çözüm dosyasınıda hala indirmediniz. :?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst