Sayfa birleştir

[mesutaygun70]

http://www.dosyaupload.com/4Fft

Ekteki gibi bir dosyam var. Aşağıya ben sadece 3 tane sayfa açtım ama 200 den fazla sayfam var. Ben bu tüm sayfalardaki verileri (Tüm isimli sayfada) birleştirmek istiyorum.

 

[askm]

Aşağıdaki kodları kullanabilirsiniz.

Sub ASKM_SayfalariBirlestir()
Dim SayfaSira As Integer, Kolon As Integer
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("TÜM")
Application.ScreenUpdating = False
s1.Select
Range(Cells(3, "A"), Cells(65536, "H")).ClearContents
For SayfaSira = 1 To Sheets.Count
    If Sheets(SayfaSira).Name <> "TÜM" Then
        Set s2 = Sheets(SayfaSira)
        s2.Select
        Range(Cells(10, "C"), Cells([c65536].End(3).Row, "I")).Copy
        s1.Range("B" & s1.[B65536].End(3).Row + 1).PasteSpecial Paste:=xlPasteValues
    End If
Next SayfaSira
s1.Select
For i = 3 To Range("B65530").End(3).Row
On Error Resume Next
If (Range("B" & i).Value <> "") Then
Range("A" & i) = i
End If
Next i
Range(Cells(3, "A"), Cells([B65536].End(3).Row, "H")).Borders.LineStyle = xlContinuous
Application.ScreenUpdating = True
MsgBox "Sayfalar Birleştirilmiştir", vbInformation, "ASKM"
End Sub

 

[mesutaygun70]

Teşekkürler

 

[askm]

Rica ederim.