AYNI DOSYADA, AYNI FORMATTAKİ SAYFALARI BİRLEŞTİRMEK

[emre67z]

Merhaba,

Aynı dosya içerisindeki verileri bütün formatları ve biçimleri ile tek bir sayfada toplamak istiyorum. Boşlukları dahil. Tüm sayfaların formatı aynı.
örnek dosyada belirtildiği üzere.

her sayfada max 200 satır vardır ve sutün olarak AJ sütünuna kadar baz alabilirsiniz örnek dosyada daha az var.
başlık altından başlayarak farklı bir dosyada alt alta tek listede toplamak istiyorum süreci. Yardımcı olabilir misiniz.

Örnek dosyada birleştir sayfasına birleştirmeleri yapabilirsiniz. Makro veya farklı bir yöntem farketmez.

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı kullanabilirsiniz.

https://www.excelgurusu.com/dosya-ve-sayfalarinin-tek-sayfada-birlestirilmesi/

.

 

[emre67z]

Sub BİRLEŞTİR2()
'Yeni bir sayfa oluşturuyoruz
Dim ws As Worksheet
Dim ws_result As Worksheet
Set ws_result = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws_result.Name = "BİRLEŞTİRME"

'Son satırı bulmak için değişken tanımlıyoruz
Dim lastRow As Long

'Tüm sayfaları dolaşıyoruz
For Each ws In ThisWorkbook.Sheets
'Sonuç sayfasını dolaşmıyoruz
If ws.Name <> "BİRLEŞTİRME" Then
'Son satırı buluyoruz
lastRow = ws_result.Cells(ws_result.Rows.Count, "A").End(xlUp).Row
'Sayfa adını yazıyoruz
ws_result.Cells(lastRow + 1, 1).Value = ws.Name & ":"
'Yazıyı kalın yapıyoruz
ws_result.Cells(lastRow + 1, 1).Font.Bold = True
'Sayfanın verilerini kopyalıyoruz
ws.Range("A2:aj" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).Copy _
Destination:=ws_result.Range("A" & ws_result.Cells(ws_result.Rows.Count, "A").End(xlUp).Row + 1)
End If
Next ws
End Sub

ilgili kodu kullanarak istediğimi elde ettim, bahsettiğiniz çalışmadan faydanamadım açıkcası ama sistede farklı uygulamaları gördüm. yönlendirdiğiniz için teşekkürler.



sizlerden farklı bir konuda yardım isteyecektim açıkçası.
Örnek dosyasın içersin de sayfalarda bulunan veriyi eğiştiğimizce "BİRLEŞTİR" sayfasında da değişmesini istiyorum. sayfa birleştirme işlemi sonrası yapılan biçim düzenlemelerin de aktarımı mevcut mudur?

sicil sütunu ekledim. sicil sütunundan bu değişiklik algınanıp BİRLEŞTİR sayfasına da da işlenebilir mi.
dolgu rengi ve yazı tipi rengi gibi değişikler