Çözüldü Kapalı excelden veri kopyalama

[cscakmakci]

İyi günler. Benim yapmak istediğim şey;
İsimleri 1den 12 ye kadar 12 adet ayrı Excel dosyam var. Bu dosyalar kapalı iken
1 numaralı Excel dosyasının A1:AC1000 arasındaki verilerini açık olan excelin A1:AC1000 arasına,
2 numaralı Excel dosyasının A1:AC1000 arasındaki verilerini açık olan excelin A1001:AC2000 arasına,
3 numaralı Excel dosyasının A1:AC1000 arasındaki verilerini açık olan excelin A2001:AC3000 arasına,
4 numaralı Excel dosyasının A1:AC1000 arasındaki verilerini açık olan excelin A3001:AC4000 arasına,
5 numaralı Excel dosyasının A1:AC1000 arasındaki verilerini açık olan excelin A4001:AC5000 arasına,
6 numaralı Excel dosyasının A1:AC1000 arasındaki verilerini açık olan excelin A5001:AC6000 arasına,
7 numaralı Excel dosyasının A1:AC1000 arasındaki verilerini açık olan excelin A6001:AC7000 arasına,
8 numaralı Excel dosyasının A1:AC1000 arasındaki verilerini açık olan excelin A7001:AC8000 arasına,
9 numaralı Excel dosyasının A1:AC1000 arasındaki verilerini açık olan excelin A8001:AC9000 arasına,
10 numaralı Excel dosyasının A1:AC1000 arasındaki verilerini açık olan excelin A9001:AC10000 arasına,
11 numaralı Excel dosyasının A1:AC1000 arasındaki verilerini açık olan excelin A10001:AC11000 arasına,
12 numaralı Excel dosyasının A1:AC1000 arasındaki verilerini açık olan excelin A11001:AC12000 arasına yapıştırmak istiyorum. Yardımlarınız ve emekleriniz için teşekkürler.

 

[Patron]

Dosyalarınızın hepsi aynı klasörde olmalı.
dosya isimleri 1.xlsx,2.xlsx..... şeklinde olmalı,
verilerin hepsi Sayfa1 de yer almalı.
Dosya uzantınız xls ise kodda xlsx yazan yeri xls olarak değiştirin.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[DataMaestro]

Sayın cscakmakci,

Sayın Patron'nun affına sığınarak, ben de bir alternatif çalışma hazırlamıştım.
Sadece anlatımınız üzerine bir örnek yapmaya çalıştım.
Bu tür çalışmalarda örnek çalışmalarınızı paylaşırsanız, daha hızlı, daha hedefe yönelik ve spesifik yardım alırsınız

Çalışmaların tamamı bir klasör içerisinde bulunmalıdır.
Veriler ANA DOSYA isimli çalışma kitabının Sayfa1 de listelenmektedir.
Kod çalıştırmak için ANA SAFYA isimli sayfadaki Veri Güncelle butonuna basınca istediğiniz senaryolar gerçekleşecektir.
Umarım istediğiniz gibi olmuştur.

Saygılarımla.

 

[cscakmakci]

Sayın cscakmakci,

Sayın Patron'nun affına sığınarak, ben de bir alternatif çalışma hazırlamıştım.
Sadece anlatımınız üzerine bir örnek yapmaya çalıştım.
Bu tür çalışmalarda örnek çalışmalarınızı paylaşırsanız, daha hızlı, daha hedefe yönelik ve spesifik yardım alırsınız

Çalışmaların tamamı bir klasör içerisinde bulunmalıdır.
Veriler ANA DOSYA isimli çalışma kitabının Sayfa1 de listelenmektedir.
Kod çalıştırmak için ANA SAFYA isimli sayfadaki Veri Güncelle butonuna basınca istediğiniz senaryolar gerçekleşecektir.
Umarım istediğiniz gibi olmuştur.

Saygılarımla.

Sayın DataMaestro çok teşekkür ederim öncelikle. Yaptığınız uygulama gönderdiğiniz eklerle çalıştı. Ben kendi eklerimi koydum çalışmadı. Sebebi de galiba excel sayfalarımın ismini değiştirince (1, 2, 3 ...) excel içindeki sayfa ismide 1, 2, 3... şeklinde değişiyor. Saygılar.

 

[cscakmakci]

Sayın DataMaestro sorun sanırım benim indirmiş olduğum excel sayfalarında. KAP sayfasından bilanço indiriyorum. İndirdiğim excel sayfaları Web dosyası olarak görünüyor galiba. Excel çalışma kitabı olarak kaydedince çalıştı çünkü. Yazdığınız kod içerisinde düzeltilebilir mi? Teşekkürler.

 

[DataMaestro]

Sayın DataMaestro sorun sanırım benim indirmiş olduğum excel sayfalarında. KAP sayfasından bilanço indiriyorum. İndirdiğim excel sayfaları Web dosyası olarak görünüyor galiba. Excel çalışma kitabı olarak kaydedince çalıştı çünkü. Yazdığınız kod içerisinde düzeltilebilir mi? Teşekkürler.

Elbette değiştirebilirsiniz.
Önce oluşturduğunuz dosyaların uzantısına bakınız.
Modül1 içerisindeki kod bloğundan aşağıdaki satırı bulmalısınız.
DosyaAdi = i & ".xlsx" ' Dosya adı formatı (1.xlsx, 2.xlsx, ... 12.xlsx)
Sizin oluşturduğun dosya uzantısını KIRMIZI renkli 2 çift tırnak arasında bulunan ".xlsx" şeklindeki uzantı ile değiştirmelisiniz.

Kolay gelsin,
Saygılarımla.

 

[cscakmakci]

Elbette değiştirebilirsiniz.
Önce oluşturduğunuz dosyaların uzantısına bakınız.
Modül1 içerisindeki kod bloğundan aşağıdaki satırı bulmalısınız.
DosyaAdi = i & ".xlsx" ' Dosya adı formatı (1.xlsx, 2.xlsx, ... 12.xlsx)
Sizin oluşturduğun dosya uzantısını KIRMIZI renkli 2 çift tırnak arasında bulunan ".xlsx" şeklindeki uzantı ile değiştirmelisiniz.

Kolay gelsin,
Saygılarımla.

Yardımlarınız için çok çok çok teşekkür ederim. Sorun çözüldü. Sorunsuz çalışıyor.