Yalnız Mesajı Göster
Eski 25-03-2017, 22:30  
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan Tüm Sayfaları, Tek Sayfada Birleştirme

. . .

Merhaba,

Forumda soru olarak bir çok kez işlenmiş bir konu...

Bugün bana da ihtiyaç oldu, ekteki çalışmayı oluşturdum ve daha sonra yine ihtiyaç olacak gibi görünüyor. O yüzden arşivlerde olması için gönderiyorum.

Formatı birbirine yakın olan sayfaları TÜMÜ sayfasında toplamak için;
(bazı sayfalar diğerlerinden birkaç sütun eksik/fazla ise bundan etkilenmez)
Kendi çalışmalarınızda kullanmak için, TÜMÜ sayfasını oluşturup. Kodları çalıştırın...

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub KOD()

    Dim T As Worksheet: Set T = Sheets("TÜMÜ")

    For i = 1 To Sheets.Count
        Sayfaismi = Sheets(i).Name

' VERİ ALMASINI İSTEMEDİĞİNİZ SAYFA İSİMLERİNİ TANIMLAYIN...
        If Sayfaismi <> T.Name And _
           Sayfaismi <> "güncel listes" And _
           Sayfaismi <> "HCMT37" Then
' ' ' ' ' ' ' '

            sat = Sheets(Sayfaismi).Cells(Rows.Count, "A").End(3).Row
            süt = Sheets(Sayfaismi).Cells(1, Columns.Count).End(1).Column
            süt2 = süt + 1
            sonsat = T.Cells(Rows.Count, "A").End(3).Row

            Sheets(Sayfaismi).Select
            Sheets(Sayfaismi).Range(Cells(1, "A"), Cells(sat, süt)).Copy T.Cells(sonsat + 1, "A")
            Sheets("TÜMÜ").Range(Cells(sonsat + 1, süt2).Address, Cells(sonsat + sat, süt2).Address) = Sayfaismi
        
        End If

    Next i

    T.Select
    MsgBox " B i t t i "
End Sub
. . .
Eklenmiş Dosyalar
Dosya Türü: rar Tüm Sayfaları Birleştir.rar (116.3 KB, 63 Görüntülenme)
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla