Sayfalardaki verileri alt alta birleştirme

[KRONX]

Merhaba,
Forumda sayfa birleştirme kodlarına baktım fakat kendi dosyama uyarlayamadım .Ekte yüklü dosya en az sayfa içeren dosyam bunun gibi daha fazla dosyam var .Formatım aynı kalacak sekilde tüm sayfalardaki verilerin en son sayfada "bütün katlar" adında alt alta listelenmesini istemekteyim.Şimdiden teşekürler



http://s9.dosya.tc/server2/2y3n4a/Mahal_Listesi_A_Blok_Altlik_01.03.17.xlsx.html

 

[Asri]

Aşağıdaki eklentiyi inceleyiniz.

Excel Mouse sağ tuşda çıkar.

http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219/sayfa3.html

* Sayfa birleştirme, ilk bu kadar sayfayı birleştirme, birleşen sayfadaki en fazla satır sayısı, her sayfada birleştirmeye dahil edilmeyecek ilk satır sayısı

 

[KRONX]

Merhaba eklenti inmiyor baska bir yolu yok mu acaba ?

Formulle yapilamaz mi

 

[Asri]

Aşağıdaki şekilde deneyiniz.

Sub Sayfalari_Birlestir()
 sayfabirlestirdahiletme=1 ' 1. sayfayı dahil etme
 sayfabirlestirsatirsayisi=100000  'Birleşecek sayfalardaki en fazla satır sayısı 
sayfabirlestirsatirdahiletme=7 ' Her sayfada ilk 7 satırı birleşime dahil etme

  Application.DisplayAlerts = False
  For y = Sheets.Count To 2 + Val(sayfabirlestirdahiletme) Step -1
    
    Sheets(y).Select
    sonsatir1 = ActiveSheet.UsedRange.Rows.Count + 1
     
     If sonsatir1 > Val(sayfabirlestirsatirsayisi) Then
      a = a
      GoTo atla
    End If
    
    Range("A" & sayfabirlestirsatirdahiletme & ":XFD" & sonsatir1).Select
    Selection.Cut
    Sheets(y - 1).Select
    Range("A1").Select
    
    sonsatir2 = ActiveSheet.UsedRange.Rows.Count + 1

    If sonsatir1 + sonsatir2 > Val(sayfabirlestirsatirsayisi) Then
      a = a
      GoTo atla
    End If
    Range("A" & sonsatir2).Select
    ActiveSheet.Paste
    Range("A" & sonsatir2).Select
    Sheets(y).Delete
atla:
  Next y
  Application.DisplayAlerts = False
End Sub

 

[Asri]

Merhaba eklenti inmiyor baska bir yolu yok mu acaba ?

Formulle yapilamaz mi

Eklenti inmiyor da hangi aşama da sorun yaşıyorsunuz?

 

[KRONX]

Eklenti inmiyor da hangi aşama da sorun yaşıyorsunuz?

Eklenti sayfasi aciliyor 4 sn bekleme sureai geciyor sonra sayfa ulasilamiyor uyarisi veriyor


Kodu denedim son satfaya yapistirdim fakat hata veriyo sayfa ya veriler de gelmedi nerde hata yapiyorum

 

[Asri]

Eklenti sayfasi aciliyor 4 sn bekleme sureai geciyor sonra sayfa ulasilamiyor uyarisi veriyor


Kodu denedim son satfaya yapistirdim fakat hata veriyo sayfa ya veriler de gelmedi nerde hata yapiyorum

Kodu modul1 e yapıştıracaksınız.
Sayfanın kod bölümüne değil.

Eklenti indirmeyi denedim sorun yok.
Farklı bir bilgisayar yada tarayıcıdan deneyiniz.

 

[KRONX]

Modul 1 neresidir?

Kusura bakmayin iyi bilmiyorum exceli

Kodu modul1 e yapıştıracaksınız.
Sayfanın kod bölümüne değil.

Eklenti indirmeyi denedim sorun yok.
Farklı bir bilgisayar yada tarayıcıdan deneyiniz.

 

[Asri]

Modul 1 neresidir?

Kusura bakmayin iyi bilmiyorum exceli

Buradaki videoyu takip ederek modul ekleme, makro kopyalama ve butona atama yapabilirsiniz.

https://www.youtube.com/watch?v=gEB5VXqDxUw