Excel'de açılır liste kullanarak çalışma sayfaları arasında nasıl gezinilir?

Diyelim ki, birden fazla çalışma sayfası içeren bir çalışma kitabınız var ve şimdi tüm sayfa adlarını listeleyen bir açılır liste veya birleşik giriş kutusu oluşturmanız gerekiyor. Bu listeden bir sayfa adı seçtiğinizde, hemen o sayfaya atlamasını istiyorsunuz. Bu makalede, Excel'de açılır liste kullanarak çalışma sayfaları arasında nasıl gezinebileceğinizi anlatacağım.

Excel'de açılır liste kullanarak çalışma sayfaları arasında gezinme

Excel'de açılır liste kullanarak çalışma sayfaları arasında gezinme

Açılır liste kullanarak her seçili sayfaya atlamak için lütfen aşağıdaki adımları izleyin:

1. Geliştirici > Ekle > Birleşik Giriş Kutusu (ActiveX Kontrolü) öğesine tıklayın, ekran görüntüsüne bakın:

2. Ardından fareyi sürükleyerek bir birleşik giriş kutusu çizin ve ardından sağ tıklayıp bağlam menüsünden Kodu Görüntüle'yi seçin, ekran görüntüsüne bakın:

3. Açılan Microsoft Visual Basic for Applications penceresinde aşağıdaki kodu kopyalayıp yapıştırarak orijinal kodu değiştirin, ekran görüntüsüne bakın:

VBA Kodu: Açılır liste kullanarak çalışma sayfaları arasında gezinme

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
        ComboBox1.Clear
        For Each xSheet In ThisWorkbook.Sheets
            ComboBox1.AddItem xSheet.Name
        Next xSheet
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

4. Ardından bu kod penceresini kaydedip kapatın ve ardından tasarım modunu kapatmak için Tasarım Modu'na tıklayın. Şimdi, birleşik giriş kutusundan bir sayfa adı seçtiğinizde, hemen o sayfaya gidecektir, ekran görüntüsüne bakın: