Sayfa birleştirme yardım

[mesutaydin]

Merhaba, şirkette raporlar için aylık data çekiyorum.13 sheet veri olan bir excel dosyası oluşuyor. Bugüne kadar manuel birleştirme yapıyordum fakat bu çok vakit alıyor.Tek sayfada nasıl birleştirme yapabilirim.Desteğinizi rica ediyorum

 

[Saban Sertkaya]

Merhabalar,

Foruma hoşgeldiniz.

Bu tip sorular için, küçük, içinde gerçek bilgiler içermeyen örnek bir dosya oluşturun.
Ve hangi sayfa veya sayfaların, nereye, nasıl taşınacağını detaylı bir şekilde anlatınız.

Böylece yanıt almanız daha KOLAY ve cevaplar daha NET olacaktır.

 

[mesutaydin]

Teşekkürler.
Program üzerinden data çekiyorum. Data boyutu çok fazla içerik olduğundan 1den çok sheet olarak kayıt yapabiliyor.Bende dosyada işlem yapmak için sheetlerdeki verileri tek tek kopyala yapıştır ile 1 excel sheet e toplamaya çalışıyorum.Bu çok uzun zaman alıyor makro ile birden çok sheet i tek sheet te toplamam mümkün mü?

 

[Saban Sertkaya]

Excel'de inanamayacağınız kadar çok şey mümkün. Sadece örnek bir dosya ekleyin. Yardımcı olmaya çalışayım. Ki benim bilgim yetmese bile birileri mutlaka yardımcı olmaya çalışacaktır.

Not : Altın üye olunmayınca siteye dosya yüklenememektedir. Bu yüzden alternatif bir upload sitesine dosyanızı yükleyip buraya link vermeniz gerekmektedir. Alternatif upload sitesi olarak, www.dosya.tc veya benzeri bir siteyi kullanabilirsiniz.

 

[mesutaydin]

iyi ama 13 sheet olan dosya 200 küsür mb oluyor genellikle. sanırım destek içinde Altın üye olmamız lazım..

 

[Saban Sertkaya]

Anlatamadım sanırım.

13 sayfadaki bütün veriyi koyun demiyorum. Her sayfada 5-10 satırlık veriniz olsun. Asıl bilgileri içermeyen, ama satır ve sütunları aynı şekilde olan örnek küçük bir dosya ekleyin diyorum. Bırakın MB'ı bir kaç KB'lık bir dosya olacaktır.

 

[mesutaydin]

desteğiniz için teşekküler.En kısa zamanda üye olup size dosyayı gönderrim.

 

[Saban Sertkaya]

Ben olayı tam anlatamadım galiba. Örnek dosyanızı, www.dosya.tc 'ye upload edip, o sitenin size vereceği linki burada paylaşmanız yeterli olacaktır.

 

[Asri]

Aşağıdaki kodu VBA da PERSONAL.XLSB modülüne ekleyin.
Birleştireceğiniz dosya xls ise aşağıdaki 1000000 u 65000 yapınız.
If sonsatir > 1000000 Then

Makro AA sütununa kadar taşıma yapmaktadır. Arttırmak isterseniz AA yı arttırısınız.
Range("A1:AA" & sonsatir).Select

Son olarak menu özelleştirmeden makro sekmesi ekleyin ve bu makroyu sekmeye ekleyin.
Makronuz dosya bağımsız olacaktır.

Bundan soraki işlem dosyanızı açın makronuzu çalıştırın.
en alttaki tırnakları kaldırırsanız, işlem bittiğinde dosyayı kaydetip kapatacaktr.
Bu şekilde açık diğer dosyaya geçmiş olursunuz.

'ActiveWorkbook.Save
'ActiveWorkbook.Close

Sub Sayfa_Birlestir()
   Application.DisplayAlerts = False
  For y = Sheets.Count To 2 Step -1
    
    Sheets(y).Select
    sonsatir = ActiveSheet.UsedRange.Rows.Count + 1
     
     If sonsatir > 1000000 Then
      GoTo atla
    End If
    
    Range("A1:AA" & sonsatir).Select
    Selection.Cut
    Sheets(y - 1).Select
    Range("A1").Select
    
    sonsatir = ActiveSheet.UsedRange.Rows.Count + 1

    If sonsatir > 1000000 Then
      GoTo atla
    End If
    Range("A" & sonsatir).Select
    ActiveSheet.Paste
    Range("A" & sonsatir).Select
    Sheets(y).Delete
atla:
  Next y
  Application.DisplayAlerts = False
  'ActiveWorkbook.Save
  'ActiveWorkbook.Close
End Sub

 

[Asri]

Ayrıca sayfa birleştirme ile ilgili aşağıdaki linklere bakabilir siniz.

http://asriakdeniz.com/tum-excel-sayfalarini-bir-sayfada-toplama-belirli-bir-sayfa-icin/

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

 

[mesutaydin]

linkleri indirdim çalıştırdığımda hata alıyorum
"run-time error '9'
Subscript out of range hatada yazan

 

[Asri]

linkleri indirdim çalıştırdığımda hata alıyorum
"run-time error '9'
Subscript out of range hatada yazan

Hata verdiğinde DEBUG deyiniz.
Sarı işaretli olan satırları yad aekran görüntüsü paylaşabilir mi siniz?

.XLS dosyalarını birleştiriyor iseniz ve 65000 satırı geçiyor ise hata vermiş olabilir.

Her iki dosyada .xls ve .xlsx olması durumu için güncellendi. Tekrar indirip dener mi siniz?

Linklerin haricinde verdiğim kodu denediniz mi?

 

[mesutaydin]

hocam bu örnek olsun diye yükledim ama
http://s5.dosya.tc/server/j42cme/2204.xls.html
örnekte A-B sütünü var normalde BQ ya kadar giden 13 sheetlik bir excel.
debug dediğimde hata aldığım kısım sarı olan

Range("A1:IV" & ilksonsatir).Select

 

[Asri]

hocam bu örnek olsun diye yükledim ama
http://s5.dosya.tc/server/j42cme/2204.xls.html
örnekte A-B sütünü var normalde BQ ya kadar giden 13 sheetlik bir excel.
debug dediğimde hata aldığım kısım sarı olan

Range("A1:IV" & ilksonsatir).Select

DOsyalarda güncelleme yapıp bilgi veriyor olacağım.

 

[Asri]

Linklerdeki dosyaları güncelledim.

XLS den XLSX e tüm satırları kopyalama yaptığınızda hata alınıyor.
Sorun yaşamamak için kaynak dosyanızı .xlsx olarak kaydetmeniz gerekmektedir.

 

[Saban Sertkaya]

Dosyanızı .xlsx olarak kaydettikten sonra, alttaki kodu da deneyebilirsiniz.

Sub Voltran_Voltran_Voltran()
a = Worksheets.Count
Worksheets.Add(, Sheets(a)).Name = "Voltran"
For b = 1 To a
Sheets(b).Range("A1:IV" & Sheets(b).UsedRange.Rows.Count).Copy Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1)
Next b
MsgBox "Güç, Sizinle Olsun... :)"
End Sub

 

[mesutaydin]

Linklerdeki dosyaları güncelledim.

XLS den XLSX e tüm satırları kopyalama yaptığınızda hata alınıyor.
Sorun yaşamamak için kaynak dosyanızı .xlsx olarak kaydetmeniz gerekmektedir.

indirdim başlattım yarım saattir bekliyor sonuçlanmadı. normal midir bu süre?

 

[mesutaydin]

Dosyanızı .xlsx olarak kaydettikten sonra, alttaki kodu da deneyebilirsiniz.

Sub Voltran_Voltran_Voltran()
a = Worksheets.Count
Worksheets.Add(, Sheets(a)).Name = "Voltran"
For b = 1 To a
Sheets(b).Range("A1:IV" & Sheets(b).UsedRange.Rows.Count).Copy Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1)
Next b
MsgBox "Güç, Sizinle Olsun... :)"
End Sub

işte budur güç bende artık saollasın hocam ellerine sağlık

 

[Saban Sertkaya]

Rica ederim, kolay gelsin.