Soru Userform üzerinden veri listeleme

[murat_fidan]

Değerli forum üyeleri paylamış olduğum çalışma ile yapmak istediğim: C sürücüsünde "ARAÇLAR" klasörünün içerisinde araç plakaları ve bu araç plakalarına ait klasörler içerisinde, aylara ait klasörler ve bu klasörlerin içerisinde de ilgili aylara ait raporlar bulunmaktadır. Ben hazırlamış olduğum userform üzerinde ilgili araca ait olan optionbutonu seçip daha sonra combobox ile istediğim ayı belirtip daha sonra o aya ait olan raporları isimleri ile birlikte listboxa getirmek istiyorum. Listboxa gelen raporları da çift tıklama ile açmak istiyorum. Bu konuda yardımlarınız beklemekteyim şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Dosyanız ekte.
Dosyayı örnekte olduğu gibi aynı yere kopyalayın.

 

[murat_fidan]

Merhaba.
Dosyanız ekte.
Dosyayı örnekte olduğu gibi aynı yere kopyalayın.

Teşekkürler hocam tam istediğim gibi olmuş sağolun

 

[murat_fidan]

Merhaba.
Dosyanız ekte.
Dosyayı örnekte olduğu gibi aynı yere kopyalayın.

Muzaffer hocam çalışma mevcut hali ile çok güzel çalışıyor. Ekranda sadece userform görünürken yani arka planda excel görünmezken listboxa gelen sayfaları çift tklayıp açtığımda açıyor ancak tekrar açtığım sayfayı kapatmak istediğimde ya proğram hataya düşüyor yada arka plandaki userformu kapatmaya çalışıyor. Bu sorunu nasıl aşabiliriz. Çalışma sorunlu hali ile ektedir

 

[Muzaffer Ali]

Aşağıdaki kodu silin

Private Sub lbRaporlar_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Workbooks.Open ThisWorkbook.Path & "\ARAÇLAR\" & cbAraclar.Text & "\" & cbAylar.Text & "\" & lbRaporlar.Value
End Sub

Aşağıdaki kodu ekleyin.

Private Sub listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim i As Object
    Set i = CreateObject("Excel.Application")
    i.Visible = True
    i.Workbooks.Open ThisWorkbook.Path & "\ARAÇLAR\" & ComboBox1.Text & "\" & ComboBox2.Text & "\" & ListBox1.Value
End Sub

 

[murat_fidan]

Aşağıdaki kodu silin

Private Sub lbRaporlar_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Workbooks.Open ThisWorkbook.Path & "\ARAÇLAR\" & cbAraclar.Text & "\" & cbAylar.Text & "\" & lbRaporlar.Value
End Sub

Aşağıdaki kodu ekleyin.

Private Sub listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim i As Object
    Set i = CreateObject("Excel.Application")
    i.Visible = True
    i.Workbooks.Open ThisWorkbook.Path & "\ARAÇLAR\" & ComboBox1.Text & "\" & ComboBox2.Text & "\" & ListBox1.Value
End Sub

Muzaffer hocam öncelikle çok teşekkür ederim. Şuan sorunsuz çalışıyor çok elzem değil ama listboxta çift tıklayıp sayfayı açtığımda excel sayfası yarım açılıyor yani önceki gibi tam ekran açılmıyor buna çözüm bulunabilirmi. Olmazsa bu şekilde devam ederim saygılar

 

[Muzaffer Ali]

Aşağıdaki kodu kullanın.

Private Sub listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim i As Object
    Set i = CreateObject("Excel.Application")
    i.Visible = True
    i.Workbooks.Open ThisWorkbook.Path & "\ARAÇLAR\" & ComboBox1.Text & "\" & ComboBox2.Text & "\" & ListBox1.Value
    i.WindowState = xlMaximized
End Sub

 

[murat_fidan]

Aşağıdaki kodu kullanın.

Private Sub listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim i As Object
    Set i = CreateObject("Excel.Application")
    i.Visible = True
    i.Workbooks.Open ThisWorkbook.Path & "\ARAÇLAR\" & ComboBox1.Text & "\" & ComboBox2.Text & "\" & ListBox1.Value
    i.WindowState = xlMaximized
End Sub

Çok teşekkür ederim hocam sağolasın

 

[murat_fidan]

Aşağıdaki kodu kullanın.

Private Sub listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim i As Object
    Set i = CreateObject("Excel.Application")
    i.Visible = True
    i.Workbooks.Open ThisWorkbook.Path & "\ARAÇLAR\" & ComboBox1.Text & "\" & ComboBox2.Text & "\" & ListBox1.Value
    i.WindowState = xlMaximized
End Sub

Muzaffer hocam tekrardan merhabalar, bu makroyu aynı sekilde çalışmak koşulu ile hem Excel hem PDF dosyalarini açacak şekilde nasıl revize edebiliriz

 

[murat_fidan]

Uğraşlar sonucu yaptım Muzaffer hocam