Combo box açılarak sayfalar arası geçiş yapabilmek

[konnavia]

Merhaba,

Her sayfanın üst tarafında gözükecek combo box kutucuğunu kullanarak excel sayfasının içinde açmış olduğum 20-30 adet alt sayfalar arası geçiş yapabilmek istiyorum. Yardımınız için teşekkürler..

 

[Murat OSMA]

ThisWorkbook kod sayfasına;

Private Sub Workbook_Open()
    Dim i As Byte
    For i = 1 To Sheets.Count
        Sayfa1.ComboBox1.AddItem Sheets(i).Name
    Next i
    i = Empty
End Su

Sayfa1'in kod sayfasına;

Private Sub ComboBox1_Change()
    Sheets(Sayfa1.ComboBox1.Text).Select
End Sub