Birden çok excel sayfa ve dosyayı birleştirme( Farklı )

[heyaa]

Öncelikle Merhabalar,

Elimde bulunan 20 Farklı Excel dosyası mevcut. Her bir excel dosyasının içinde de 14 sayfa mevcut.

3 gündür internette araştırmama rağmen benim istediğimi tam şekilde yapacak bir Makro bulamadım.

İstediğim ;

Bu dosyaları ve sayfaları tek bir excel dosyası içinde toplamak. Fakat internette bulduğum makrolarda sorun şu , sadece Sheet1'in A1 hücresini çekiyor ve diğer sayfalara geçtiğinde A2 hücresinden başlıyor. ben diğer sayfalardaki A1 hücresinide çekmek istiyorum.

Teşekkürler.

 

[asi_kral]

Merhaba
Örnek dosyalarınızı ekler misiniz ?
İçerisine nasıl istediğiniz bilgilerini de yazarsanız daha net yardımlar alabilirsiniz ?

 

[heyaa]

Merhaba
Örnek dosyalarınızı ekler misiniz ?
İçerisine nasıl istediğiniz bilgilerini de yazarsanız daha net yardımlar alabilirsiniz ?

Dosyaları yükledim.

İstediğim klasörümde excel dosyalarım mevcut. Bu dosyaların içindeki Sayfalardaki tüm verileri her sayfadaki A1,B1,C1,... verilerde dahil yeni oluşturmuş olduğum bir excel dosyasına tek sayfa olarak alt alta çekmek.

Teşekkürler.


http://dosya.co/gw3tzm2ojalo/örnek_1.xls.html
http://dosya.co/hbogcxn2z221/örnek_2.xls.html

 

[asi_kral]

Dosyalarınız .exe şeklinde iniyor. Lütfen normal excel formatında ekleyin.

 

[heyaa]

Dosyalarınız .exe şeklinde iniyor. Lütfen normal excel formatında ekleyin.

Üstad herhangi bir sorun yok linklerde .xls olarak inmekte dosyalar.

Linke tıkladığınızda mouse tekerleği ile en aşağı inin orada "Dosya İndir" butonuna tıklarsanız iner. Diğer butonlar Reklam olduğu için .exe şeklinde iniyor.

 

[heyaa]

Yok mu hiç çözümü üstadlar ?

 

[asi_kral]

Üstad herhangi bir sorun yok linklerde .xls olarak inmekte dosyalar.

Linke tıkladığınızda mouse tekerleği ile en aşağı inin orada "Dosya İndir" butonuna tıklarsanız iner. Diğer butonlar Reklam olduğu için .exe şeklinde iniyor.

Hangi dosyanızda birleşecek bu dosyalar. Ayrıca bir kere birleşti sonra bir daha kodu çalıştırdığınızda bu bilgiler silinip yeniden mi eklenecek.

 

[heyaa]

Hocam silinmesine gerek yok yeni bir Excel dosyasında tek sayfa olarak alt alta a1 dahil birleşecek .

 

[Asri]

Aşağıdaki kodu kişisel makro bölümüne kaydedin.
Çalıştırdığınızda tüm sayfaları 65000 satıra kadar tek sayfaya birleştirecek.
65000 satırı geçer ise yeni bir sayfada toplamaya devam edecek.

İlk sayfa haric diğer safalardaki ilk satırları almayacak. Almasını istiyorsanız
Range("A2:AA" & ilksonsatir).Select buradaki A2 yi A1 yapınız.

20 Excel dosyasını tek sayfada birleştimek ayrı bir konu.

Sub Sayfa_Birlestir_XLS()
   Application.DisplayAlerts = False
  For y = Sheets.Count To 2 Step -1
    
    Sheets(y).Select
    ilksonsatir = Range("a1").End(xlDown).Row + 1
        
     If ilksonsatir > 65000 Then
      GoTo atla
    End If
    
    Range("A2:AA" & ilksonsatir).Select
    Selection.Cut
    Sheets(y - 1).Select
    Range("A1").Select
    
    sonsatir = Range("a1").End(xlDown).Row + 1

    If ilksonsatir + sonsatir > 65000 Then
      GoTo atla
    End If
    Range("A" & sonsatir).Select
    ActiveSheet.Paste
    Range("A" & sonsatir).Select
    Sheets(y).Delete
atla:
  Next y
  Application.DisplayAlerts = False
  
End Sub

 

[heyaa]

Öncelikle teşekkür ederim cevap için ben bu şekilde çeken bu forumda makro bulmuştum ama bana tek sayfada olması gerekiyor alt alta onun için bu kodlarda oynamam gereken yer varmıdır?

 

[Asri]

Öncelikle teşekkür ederim cevap için ben bu şekilde çeken bu forumda makro bulmuştum ama bana tek sayfada olması gerekiyor alt alta onun için bu kodlarda oynamam gereken yer varmıdır?

Aşağıdaki dosyayı indiriniz.
Program belirli bir klasör ve altındaki klasörlerdeki .xls ve .xlsx dosyalarını açıp içindeki sayfaları yeni bir dosyada tek sayfada birleştirir.

http://asriakdeniz.com/tum-excel-dosyalarini-tek-sayfaya-kopyalama

 

[heyaa]

Yardımlarınız için teşekkürler.