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.
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.