ListBox da seçilen sayfaya gitmek.

[rahmi06]

Listbox daki sayfaların üzerine tıkladığımda, tıkladığım sayfaya gitmesini istiyorum.
Birde Sayfalardan birkaçını listboxda göstermesini istemiyorum.

Yardımcı olursanız çok sevinirim. Örnek dosya ekte.

 

[Excelmy]

Sayın rahmi06,
Ekte bulunan dosyayı inceleyiniz.
Görünmesiniz istemediğiniz sayfalar için;

For a = 2 To Sheets.Count

kod satırında gördüğünüz kırmızı renkli rakamda değişiklik yapabilirsiniz. Mevcut durumunda Listbox'da 1. sayfa görüntülenmeyecek 2 ve daha sonraki sayfaları görebileceksiniz.

 

[rahmi06]

Teşekkürler Kuman bey ilginize işime yaradı

 

[halit3]

alternarif olarak burada sayfa2,sayfa5,sayfa3 ü listbox nesnesine yazmıyor.

Private Sub UserForm_Initialize()
ListBox1.Clear
For Each Worksheet In ActiveWorkbook.Worksheets
If Worksheet.Name = "Sayfa2" Then
ElseIf Worksheet.Name = "Sayfa5" Then
ElseIf Worksheet.Name = "Sayfa3" Then
Else
ListBox1.AddItem Worksheet.Name
End If
Next
End Sub

Private Sub ListBox1_Click()
Sayfa_adı = ListBox1.List(ListBox1.ListIndex)
Sheets(Sayfa_adı).Select
End Sub

Private Sub ListBox1_Click()
Sayfa_adı = ListBox1.Value
Sheets(Sayfa_adı).Select
End Sub

Private Sub ListBox1_Click()
Sayfa_adı = ListBox1.List(ListBox1.ListIndex, 0)
Sheets(Sayfa_adı).Select
End Sub