comboboxta kapalı dosyayı açmak klasör altında

[sefer1975]

sayın arkadaşlar
çalıştığım sayfa 1 de combobox1 row source yöntemi ile sayfa adları alıyorum. mesela data1 data2...gibi

birde c:\yeni klasör\
data1.xls
data2.xls
..........
var

combodan hangisini seçersem kapalı olan dosyayı çağırsın(c:\yeni klasör altında..
data1 seçersem c:*yeniklasör\data1.xls yi açsın
gibi

 

[sefer1975]

lütfen bu konuya cevap verecek birisi yokmu

 

[N.Ziya Hiçdurmaz]

Yanıt

Comboboxta listelenen dosyaları açar.

Private Sub CommandButton1_Click()
If ComboBox1 = "" Then
MsgBox "Önce dosyayı seçmelisiniz.", vbInformation
Exit Sub
End If
YOL = ComboBox1
Workbooks.Open "C:\TEST\" & YOL & ".XLS"
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "A1:A25"
End Sub

 

[sefer1975]

teşekkürler bir sorum daha var
sayfa 1deki verileri açılan text dosyasının içindeki data1 de 3 tane shhet var ona nasıl kopyala yapıştır yaparım
yani sayfa 2 den alacak açtığım dosya data1 diyelim bunun içindede data1 data2 data3 gibi sayfalar var
data1 seçersem önce data1 dosyasını açıp data1 sayfasına yapıştırsın.
teşekkürler

 

[sefer1975]

ekli dosya örnek

ekli dosyada costlar adında klasör var

örn12 dosyasında çalışıyoruz userformu açtığımızda örn12 dosyasının sayfa1 den combolar yardımı ile züerek alıyoruz. combo2 den seçtiğimiz metinlerin klasör içinde aynı ada sahib exel dosyaları var. bu dosyaların içindede combobox1 deki aylardan oluşan sayfalar var.

combo1den ayları karşılığındaki combo2 dende metni seçiyoruz. bunları seçince örn12 dosyasındaki sayfa2ye atıyoruz. seçimler bitince ilgili sayfa açılıyor. benim aamacım örn12 kitabındaki sayfa 2 deki değerleri kopyalayım combolarda belirttiğim dosya ve aylardan oluşan sayfaya nasıl kopyalarız. teşekkürler. inşallah anlatabilmişimdir.