Sayfalardaki verileri alt alta birleştirme

Katılım
26 Şubat 2013
Mesajlar
108
Excel Vers. ve Dili
Türkçe 2010
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
 
Katılım
26 Şubat 2013
Mesajlar
108
Excel Vers. ve Dili
Türkçe 2010
Merhaba eklenti inmiyor baska bir yolu yok mu acaba ?

Formulle yapilamaz mi
 
Katılım
24 Nisan 2005
Mesajlar
3,466
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Aşağıdaki şekilde deneyiniz.


Kod:
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
 
Katılım
26 Şubat 2013
Mesajlar
108
Excel Vers. ve Dili
Türkçe 2010
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
 
Katılım
24 Nisan 2005
Mesajlar
3,466
Excel Vers. ve Dili
Office 2016 EN 64 Bit
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.
 
Katılım
26 Şubat 2013
Mesajlar
108
Excel Vers. ve Dili
Türkçe 2010
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.
 
Üst