DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub ComboBox1_Click()
On Error Resume Next
Sheets(ComboBox1.Value).Select
End Sub
Private Sub UserForm_Initialize()
Dim syf As Worksheet
For Each syf In Worksheets
ComboBox1.AddItem syf.Name
Next
ComboBox1.ListIndex = 0
End Sub