• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Çözüldü VBA ile kapalı dosyadan veri alma

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

nunu446

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Nis 2021
Mesajlar
239
Aldığı beğeni
22
Excel Versiyonu
Office 2019 EN
Konuyu Başlatan
Merhaba. Benim 4 tane excel dosyam var ve bunlardan biri TOTAL dosyası. TOTAL dosyasında bulunan verilerle aynı veriler diğer 3 dosyada da var. Soru şu ki, TOTAL dosyasına diğer 3 dosyadakı verilerin cem halinde uygun sıralara yazılması lazım. Örnek dosyaları aşağı bırakıcam.
 

Ekli dosyalar

  • 0.TOTAL - 0 - F2.xlsm
    11.4 KB · Gösterim: 5
  • 01.xlsx
    11.2 KB · Gösterim: 4
  • 02.xlsx
    11.2 KB · Gösterim: 4
  • 03.xlsx
    11.2 KB · Gösterim: 3
verilerin cem halinde uygun sıralara yazılması lazım
1 - tam olarak kastettiğiniz ne?
diğer kitaplardaki verilerin sırayla ana dosyaya aktarılması mı, verilerin işlenip sadece sonucunun yazılması mı (kitap1'de diyelim 5 kalem satılmış,
kitap2'de diyelim 3 kalem satılmış,
kitap3'de diyelim 7 kalem satılmış toplam 15 kalem mi yazacak
yoksa öne kitap1'deki tüm veriler altına kitap2'deki tüm veriler ) gibi mi
2 - her kitapta sadece bir sayfa mı olacak yoksa bir kaç sayfa mı
3 - bir kaç sayfa olacaksa hepsi mi alınacak yoksa sadece bazıları mı
4 - sayfa adları kitap adlarıyla aynı mı olacak yoksa sayfa adlarının belli bir düzeni yok mu
 
1 - tam olarak kastettiğiniz ne?
diğer kitaplardaki verilerin sırayla ana dosyaya aktarılması mı, verilerin işlenip sadece sonucunun yazılması mı (kitap1'de diyelim 5 kalem satılmış,
kitap2'de diyelim 3 kalem satılmış,
kitap3'de diyelim 7 kalem satılmış toplam 15 kalem mi yazacak
yoksa öne kitap1'deki tüm veriler altına kitap2'deki tüm veriler ) gibi mi
2 - her kitapta sadece bir sayfa mı olacak yoksa bir kaç sayfa mı
3 - bir kaç sayfa olacaksa hepsi mi alınacak yoksa sadece bazıları mı
4 - sayfa adları kitap adlarıyla aynı mı olacak yoksa sayfa adlarının belli bir düzeni yok mu
1. Toplam olarak kalem sayı TOTAL dosyasında yazılmalı;
2. birden fazla sayfa var;
3. SAdece size gönderdiğim sayfadakı veriler alınacak;
4.Veri alınacak sayfa adları hepsinde aynı, "Hesabat" olarak kayıtlı
 
01, 02, ve 03 dosyasındakı kalemlerin toplam sayı TOTAL dosyasındakı yerinde yazılmalı, istediğim bu.
 
eklemiş olduğunuz örnek üzerinden yaptım
çalışmanızdaki kitap, sayfa yada alanın sıralaması farklı ise kendi çalışmanıza uyarlamanız gerekir
Not: 'önce referanslardan Microsoft ActiveX Data Object x.x library eklenmeli
aşağıdaki fonksiyon bir modüle yazılıp butona yada şekle atanacak
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • VBA ile kapalı dsoyadan veri alma_hy.zip
    49.7 KB · Gösterim: 9
eklemiş olduğunuz örnek üzerinden yaptım
çalışmanızdaki kitap, sayfa yada alanın sıralaması farklı ise kendi çalışmanıza uyarlamanız gerekir
Not: 'önce referanslardan Microsoft ActiveX Data Object x.x library eklenmeli
aşağıdaki fonksiyon bir modüle yazılıp butona yada şekle atanacak
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Teşekkür ederim, deneyip cevap vereceğim.
 
not çalışmanızdaki sayfa adları 01,02,03 olduğundan veri alınan sayfaların adlarını öyle kullandım
[01$],[02$],[03$] olarak sayfa ismi sabitse siz Hesabat olarak belirtmiştiniz
[01$],[02$],[03$] yerine hep aynı kodu yazacaksınız [Hesabat$]
 
eklemiş olduğunuz örnek üzerinden yaptım
çalışmanızdaki kitap, sayfa yada alanın sıralaması farklı ise kendi çalışmanıza uyarlamanız gerekir
Not: 'önce referanslardan Microsoft ActiveX Data Object x.x library eklenmeli
aşağıdaki fonksiyon bir modüle yazılıp butona yada şekle atanacak
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Şöyle hata verdi.
 

Ekli dosyalar

  • Screenshot.jpg
    Screenshot.jpg
    166.5 KB · Gösterim: 6
önce referanslardan Microsoft ActiveX Data Object x.x library eklenmeli
aşağıdaki fonksiyon bir modüle yazılıp butona yada şekle atanacak

Microsoft ActiveX Data Object 6.1 library bunu ilave etdim.
 
benim yüklediğim dosya doğru çalışıyor mu?
 
kodu aşağıdaki gibi düzenleyip dener misiniz?
tüm exceller aynı klasörde olmalı
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
dosyaların benim bilgisayarımdaki adresi ile sizin bilgisayardaki adresleri farklı olduğundan hata veriyor
 
sorun çözüldü mü?
düzgün alıyor mu verileri?
 
rica ederim
iyi çalışmalar)
 
Sizin gönderdiğiniz dosya sorunsuz çalışıyor, fakat ben kendim için düzenlediğimde şu sorun çıkıyor:
 

Ekli dosyalar

  • Screenshot.jpg
    Screenshot.jpg
    168.6 KB · Gösterim: 6
dosya isminizde ? işareti ve tanımsız karakterler var dosya isminde bu tür işaretler olmaz diye biliyorum
 
Problem sarı ile işaretlenmiş yerde sanırım
 

Ekli dosyalar

  • Screenshot.jpg
    Screenshot.jpg
    169.4 KB · Gösterim: 8
sarı yerde olur zaten çünkü sorguyu bu satırda çalıştırıyor
sorun çıkaran dosyaları ekleyin inceleyelim belki excel adlarından kaynaklanıyordur belki de excel dosyalarınızın yapısında uygun olmayan bir şeyler vardır
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Geri
Üst