Skip to main content

AccessTr.neT


Klasör İçerisindeki 3 Yardımcı Kitaptan Ana Kitaba Veri Aktarımı

Klasör İçerisindeki 3 Yardımcı Kitaptan Ana Kitaba Veri Aktarımı

Çözüldü #1
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.
.rar Haftalık İstatistik 2021-1.rar (Dosya Boyutu: 33,11 KB | İndirme Sayısı: 4)
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 06/05/2021, 01:34, Düzenleyen: yyhy.
Cevapla
#2
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?
Cevapla
#3
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
Cevapla
#4
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.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 06/05/2021, 14:12, Düzenleyen: yyhy.
Cevapla
#5
Sayın @feraz bey bu konuda ne yapabiliriz?
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
dosyalarınız aynı klasörde ise
Kod:
ThisWorkbook.Path & "\açmak istediğiniz dosya adı"
özelliğinden faydalanabilirsiniz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task