DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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