Sayfalar arası geçiş

[M.ACAR]

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Text).Select
End Sub

Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub

İyi geceler;
Yukarıdaki kod ile saylar arası geçiş yapıyorum fakat gizli sayfa'ya geldiğinde hata veriyor,Sayfalar giz ise yinede göstersin istiyorum,Yardımcı olurmusunuz.

 

[Ömer]

Merhaba,

Private Sub ComboBox1_Change()

    With Sheets(ComboBox1.Text)
        .Visible = True
        .Select
    End With

End Sub

Bu şekilde deneyiniz.

.

 

[M.ACAR]

Sayın : Ömer hocam öncelikle verdiğiniz cevap için teşekkür ederim fakat kodu diğer kodun üzerine yapıştırdığımıda hiç sayfa göstermiyor.

 

[Ömer]

Sayın : Ömer hocam öncelikle verdiğiniz cevap için teşekkür ederim fakat kodu diğer kodun üzerine yapıştırdığımıda hiç sayfa göstermiyor.

Eski kodları silmediniz mi?

Eski kodları silerek aşağıdakileri kullanın.

Private Sub ComboBox1_Change()

    With Sheets(ComboBox1.Text)
        .Visible = True
        .Select
    End With

End Sub
 
Private Sub UserForm_Initialize()
 
    Dim i As Integer
 
    For i = 1 To Sheets.Count
        ComboBox1.AddItem Sheets(i).Name
    Next i
    
End Sub

.