(31/10/2019, 14:11)berduş yazdı: tam olarak ne istediğinizi  daha ayrıntılı dosya adı/sayfaadı/gerekiyorsa personel adı ile birlikte
nereden
nereye
ne
nasıl aktarılacak
açıklar mısınız?

Hocam merhaba mesajımda ekran görüntüsü ile anlatmaya çalıştım. Müsait zamanınızda bakabilirseniz çok memnun olurum.

anladığım kadarıyla yapmaya çalıştım
1 -  Veri Tabanı.xlsx dosyasını hem  .xlsm'ye ve .xlsye çevirdim
2 - veri kopyala butonuna bastığınızda bulunduğu klasördeki tüm Excel dosyalarını içeri aktarır. o nedenle verisini kopyalamayacağınız  excelleri o klasöre koymayın
dilerim işinize yarar
iyi çalışmalar

(01/11/2019, 21:08)berduş yazdı: anladığım kadarıyla yapmaya çalıştım
1 -  Veri Tabanı.xlsx dosyasını hem  .xlsm'ye ve .xlsye çevirdim
2 - veri kopyala butonuna bastığınızda bulunduğu klasördeki tüm Excel dosyalarını içeri aktarır. o nedenle verisini kopyalamayacağınız  excelleri o klasöre koymayın
dilerim işinize yarar
iyi çalışmalar

Zaman ayırıp ilgilendiğiniz için teşekkür ederim.

Merhaba Veri aktarımını sorunsuz bir şekilde yapıyor. Ama aynı anda 3-5-10 Excel dosyasını aktarmak istediğimde sadece ilk satıra aktarım yapıyor alt satıra ekleye ekleye gitmiyor.

sizde neden öyle bir soruna sebep oldu bilmiyorum, kendi denemelerimde 5-6 Excel dosyasını sorunsuz ekledi

SonSatir = WbHedef.Cells(WbHedef.Rows.Count, "B").End(xlUp).Offset(1).Row

        If SonSatir = 3 Then x = 4 Else x = SonSatir

kodları B sütununu kontrol edip yeni verileri oraya ekliyor
eğer Excel dosyalarınızda "BİLGİSAYAR NO" alanı girilmemişse ve bu nedenle "B" sutunu boş ise sorun bundan kaynaklanıyor olabilir

Dediğiniz yöntemi deneyeceğim. Yaşanan sorun sizin belirtiğiniz sebepten dolayı "B" yerine "C" yazdım sorunsuz bir şekilde alt alta aktarım yaptı. Her aktarımdan sonra Excel açılıyor bunun açılmasını önleyebilirmiyiz. Direk açılmadan veri alma imkanı sanırım yok