Dosya Yoluna Göre excelden Excele Yükleme

[neo]

:hey: İyi geceler

Yükle Butonuyla ;

Firmayı Seçtiğimde Dosya yolu otamatik olarak gelmekte bu duruma göre Cari dönemi istediğim dosya yolundaki

Excel dosyasından Cari dönemdeki yerlerine Formatı ve biçimlendirmeleri bozmadan yükleye bilirmiyiz

 

[neo]

:kafa: Selam
dostlar bu çalışmaya çok ihtiyacım var yardımcı olursanız çok makbul olur bir iki örnek gördüm ama uyarlayamadım


Saygılarımla,

 

[omerceri]

Sub a()
Set xl = CreateObject("Excel.Sheet")
xl.Application.Workbooks.Open Range("K1")
End Sub
yukardaki kodu Yükle Düğmesine atarsan

 

[neo]

:hey: İyi geceler dostlar

sayın omerceri yanlız ben tam anlatamadım galiba kitap birde Cari dönem bölümü içinde düşeyarayla ilgili işlemler var ben firmayı seçtiğimde ise dosya yolu düşeyarayla K1 yazılıyor yükle dediğimde ise yolu takip edip cari dönem içindeki rakamları güncellemesini istiyorum ilgili dosya yolu yla

saygılarımla,

 

[omerceri]

Sub aa()
yol = Range("K1")
Workbooks.Open (yol)
'(*)
Workbooks("ff").Sheets("Sayfa1").Range("A1").Value = ActiveWorkbook.Sheets("Sayfa1").Range("A1")
'(*)
ActiveWorkbook.Close
End Sub


'(*) Burada artık aktif kitap bilgi alınacak kitap olduğu için bilginin yazılacağı kiabın kitap.sayfa.hücre adının tam yazılması gerekiyor.