Sheet Birleştirme

[acarhalil]

Arkadaşlar merhaba,

bir excel dosyam var ve içinde yaklaşıl 120 adet sheet var bunları tek bir sayfada toplama şansım var mı? (Başlıkları aynı hücrede aynı şeklide yazılıyor)

 

[askm]

İçerisinde 2-3 sayfa olacak şekilde bir örnek eklerseniz ve hangi sayfada toplamasını istediğinizi belirtirseniz yardımcı olmaya çalışalım.

 

[Ömer]

Merhaba,

Sayın askm'min mesajını yeni gördüm. Bir örnek hazırlamıştım.

Sayfaların birleşeceği sayfa adını "birleştir" diye düşündüm. Bu bölümü kendi dosyanıza göre düzenlersiniz.

Sub Sayfaları_Birlestir()
    
    Dim i As Integer, alan As Range, son As Long
    Dim Sb As Worksheet, sat As Long, sut As Integer

    Set Sb = Sheets("[COLOR="red"]birleştir[/COLOR]") 'birleştirilecek sayfa adı
    
    Application.ScreenUpdating = False
    Sb.Select: Range("A2").Resize(Rows.Count - 1, Columns.Count).Clear

    son = 2
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Name <> Sb.Name Then
                On Error Resume Next
                sut = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
                sat = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
                .Range(.Cells(2, "A"), .Cells(sat, sut)).Copy Sb.Cells(son, "A")
                son = Sb.Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
            End If
        End With
    Next i
                
End Sub

.

 

[acarhalil]

eywallah hocam

 

[acarhalil]

Şimdi fark ettım bu makroyu kullandığım zaman bazı sheetlerde 2.sıradan başlıyo 1 i atlıo neden acaba?

 

[Ömer]

Merhaba,

Hata aldığınız örnek dosyanızı ekleyerek açıklarmısınız.

www.dosya.tc

.