AccessTr.neT

Klasör içerisindeki Haftalık İstatistik 2021-01 isimli ana kitabıma Liste1(Senelik Mazeret), Liste2(Dr.Raporlu Sevk) ve Liste3(Ücretsiz) yardımcı kitaplardan veri aktarmak istiyorum. Yardımcı kitabımda hepsinin adı Sayfa1 olarak geçiyor.

Liste1(Senelik Mazeret) kitabından ----------- Haftalık İstatistik 2021-01 kitabındaki Senelik Mazeret sayfasına

Liste2(Dr.Raporlu Sevk) kitabından ----------- Haftalık İstatistik 2021-01 kitabındaki Dr.Raporlu Sevk sayfasına

Liste3(Ücretsiz)              kitabından ----------- Haftalık İstatistik 2021-01 kitabındaki Ücretsiz              sayfasına

Yardımcı dosyaları açmadan macro yardımı ile Haftalık İstatistik 2021-01 kitabındaki sayfalarına aktarmak istiyorum.

Yardımcı olabilecek arkadaşlara teşekkür ederim.

Merhaba Sayın @yyhy

Yardımcı dosyalarınızdaki veri değişiyor mu, yani eklemeler yapılarak liste uzuyor mu yoksa haftalık olarak ayrı workbooklar halinde mi oluşturuyorsunuz?

Aşağıdaki kodu sayfanızda tanımlayacağınız bir butona tanımlayıp kullanabilirsiniz. Sanırım işinize yarayacaktır.

Sub GetData()



Dim sFile, tFile As Workbook



Set tFile = ThisWorkbook

Set sFile = Workbooks.Open("C:\xlsx\Liste1(Senelik Mazeret).xlsm") 'DOSYA YOLUNU KENDİ DOSYA YOLUNUZ İLE DEĞİŞTİRİN

sFile.Worksheets("Sayfa1").Range("A:E").Copy



tFile.Activate

tFile.Worksheets("Senelik Mazeret").Activate  'DATAYI YAPIŞTIRACAĞINIZ SAYFA İLE DEĞİŞTİRİN

tFile.Worksheets("Senelik Mazeret").Cells(1, 1).Select 'DATAYI YAPIŞTIRACAĞINIZ SAYFA İLE DEĞİŞTİRİN

ActiveSheet.Paste

Application.CutCopyMode = False



sFile.Close



Set sFile = Nothing

Set tFile = Nothing



ThisWorkbook.Activate

Worksheets("Senelik Mazeret").Activate  'DATAYI YAPIŞTIRACAĞINIZ SAYFA İLE DEĞİŞTİRİN

Worksheets("Senelik Mazeret").Range("A1").Select 'DATAYI YAPIŞTIRACAĞINIZ SAYFA İLE DEĞİŞTİRİN



End Sub

Sayın @atoyhan öncelikle teşekkürler. Dosya yolu ile ilgili olarak ana dosyanın bulunduğu klasör olarak acaba genelleme yapılabilir mi? Bulunduğu dizin veya klasör gibi.

Sayın @feraz bey bu konuda ne yapabiliriz?

dosyalarınız aynı klasörde ise
özelliğinden faydalanabilirsiniz.