Çözüldü Çalışma sayfalarını comboboxta gösterme ve istenilen sayfaya gitme

Katılım
12 Mayıs 2016
Mesajlar
361
Excel Vers. ve Dili
Ofis 2019- 32 Bit - Türkçe
S. A Arkadaşlar
Çalışma sayfalarını comboboxta göstermek ve istenilen sayfaya gitmek için nasıl bir kod yazabiliriz. Yardımlarınızı bekliyorum
 
Katılım
8 Eylül 2008
Mesajlar
950
Excel Vers. ve Dili
2016 İngilizce
İster Userform üzerine ekleyeceğiniz bir combobox isterseniz bir excel çalışma sayfasına ekleyeceğiniz ActiveX Control altındaki combobox için aşağıdaki kodu eklemeniz yeterlidir.

Kod:
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
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Aleykümselam.

Aşağıdaki kodları formunuzun kod bölümüne kopyalayın.
Forma bir combobox ekleyin.

Kod:
Private Sub ComboBox1_Change()
    ThisWorkbook.Worksheets (ComboBox1.Value).activate
End Sub

Private Sub UserForm_Initialize()
    Dim syf As Worksheet
    For Each syf In ThisWorkbook.Worksheets
        ComboBox1.AddItem syf.Name
    Next
    ComboBox1.Style = fmStyleDropDownList
End Sub
 
Katılım
12 Mayıs 2016
Mesajlar
361
Excel Vers. ve Dili
Ofis 2019- 32 Bit - Türkçe
Aleykümselam.

Aşağıdaki kodları formunuzun kod bölümüne kopyalayın.
Forma bir combobox ekleyin.

Kod:
Private Sub ComboBox1_Change()
    ThisWorkbook.Worksheets (ComboBox1.Value).activate
End Sub

Private Sub UserForm_Initialize()
    Dim syf As Worksheet
    For Each syf In ThisWorkbook.Worksheets
        ComboBox1.AddItem syf.Name
    Next
    ComboBox1.Style = fmStyleDropDownList
End Sub
Çookk teşekkür ederim arkadaşlar. Allah razı olsun
 
Üst