Karma kutudan sayfalara ulaşmak

[hhalil]

Karma kutudan sayfalara ulaşmak istiyorum fakat beceremedim.Teşekkürler

 

[leumruk]

Karma kutudan sayfalara ulaşmak istiyorum fakat beceremedim.Teşekkürler

Option Explicit
Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
    Dim X As Integer
    ComboBox1.Clear
    For X = 2 To Sheets.Count
    ComboBox1.AddItem Sheets(X).Name
    Next
End Sub

 

[hhalil]

Sayın leumruk,
Emek ve bilginize saygılarımla teşekkür ederim.

 

[leumruk]

Rica ederim.