+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Klasör İçerisindeki 3 Yardımcı Kitaptan Ana Kitaba Veri Aktarımı (/konu-klasor-icerisindeki-3-yardimci-kitaptan-ana-kitaba-veri-aktarimi.html)
Klasör İçerisindeki 3 Yardımcı Kitaptan Ana Kitaba Veri Aktarımı - yyhy - 06/05/2021
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.
RE: Klasör İçerisindeki 3 Yardımcı Kitaptan Ana Kitaba Veri Aktarımı - atoykan - 06/05/2021
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?
RE: Klasör İçerisindeki 3 Yardımcı Kitaptan Ana Kitaba Veri Aktarımı - atoykan - 06/05/2021
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 SubRE: Klasör İçerisindeki 3 Yardımcı Kitaptan Ana Kitaba Veri Aktarımı - yyhy - 06/05/2021
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.
RE: Klasör İçerisindeki 3 Yardımcı Kitaptan Ana Kitaba Veri Aktarımı - yyhy - 06/05/2021
Sayın @feraz bey bu konuda ne yapabiliriz?
RE: Klasör İçerisindeki 3 Yardımcı Kitaptan Ana Kitaba Veri Aktarımı - atoykan - 06/05/2021
dosyalarınız aynı klasörde ise
Kod:
ThisWorkbook.Path & "\açmak istediğiniz dosya adı"