Kapalı Kitaptan Veri Almak - Veri Yolu

[dengbej]

Sub deneme()
If Dir(ThisWorkbook.Path & "\" & Sheets("ortak").Range("c1").Value & "\cari.xls") = "" Then
MsgBox "HATA! Geçmiş yıla ait klasör bulunamadı."
Exit Sub
End If
Workbooks.Open ThisWorkbook.Path & "\" & Sheets("ortak").Range("c1").Value & "\cari.xls"
With Workbooks("cari.xls")
.Sheets("caria").Columns("A:Z").Copy
.Close
End With
Workbooks.Open ThisWorkbook.Path & "\" & Label5 & "\cari.xls"
With Workbooks("cari.xls")
.Sheets("caria").Columns("A:Z").Paste
.Save
.Close
End With
MsgBox "İLGİLİ CARİ HESABA KAYIT YAPILMIŞTIR."
End Sub

----------------------------------------------------------


Kodlamasında kopyalamanın yapılacağı kitabın c:\Cari.xls Sayfasının A1 Kolonunundaki Veri Yolu ve Kitap ismini kullanmak istiyorum çünkü kitaplardaki veriler sabit fakat kitap isimlerim değişkendir. Bu konuda Yardımcı Olabilirseniz sevinirim. Şimdiden Teşekkürler.

 

[dengbej]

Arkadaşlar Pls. Tüm Yolları denedim artık çare kalmadı sizden başka

 

[Orion1]

Yazdıklarınızdan bir şey anlaşılmıyor.
Şimdiye kadar bir cevap gelmemeside bu yüzdendir sanırım.
Dağa net ve açıklayıcı bilgiler verirseniz dağa doğru olacaktır sanırım.