Listbox'dan seçime göre kitap açılsın

[DeliBalta58]

Arkadaşlar
C:\tasinir_klasoru\tasinir_islemleri\tasinirKart klasörü içindeki dosyaları

Private Sub UserForm_Activate()
    'Liste kutusuna Dosyaları sıralar
    frm_tasinir_isl.Listtasinir.Clear
    ChDrive ("C:")

    ChDir "C:\tasinir_klasoru\tasinir_islemleri\tasinirKart"
    Dosya = Dir("*.*")
    While Dosya <> ""
        frm_tasinir_isl.Listtasinir.AddItem Dosya
        Dosya = Dir
    Wend
    'ChDir "C:\Belgelerim"
  'Worksheets("Giris").Select
End Sub

kodu ile listeledik.

Burda listelenen veriden birini seçip Giriş veya Çıkış butonuna basıldığı zaman seçim yapılan kitabı açmak istiyorum.

 

[elrondtaralom]

www.excel.web.tr ye ait olan bir program kim eklemişti onu hatırlamıyorum yanlış anlamadıysam bu program işini görür yapman gereken tek şey yukarıda klasör yolunu giriniz denilen yere hangi dosyalara ulaşmak istiyorsan o dosyaların klasör yolunu girmen..


Ekli dosyayı görüntüle 21041

 

[Orion1]

Aşaığdaki kodda kırmızı yeri değiştirin.

Private Sub UserForm_Activate()
    'Liste kutusuna Dosyaları sıralar
    frm_tasinir_isl.Listtasinir.Clear
    ChDrive ("C:")

    ChDir "C:\tasinir_klasoru\tasinir_islemleri\tasinirKart"
    [COLOR="Red"]Dosya = Dir("*.xls")[/COLOR]
    While Dosya <> ""
        frm_tasinir_isl.Listtasinir.AddItem Dosya
        Dosya = Dir
    Wend
    'ChDir "C:\Belgelerim"
  'Worksheets("Giris").Select
End Sub

Aşağıdaki kodu yazarak listbox'a çift tıklama ile dosyanızı açabilirsiniz.

Private Sub Listtasinir_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim yol As String
yol = "C:\tasinir_klasoru\tasinir_islemleri\tesinirKart\"
Workbooks.Open (yol & Listtasinir.Value)
End Sub

 

[DeliBalta58]

DblClick olayı işimi görmüyor.
Çünkü örneğin aaa.xls dosyasında giriş işlemi yapılacaksa giriş formu açılıyor
Çıkış işlemi yapılacaksa Çıkış formu açılıyor.

Bana gerekli olan ise ;

ChDrive ("C:")
Workbooks.Open "C:\tasinir_klasoru\tasinir_islemleri\tasinirKart\" & frm_tasinir_isl.Listtasinir.Valu
e

burda kod hata veriyor.
Dosya yolunu bulamadığını söylüyor Run-time 1004 hatası veriyor.
bu kod DblClick olayında işlem görüyor.

Ben istiyorumki Listbox'a gelen isimlerden seçtiğim ( aktifleştirdiğim ) kitap giriş (frmgiris) butonu basıldığında açılması.
Teşekkürler

 

[Orion1]

O zaman dosya yolu yanlıştır.
Dosya yolunu iyice kontrol ediniz.Ve eğer kodu butona atayacaksanız ilgili kodu butona yazınız.