Listboxa listelenen sayfa adına tıklayınca açsın

[Sa.NaL]

Merhaba arkadaşlar,

Aşağıdaki kodlarla listbox1 e sayfa adlarını listeletiyorum, listelenen listede sayfa adına çift tıklayınca nasıl kod yazmalıyımki açık olan userformu kapatıp ilgili sayfaya gidilsin. Yardımcı olursanız sevinirim. iyi çalışmalar

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'BU KODLARI YAZINCA HATA VERİYOR'
If ListBox1(i).Selected Then
Sheets(i).Visible = True
ListForm.Hide
End If
End Sub

Private Sub UserForm_Click()
For i = 1 To Sheets.Count
ListBox1.AddItem Sheets(i).Name
Next i
Label1.Caption = "Sistem de Toplam" & " " & ListBox1.ListCount - 2 & " Kayıt Bulunmaktadır..."
End Sub

 

[zafer]

Merhaba

Aşağıdaki kodları inceleyiniz

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'BU KODLARI YAZINCA HATA VERİYOR'
ad = ListBox1.Value
Sheets(ad).Visible = True
UserForm1.Hide
'End If
End Sub


Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
ListBox1.AddItem Sheets(i).Name
Next i
Label1.Caption = "Sistem de Toplam" & " " & ListBox1.ListCount - 2 & " Kayıt Bulunmaktadır..."
End Sub

 

[İhsan Tank]

merhaba
bu kodları'da kullanabilirsiniz
zafer hocam'ada teşekkür ederim.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets(ListBox1.Value).Select
Unload UserForm1
MsgBox "İstediğiniz Sayfası Başarı ile Açıldı.", , "İhsan Tank"
End Sub
Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
ListBox1.AddItem Sheets(i).Name
Next i
End Sub