(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[
attachment=30805]
(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