userform üzerindeki comboboxtan çalışma kitabıma ait sa

[mühendis^^]

Aslında çok soru sormadan kendi başıma yapmaya çalışıyorum bazı şeyleri ama beceremiyorum.Cevap bekleyen diyer arkadaşlarında olduğunu bilerek onlarada haksızlık yapmak istemiyorum ama.....

sorum şu userform üzerindeki comboboxtan çalışma kitabıma ait sayfalardan hangisini seçtiysem o sayfa görünsün diyerleri gizlensin.
tşk ederim.

bu arada formun ara kısmında arama yaparken galiba tam ben yapamıyorum.

sayfa and gizle yada sayfa+gizle diye ara diyorum içinde aradığım kelimeler dışındaki örneklerde geliyor doğru arama nasıl olmalı
herkese iyi çalışmalar.

 

[Haluk]

Private Sub UserForm_Initialize()
    For i = 1 To Sheets.Count
        ComboBox1.AddItem Sheets(i).Name
    Next
End Sub
'
Private Sub ComboBox1_Change()
    For i = 1 To Sheets.Count
        If Not Sheets(i).Name = ComboBox1.Text Then
            Sheets(ComboBox1.Text).Visible = True
            Sheets(i).Visible = xlVeryHidden
        End If
    Next
End Sub

 

[mühendis^^]

sn: Haluk bey iyiki varsın teşekkür ederim. Allah kolaylık versin.

 

[Haluk]

Rica ederim.

İyi çalışmalar dilerim.