Mevcut çalışma sayfalarının isimlerini Listbox'da göstermek ve link eklemek

[radikall]

Merhabalar herkeze ;

Userform'daki listbox'a bu kod ile sayfadaki mevcut sayfa isimlerini getirttim. Lakin bu sayfa isimlerine nasıl link ekleyebilirim ? Yani tıklandığında kendi sayfasına gidilmesini istiyorum .

Private Sub UserForm_Initialize()
Dim N As Long
For N = 3 To ActiveWorkbook.Sheets.Count
    ListBox1.AddItem ActiveWorkbook.Sheets(N).Name
    
Next N

End Sub

 

[radikall]

Özür diliyerek sorumun cevabını kendim veriyorum.

Private Sub ListBox1_Click() 
    With UserForm1.ListBox1 
        ThisWorkbook.Sheets(.Value).Activate 
    End With 
End Sub

Bu kod sayesinde Listbox'da getirtdiğiniz sayfalara link verebiliyorsunuz .

 

[antonio]

Merhabalar herkeze ;

Userform'daki listbox'a bu kod ile sayfadaki mevcut sayfa isimlerini getirttim. Lakin bu sayfa isimlerine nasıl link ekleyebilirim ? Yani tıklandığında kendi sayfasına gidilmesini istiyorum .

Private Sub UserForm_Initialize()
Dim N As Long
For N = 3 To ActiveWorkbook.Sheets.Count
    ListBox1.AddItem ActiveWorkbook.Sheets(N).Name
    
Next N

End Sub

Aşağıda ki kodu da hemen yazdığınız kodun altına yapıştırın:

Private Sub ListBox1_Click()
Dim sayfa As String
sayfa = ListBox1.Value
Worksheets(sayfa).Select
Unload Me
End Sub

İyi çalışmalar