sayfaları tek sayfada birleştirme

[celalce]

arkadaşlar ben, 2013 excel kullanıyorum. benim bir ricam olacak, 15 tane sayfanın bulunduğu bir excelde her sayfada 3 er 5 şer satırlık farklı bilgiler bulunuyor... ben bu satırları en kısayoldan satırlar alt alta gelecek şekilde tek sayfa yapmak istiyorum... biri yardımcı olursa sevinirim...

 

[hamit]

Alt alta gelecek satırlarda benzersiz kayıt var mı?
Örneğin tc kimlik ad soyad sütün başlıklarında tc kimlik benzersiz kayıttır.

 

[celalce]

evet hocam, örneğin ; sayfa1'de sıra no, adı, soyadı, tc nosu, yılı, süresi...gibi
başlıklı satır altında bilgiler ve sayfa2'de yine sıra no, adı, soyadı... gibi aynı başlıklı fakat farklı kişilere ait bilgiler var... bu excel'i indirdikten sonra hepsini sırasıyla sayfa1, sayfa2, sayfa3... bulunan bilgilerin makro veya varsa formülle en kısa bir şekilde yeni bir sayfada alt alta sırasıyla kopyalanmasını istiyorumm. ilginize teşekkürler...

 

[Orion1]

Örnek dosyanız için link veriniz.

 

[celalce]

http://s3.dosya.tc/server5/gsys31/deneme_izin_dosyasi_.xlsx.html

 

[celalce]

hocam, kısa öz bir deneme hazırladım... normalde 15'e yakın sayfadan oluşuyor.. bu deneme sadece 5 sayfa ve 3 sayfasını örnek yazdım... benim isteğim; örneğin bu üç sayfanın başlığı aynı kalsın geri kalan bilgilerde bir formülle veya makro ile yeni bir sayfada 1.sayfadan başlayarak sıralı olarak alt alta kopyalansın istiyorum... tekrardan teşekkürler...


link ;
http://s3.dosya.tc/server5/gsys31/deneme_izin_dosyasi_.xlsx.html

 

[Ömer BARAN]

Aşağıdaki kod'u kullanabilirsiniz.
Kod'u VBA ekranında bir Modul'e yapıştırın ve çalıştırın.
(VBA ekranını açtığınızda sol tarafta Module1 yoksa sol taraftaki alanda fareye sağ tıklayın ve Insert->Module'yi seçerek yeni bir Module oluşturabilirsiniz.)

Kodlar Sayın Korhan AYHAN tarafından
http://www.excel.web.tr/f48/aly-ma-sayfalaryny-birle-tirme-t88123.html
konusuna verilen 2 numaralı cevaptan küçük bir değişiklik yapılarak alınmıştır.
Kod çalıştırıldığında RAPOR adlı yeni bir sayfa oluşur ve diğer sayfalardaki veriler bu sayfaya aktarılır.

Option Explicit
Sub SAYFALARI_BİRLEŞTİR()
    Dim SR As Worksheet, SAYFA As Worksheet
    
    Application.ScreenUpdating = False
    
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("RAPOR").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    
    Set SR = Sheets.Add
    ActiveSheet.Move Before:=Sheets(1)
    ActiveSheet.Name = "RAPOR"
    
    Sheets("Sayfa1").Range("A1:G1").Copy SR.Range("A1:G1")
    
    For Each SAYFA In ThisWorkbook.Worksheets
        If SAYFA.Name <> "RAPOR" Then
            SAYFA.Range("A2:G" & SAYFA.Range("A65536").End(3).Row).Copy SR.Cells(65536, "A").End(3).Offset(1, 0)
        End If
    Next
    
    Cells.EntireColumn.AutoFit
    Set SR = Nothing
    
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[celalce]

ömer hocam, çok teşekkür ederim... süpersiniz... ellerinize sağlık.

 

[Ömer BARAN]

.........
Kodlar Sayın Korhan AYHAN tarafından
http://www.excel.web.tr/f48/aly-ma-sayfalaryny-birle-tirme-t88123.html
konusuna verilen 2 numaralı cevaptan küçük bir değişiklik yapılarak alınmıştır...........

ömer hocam, çok teşekkür ederim... süpersiniz... ellerinize sağlık.

Estağfurullah benim yaptığım bir şey yok.
Gönderdiğim kod Sayın Korhan AYHAN'ın yazdığı kod idi ve bunu da belirtmiştim.
İhtiyaç görüldüğüne göre mesele yok.

 

[achil19]

Emeği geçen herkese teşekkürler, başlığı açan "celalce" ye de. aynı başlığı ben açacaktım