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