Dosya içindeki sayfaların ilk sayfada alt alta eklenmesi

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Aynı dosya içinde kendinden sonraki sayfaların ilk sayfada alt alta birleştirilmesi için ne yapabilirim?
Saygılarımla

 

[Ömer BARAN]

Merhaba aşağıdaki konu saydasında 7 numaralı cevap işinizi görmesi lazım.
http://www.excel.web.tr/f14/sayfalary-tek-sayfada-birle-tirme-t151421.html#post824655
Kod, RAPOR adlı yeni sayfa oluşturup, diğer sayfalardaki verileri bu sayfada topluyor.

 

[Tevfik_Kursun]

Sayın Ömer Baran Hocam,
Soruyu sorduğum saatten beri belirttiğiniz makroyu adapte etmeye çalışıyorum. İlginize teşekkür ederim.
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Problemi Excel'e çözdürdüm.

Sub UcUcaSyfEkle()
    Columns("A:BY").Select
    Selection.ColumnWidth = 1.86
    Range("A:A,S:S,AI:AI").Select
    Selection.ColumnWidth = 3.57
    
    Sheets("Sayfa1").Select
    Range("A1:AI100").Copy
    Sheets("A-Ktp").Select
    Range("A1").Select
    ActiveSheet.Paste
    
    Sheets("Sayfa2").Select
    Range("A1:AI100").Copy
    Sheets("A-Ktp").Select
    Range("A101").Select
    ActiveSheet.Paste
End Sub

Hepinize teşekkür ederim.
Saygılarımla

 

[Erdem Akdemir]

Tevfik bey statik bir çözüm olmuş, dinamik bir tabloda sorun olur.

 

[Tevfik_Kursun]

Merhaba Sayın Kuvari,
Dosyadaki sayfaların adlarını veren makro vardı. Yanlış hatırlamıyorsam ilk üç sayfadan sonrasını veriyordu onu arıyorum. Bulduğumda ilk sayfaya isimleri koyup, o sayfada bilgiler hangi satıra kadar uzuyor onu öğrenecek bağlı olarak ta makroyu akıllandıracağım. Sanırım farkettiniz, sayfalar tam sayfa, ya 2 ya üç yada 4. Bulduğum makrolarda sayfalar birbirine eklenirken birleşik olan hücreler çakışma yapıyor. O nedenle bu yola gittim.
İlginize teşekkür ederim.
Saygılarımla

 

[Ömer BARAN]

Tekrar merhaba.
Örnek dosyanız olsaydı keşke, bahsettiğim kod'u uyarlayabilirdik belki o zaman.

Aşağıdaki kod ile sayfa adlarını listleyebilirsiniz.

Sub listele()
Application.ScreenUpdating = False
For a = 1 To Sheets.Count
    Cells(a, "A") = Sheets(a).Name
Next
End Sub

 

[Tevfik_Kursun]

Hemen deneyeceğim üstat
Saygılar

 

[Tevfik_Kursun]

Şahane çalışıyor Ömer Baran Hocam,
Teşekkürler
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Kuvari Hocam,
Örnek dosyada UcUcaSyfEkle adlı makroda desteğinize ihtiyacım var. Göz atabilirseniz makbule geçer. Farklı bir öneride de bulunabilirsiniz. Zahmetleriniz için peşinen teşekkür ederim.
Saygılarımla

 

[Ömer BARAN]

Merhaba.
Mevcut kod'u aşağıdaki şekilde değiştirip dener isiniz?

Sub UcUcaSyfEkle()
    Sheets("A-Ktp").Select
    Sheets("A-Ktp").Activate
    Columns("A:BY").Select
    Selection.ColumnWidth = 1.86
    Range("A:A,S:S,AI:AI").Select
    Selection.ColumnWidth = 3.57
    
    For i = 1 To 30
        If Range("Bilgi!A" & 2 + i) = "" Then Exit Sub
            Sheets(Range("Bilgi!A" & 2 + i).Text).Select
            Sheets(Range("Bilgi!A" & 2 + i).Text).Activate
            [COLOR="Red"]Sheets(Range("Bilgi!A" & 2 + i).Text).Activate[/COLOR]
            Range(Range("Bilgi!H" & 2 + i).Text).Select
            Selection.Copy
            Sheets(Range("Bilgi!A2").Text).Select
            Range(Range("Bilgi!G" & 2 + i).Text).Select
        ActiveSheet.Paste
    Next
End Sub

 

[Tevfik_Kursun]

Harikasınız Ömer Hocam,
Teşekkürler
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Ömer Hocam,
Çok teşekkür ederim. Dikkatimden kaçan yeri düzelttim. Şahane çalışıyor.
Hepiniz iyi ki varsınız.
Saygılarımla

 

[Murat OSMA]

#11. mesajda neler olmuş öyle? ​

 

[Ömer BARAN]

#11. mesajda neler olmuş öyle? ​

Merhaba Murat Bey iyisinizdir umarım.
Sayın Kurşun, alt alta kopyalanacak sayfa ve alan adlarının sayfadan alınarak işlem yapılmasını sağlayan bir yapı düşünmüş ve kodda takılmış.

Ben de, F8 ile adımlayarak küçük bir değişiklik yapılırak istediğinin olacağını belirtmek üzere düzeltme yapmıştım.
Not: Bu arada bir satır da mükerrer olarak yer almış, yeni fark ettim ve kırmızı olarak işaretledim.

Sizin gibi profesyonellerin, kendi geçmişlerini hatırlamasına vesile olduk sanırım.
Sağlıcakla kalın.

 

[Tevfik_Kursun]

Merhaba Murat Hocam,
Hayırdır, 11. mesajda neyi beğenmediniz? Neyse birşey yokmuş.
Hepiniz sağlıcakla kalın
Saygılar