listbox daki degere tıklayınca excel sayfası acılsın

[hhd82]

Merhaba
2 adet listboxum var listbox a degerleri
C:\Users\pc\Desktop\Excell\1
C:\Users\pc\Desktop\Excell\2 isimli klasorlerdekı excel dosyaların ısımlerını sayfa1 ve sayfa2 ye listeleyip userformda gosterıyorum.

veriler
100 ahmet aslan
101 mehmet gunes
102 hasan ak

şeklinde yapmak ıstedıgım lıstbox dakı degere tıklayınca o ısımdekı excel dosyası acılabilir mi
yada bir textbox ayarlayıp 100 yazdıgım zaman commandbutton ıle 100 ıle baslayan dosya acılabilir mi

 

[tamer42]

Merhaba
2 adet listboxum var listbox a degerleri
C:\Users\pc\Desktop\Excell\1
C:\Users\pc\Desktop\Excell\2 isimli klasorlerdekı excel dosyaların ısımlerını sayfa1 ve sayfa2 ye listeleyip userformda gosterıyorum.

veriler
100 ahmet aslan
101 mehmet gunes
102 hasan ak

şeklinde yapmak ıstedıgım lıstbox dakı degere tıklayınca o ısımdekı excel dosyası acılabilir mi
yada bir textbox ayarlayıp 100 yazdıgım zaman commandbutton ıle 100 ıle baslayan dosya acılabilir mi

kendinize göre düzenleyiniz

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    Dim klasorYolu As String
    Dim secilenDeger As String
    Dim dosyaYolu As String

    klasorYolu = "C:\Users\pc\Desktop\Excell\1\"

    If ListBox1.ListIndex = -1 Then Exit Sub

    secilenDeger = ListBox1.Value
    dosyaYolu = klasorYolu & secilenDeger & ".xlsx"

    If Dir(dosyaYolu) <> "" Then
        Workbooks.Open dosyaYolu
    Else
        MsgBox "Dosya bulunamadı!", vbCritical
    End If

End Sub

 

[hhd82]

kendinize göre düzenleyiniz

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    Dim klasorYolu As String
    Dim secilenDeger As String
    Dim dosyaYolu As String

    klasorYolu = "C:\Users\pc\Desktop\Excell\1\"

    If ListBox1.ListIndex = -1 Then Exit Sub

    secilenDeger = ListBox1.Value
    dosyaYolu = klasorYolu & secilenDeger & ".xlsx"

    If Dir(dosyaYolu) <> "" Then
        Workbooks.Open dosyaYolu
    Else
        MsgBox "Dosya bulunamadı!", vbCritical
    End If

End Sub

çok teşekkürler istediğim bu şekilde idi
lıstbox 2 klasorden alıyor verileri
C:\Users\pc\Desktop\Excell\1\
C:\Users\pc\Desktop\Excell\2\ şeklinde 2 klasor olarak guncelleyebilirmiyiz.
birde dosya ısımlerımı cekerken turkce karakterlerı degisitiriyor o yuzden turkce karakter olanlarada hata verdı tam eşleşme olmadan turkce karakterleri nasıl açtırabiliriz.