Klasör içerisindeki 3 yardımcı kitaptan ana kitaba veri aktarımı

[yyhy]

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.

 

[yyhy]

Arkadaşlar bu konuda ne yapabiliriz?

 

[Haluk]

ADO konularına bakabilirsiniz...

.

 

[yyhy]

Sayın @Haluk bey ayrı sayfalar olunca işin içinden çıkamadım. Aynı sayfaya yine forum yardımı ile hazırladığım var ama ayrı kitaplardan ana dosyada ayrı sayfalara aldırmak istiyorum.

 

[Haluk]

"DAO" ile bir çözüm ektedir...

.

 

[yyhy]

Sayın @Haluk ihtiyaca cevap verdi teşekkür ederim. Acaba sonuçta şu sayfadan şu kadar ... ve toplamda da şu kadar veri satırı aktarıldı şeklinde koda ekleme yapılabilir mi? Şu haliyle işimi görüyor sadece bir ekleme yapılabilir mi?

 

[Haluk]

5 No'lu mesaj ekindeki dosyayı buna göre revize ettim...

.

 

[yyhy]

Haluk bey sizin hazırladığınız dosyalar çalışıyor. Benim 1 ana dosyam 3 tane de verilerin geleceği dosya var. Resmini ekleyeceğim bir hata verdi. Acaba sorun ne olabilir? Bir yerde hata yapıyorum ama nerede bir türlü bulamadım.

 

[Haluk]

Zaten çalıştığınız dosyalar değil miydi onlar ?

1 ana dosya, 3 adet de verilerin alındığı dosyalar....

Çalışan dosyaları neden kullanmıyorsunuz, anlamadım....

.

 

[yyhy]

Evet aynen öyle olmazsa asıl sayfaları sizin gönderdiğiniz Çalışma Kitabına taşıyayım.

 

[Haluk]

Bahsettiğiniz hatayı belki de, getData isimli prosedürün başında belirttiğim referansı eklemediğiniz için alıyor olabilirsiniz.

Kontrol etmenizde fayda var....

.

 

[yyhy]

Sayın Haluk bey sayfaları taşıdım. Acaba benim yardımcı dosyalarım uzantıları xlsm idi onları xlsx dönüştürdüm. Yine şu hatayı verdi. Sizden gelen dosyalarda uzantı *.xlsm dir. Sistemden alınan dosyaların uzantıları *.xlsx dir. Acaba uzantı ile alakalı olabilir mi?

 

[Haluk]

Kodlarda "xlsm" yerine "xlsx" kullanırsanız, sorun olmaz.

Bundan önceki mesajımı da okuyun, ama....

.

 

[yyhy]

Bahsettiğiniz hatayı belki de, getData isimli prosedürün başında belirttiğim referansı eklemediğiniz için alıyor olabilirsiniz.

Kontrol etmenizde fayda var....

.

Referans nasıl verebilirim? Bugüne kadar referans konusunda hiç bir işlem yapmadım.

 

[Haluk]

VBA editöründe, menülerden Tools >> References (Araçlar>> Referanslar) tıklayın, gelen pencerede resimde belirtilen referansı bulup, işaretleyin. Pencereyi onaylayıp, kapatın....



.
.

 

[yyhy]

Referance bölümünü de işaretli ama yine de verilerde hata veriyor. Sizden gelen verilerde bir sorun yok çalışıyor.

 

[Haluk]

Nasıl pasif yani?

.

 

[yyhy]

Mesajı düzelttim Haluk bey

 

[yyhy]

En son hata da şu şekilde

 

[Haluk]

Bilemiyorum..... veri dosyalarının isimlerini, verilerin tüm dosyalarda "Sayfa1" isimli sayfada olup olmadığını vb kontrol edin.

Olmazsa, dosyaları görmem lazım....

.