Excel'de bir açılır kutudan (combo box) sayfa adı seçerek ilgili çalışma sayfasını nasıl açarsınız?
Çalışma kitabınızda, Excel çalışma kitabı içindeki tüm sayfa adlarını içeren bir Combo Box olduğunu varsayalım. Combo Box’tan bir sayfa adı seçtiğinizde ilgili çalışma sayfasının açılmasını mı istiyorsunuz? Bu kılavuz, Combo Box’ı sayfa adlarıyla doldurmak ve bu işlevselliği VBA koduyla nasıl etkinleştireceğinizi adım adım açıklar.

VBA koduyla combo box’ta seçilen adla bir çalışma sayfasını açma
VBA koduyla combo box’ta seçilen adla bir çalışma sayfasını açma
Aşağıdaki VBA kodu, Excel’de Combo Box seçimine göre belirli bir çalışma sayfasına geçiş yapmanızı sağlar. Lütfen aşağıdaki adımları uygulayın.
Not: Combo Box çalışma sayfanızda herhangi bir sayfa adı içermiyorsa, tüm sayfa adlarını bu Combo Box’a hızlıca eklemek için aşağıdaki ipucunu uygulayın. Zaten tüm sayfa adlarını içeren bir Combo Box’ınız varsa, doğrudan adım 1’e geçin.
İpucu: Çalışma sayfanıza bir Komut Düğmesi 1 ekleyin, sağ tıklayın ve açılan menüden Kodu Görüntüle seçeneğini belirleyin. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın ve Alt + Q tuşlarına basarak Microsoft Visual Basic for Applications penceresini kapatın. Eklenen Komut Düğmesi’ne tıkladığınızda, Geçerli Çalışma Kitabı’nın tüm sayfa adları ComboBox1’e otomatik olarak eklenecektir.
VBA kodu: Tüm sayfa adlarını bir Combo Box’a kolayca ekleyin
Private Sub CommandButton1_Click()
Me.ComboBox1.Clear
Dim strWs As String
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
Me.ComboBox1.AddItem Sheets(i).Name
Next
End Sub Zaten tüm sayfa adlarını içeren bir Açılır Liste (Combo Box) varsa, lütfen aşağıdaki gibi ilerleyin.
1. Tasarım Modunu, Geliştirici sekmesi altında etkinleştirin.
2. Sayfa adlarını içeren açılır kutuya sağ tıklayın ve ardından açılan menüden Kodu Görüntüle seçeneğine tıklayın.

3. Ardından Microsoft Visual Basic for Applications penceresi açılır; lütfen Kod penceresindeki orijinal VBA kodunu aşağıdaki VBA koduyla değiştirin.
VBA kodu: Combo Box’ta seçilen değere göre belirli bir çalışma sayfasını açma
Private Sub ComboBox1_Change()
Dim actWsh As String
actWsh = ComboBox1.Text
Worksheets(actWsh).Select
End Sub Not: Kodda ComboBox1, sayfa adlarını içeren açılır kutunun adıdır.
4. Alt+Q tuşlarına basarak Microsoft Visual Basic for Applications penceresini kapatın ve Geliştirici sekmesi altında Tasarım Modunu kapatın.
Artık Combo Box’tan herhangi bir Çalışma Sayfası Adı seçildiğinde, ilgili çalışma sayfası otomatik olarak açılacak.
Excel'de Geçerli Çalışma Kitabı’nın tüm sayfa adlarını kolayca listeleyin:
Çalışma kitabınızda bir sayfa dizini kullanmak, çalışma sayfalarınızı kolayca yönetmenizi sağlar. Kutools for Excel eklentisinin Bağlantı Tablosu Oluştur yardımcısıyla, Geçerli Çalışma Kitabı’nızdaki tüm sayfa adlarını içeren bir sayfa dizini oluşturabilirsiniz. Daha sonra, Dizin çalışma sayfasındaki bir sayfa adına tıklayarak ilgili çalışma sayfasına anında geçebilirsiniz. Aşağıdaki ekran görüntüsüne göz atın:

Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Hemen Edinin
İlgili makaleler:
- Excel'de Combo Box'taki değeri etkin hücreye nasıl kopyalarsınız?
- Excel'de açılır kutu (combo box) çıktısında tarih formatı nasıl görüntülenir?
- Excel'de belirli bir hücrenin değerine göre bir Komut Düğmesi'ni nasıl gizleyebilir veya gösterebilirim?
- Excel'de açılır kutuya (combo box) yazmayı nasıl engeller veya devre dışı bırakırsınız?
- Excel'de combo box’tan çıkmak ve belirli bir hücreyi seçmek için Tab tuşu nasıl kullanılır?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar