Combobox İle Dosya Açmak

[ZuCChiNi]

Userformda combobox ile dosya açmak istiyorum.
Yardımcı olabilir misiniz.
Dosya yolu ekteki dosyadaki gibi sekmede de olabilir VBA içinde de.

 

[Emir Hüseyin Çoban]

. . .

Private Sub ComboBox1_Change()

On Error GoTo hata
sat = ComboBox1.ListIndex + 2
yol = Cells(sat, "B") & "\" & Cells(sat, "C")
Workbooks.Open (yol)

Exit Sub
hata:
MsgBox " Yok ", vbCritical

End Sub

. . .

 

[ZuCChiNi]

Teşekkür ederim. "Hiç bilmeyenle bilen bir olur mu?"

---

Bir dosya açtıktan sonra başka bir dosya daha açmak istediğimde hata veriyor ve ikinci dosya açılmıyor.

 

[Emir Hüseyin Çoban]

. . .

Tablo özelliğine göre bir kaç seçenek mevcut. Tercihim 3. seçenektir.

1-
Şuanki özelliklerinde aşağıdaki satırı, bu şekilde değiştirin.
Dosya: Excel kitabın ismidir.

yol = Workbooks("[B]Dosya[/B]").Sheets("Sayfa1").Cells(sat, "B") & "\" & Workbooks("[B]Dosya[/B]").Sheets("Sayfa1").Cells(sat, "C")

2-
Userformun açılış kodlarına 0 ekleyebilirsiniz.
Ana dosyaya geçip, seçim yapabilirsiniz.

UserForm1.Show 0

3-
Her dosya açma işleminden sonra Userform kapatılabilir.

[B]Unload Me[/B]
Exit Sub
hata:
MsgBox " Yok ", vbCritical
End Sub

. . .

 

[ZuCChiNi]

Yardımınız için teşekkür ederim.
Userform'un hep açık kalması gerekiyor.
Bir de Userformda bunun gibi bir-kaç combobox daha olacak.
Başka bir yolu var mıdır?

1.Yolu denedim ama yapamadım
2.Yolda açılmış olan dosyayı kapatınca başka bir dosya açılabiliyor. Bu haliyle de iş görür ama açık dosyanın kapanmaması gerekebiliyor.
3.Yolda her seferinde Userformu açmam gerekiyor.

 

[Emir Hüseyin Çoban]

. . .

1.Yol için;
Örnek dosyanızın ismi çok uzun olduğu için, ismini Dosya olarak değiştirdim.
Bu değişikliği yaraparak deneyiniz.

. . .

 

[ZuCChiNi]

Hüseyin bey çok teşekkür ederim.
1. yol işimi gördü.
Bahtınız her daim açık olsun.