Makro ile isim verilmiş sayfaları (Sheet) yine makro yardımı ile bulmak

[millis]

Arkadaşlar sorun şu; düzenlemiş olduğum bir User Form da makro oluşturarak kişilerin isimleri sayfa isimleri olarak (sheet) açılıyor, fakat bir başka formda bu kişilerin isimlerini girerek kişiye ait sayfanın açılmasını makro aracılığığla yapmak istiyorum ama bir türlü yapamadım. Belki basit bir şey, yardımlarınızı bekliyorum.

 

[alpi]

Aşağıdaki kod size yardımcı olur umarım

Sub sayfalar()
    Dim bak As Integer
    For bak = 1 To ThisWorkbook.Sheets.Count
        MsgBox ThisWorkbook.Sheets(bak).Name
    Next
End Sub

 

[Recep İpek]

Sayfa isimlerini combobox'da görmek için;

Private Sub UserForm_Initialize()
On Error Resume Next
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
Me.ComboBox1.ListIndex = 0
End Sub

Combobox'dan sayfayı seçmek için ise;

Private Sub B01_Click()
On Error Resume Next
Dim sicil As String
sicil = ComboBox1.Value
Worksheets(sicil).Select
End Sub

kodlarını kullanabilirsiniz.

 

[millis]

Teşekkür

Yardımcı olan tüm arkadaşlara teşekkür ederim. Sorun çözüldü.