Liste kutusundan sayfaya gitme

[saydn]

Merhaba arkadaşlar, benim sorunum şu..bir excell sayfasında bulunan listekutusundan seçtiğim sayfanın açılması,ama seçmiş olduğum excell sayfa-sayfaları başka bir çalışma kitabının içinde bulunmakta..örnek bir sayfa ile yardımcı olabilecek arkadaşlara çok teşekkür ediyorum.

 

[eincioglu]

Merhaba ,

Kastın başka bir excel doyasındaki Sheet i açmak mı ?

 

[saydn]

Evet doğru, listbox tan seçilince sayfanın açılması

 

[eincioglu]

Listbox ın double click ine bunu yaz, ListIndex = 0 ilk öğenin tıklanması durumunda a.ılacak dosya anlamına geliyor. Listbox ındaki sayıya göre elseIf ile sayilari çoğaltabilirsin.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListIndex = 0 Then
Workbooks.Open "C:\Emrah.xls"
ElseIf ListBox1.ListIndex = 1 Then
Workbooks.Open "C:\Emrah2.xls"
End If
End Sub

Listbox ının value su eğer dosyaların tam path i olacaksa .

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Workbooks.Open ListBox1.Value
End Sub

şeklinde yazabilirsin


Kolay gelsin

 

[saydn]

Sayın eincioglu yardımınıza ve ilginize teşekkür ederim ama verdiğiniz kodları uygulayamadım ve sorunumu da eksik anlattığım kanısındayım.Listbox olarak değindiğim açılan kutuya başka bir kitaptaki sheet leri tanımlamak ve açılan kutudan bu sheetlerden birini seçtiğimde sayfanın açılması..yanlış anlatımım için özür dilerim.

 

[eincioglu]

Sheete bir tane list box ve command button ekle, butona basınca ilgili dosyadaki sheetleri update ederek listbox ını dolduracak, double clicktede ilgili dosyayı açarak ilgili sheeti activate edecek . Sorun çıkarsa emrahincioglu@hsbc.com.tr adresine mail atarsin.

Private Sub CommandButton1_Click()
Dim emrah As Object
Dim emo As Double
Set emrah = Excel.Workbooks
For i = 0 To ListBox1.ListCount - 1
ListBox1.RemoveItem 0
Next i
emrah.Open "d:\Book2.xls"
emo = ActiveWorkbook.Sheets.Count
Dim emo2(100)
For i = 1 To emo
emo2(i - 1) = ActiveWorkbook.Sheets(i).Name
Next i
ActiveWorkbook.Close
For i = 0 To 100
If emo2(i) <> "" Then
ListBox1.AddItem emo2(i)
End If
Next
End Sub



Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Workbooks.Open "D:\Book2.xls"
ActiveWorkbook.Sheets(ListBox1.Value).Activate
End Sub