ComboBox ile sayfalara gitme

[Ahmet Sami]

Kıymetli üstadlarım gizli olarak KAYIT, LİSTE, VERİ ve MALZEME adında sayfalarım var. ComboBox1 den bu sayfaları seçince ilgili sayfalara gitmesi gerekiyor. Yardımcı olabilir misiniz.

 

[uzmanamele]

Merhaba
Deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ComboBox1.Clear
For i = 2 To Sheets.Count
ComboBox1.AddItem (Sheets(i).Name)
Next i
End Sub

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(ComboBox1.Text).Visible = True
Sheets(ComboBox1.Text).Select
End Sub

 

[bmutlu966]

Alternatif olsun.

 

[Ahmet Sami]

Sayın Uzman ve Sayın bmutlu çok teşekkür ederim.