M

Çözüldü 100er 100er ayırıp dosya olusturma

  • Konuyu başlatan Konuyu başlatan mdtmdt
  • Başlangıç tarihi Başlangıç tarihi

mdtmdt

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba,

Ekteki örnek dosyamızdaki gibi uzunca verinin olduğu bir dosyamız var.

Amacımız şu. 100'er satır alınarak deneme-1.xlsx deneme-2.xlsx şeklinde parçalayarak dosya olusturtmak istiyoruz.
Her alınan 100 satırla birlikte en baştaki başlıkta alınacak.

Üstadlarımızdan yardım bekliyorum...
 

Ekli dosyalar

Ben verilerin silineceği öngörüsüyle hazırladığım kodları sizle paylaşayım.
  1. Mutlaka test dosyanızda deneyin.
  2. Test dosyanızın Visual Basic penceresine boş bir modül ekleyin ve aşağıdaki kodları yapıştırın.
  3. Kodların içinde bulunan ADO_Kodlama modülüne ya adım adım F8 tuşu ile ya da direk F5 tuşu ile çalıştırın.
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(45 satır)
Eğer ana dosyadaki verilerde muhafaza edilecekse, alternatif yöntemlerle bir şeyler düşünülebilir.
Ben işlemi en kolay ADO ile yaptım, farklı yöntemlerle çözümleri ben de merak etmekteyim.
 
@mdtmdt
Alternatif olsun.

Başlık dahil 100 satır diye düşündüm.
Başlık hariç 100 satır isteniliyorsa; koddaki 98 ve 99 sayılarını 1 artırırsınız.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(20 satır)
 
@Ömer BARAN bey, peki ters mantık düşünürsek

bir klasör içersindeki excel dosyalarını birleştirmek için nasıl bir yol izlemeliyiz?

parçalanmış dosyaları birleştireceğimizi düşünün. Tek bir tabloada 1 başlık olacak gibi

Yukardaki kodlarınız çok anlaşılır ve sade bu işlemde buna benzer kolay yyapılabilir mi diye düşündüm
 
Üst