Sayfa isimlerini userformda göstermek

[Eser Gökay]

arkadaslar sayfalar arasında gecisi kolaylastirmak icin sayfa isimlerini userformda gösteren bir calismayi forumdan edindim. Bu konuyla ilgili olarak

1- Geçmek istediğim sayfaya tıklayınca userformu kapatması için kodu ne şekilde değiştirmeyilim.

2- Bütün sayfa isimlerini alıyor. İstemediğim sayfaların listeye girmesini nasıl engellerim


tesekkur eder iyi calismalar dilerim...

 

[veyselemre]

Unload me userformun kapanmasını sağlayacaktır.

Eklenmemesini istediğiniz sayfa isimlerini aşağıdaki gibi ekleyin.

Case "Aydın"
Case "Aksakal"
Case "Gisa"

Private Sub ComboBox1_Change()
    Sheets(ComboBox1.Text).Select
    Me.Caption = ActiveSheet.Name
    Unload Me
End Sub
Private Sub CommandButton1_Click()
    Unload Me
End Sub
Private Sub UserForm_Initialize()
    Me.Caption = ActiveSheet.Name
    For a = 1 To Sheets.Count
        Select Case Sheets(a).Name
            Case "Aydın"
            Case "Aksakal"
            Case "Gisa"
            Case Else
                ComboBox1.AddItem Sheets(a).Name
        End Select
    Next
End Sub

 

[Eser Gökay]

tesekkur ediyorum sayın veyselemre