Sayfa isimlerini Combobox da listeleme

[excelman]

Merhabalar;

Excel dosyam üzerindeki sayfaların adlarını combobox ta listelemek istiyorum.Bu konuda yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

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]

 

[excelman]

'70' çalışma hatası:
İzin verilmedi.
şeklinde hata uyarısı veriyor.
Başka bir yolu var mı acaba?

 

[Levent Menteşoğlu]

EKteki örneği inceleyin. Sanıyorum kodu yanlış yere yazdınız.

 

[excelman]

Ã?zür Dilerim hata benden kaynaklanıyormuş.

Combobox ın RowSource özelliğine hücre tanımlamışım ondan kaynaklanmış.
Teşekkür ediyorum.

 

[excelman]

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.

 

[Levent Menteşoğlu]

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]

 

[excelman]

Teşekkürler Sayın leventm.

 

[ozuberk]

Sayın Levent bey iki sayfanın gözükmesini istemezsek ne yapmalıyız.

 

[danersin]

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.

 

[ozuberk]

çok çok teşekkürler kolay gelsin

 

[Mikdad]

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

 

[danersin]

Hoşgeldiniz.Aynı modüle

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


eklemeniz yeterli.

 

[Mikdad]

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

 

[Levent Menteşoğlu]

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.

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.

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

 

[danersin]

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]

 

[Mikdad]

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

 

[danersin]

Ã?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

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[danersin]

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. :?