Farklı sekmelerdeki verileri tek sayfada toplamak?

[caxwin]

l1-l2-l3 adlı sekmelerim var
bu sekmelerin hepsine haftalık değişken satırda veri giriliyor.
Fakat şablon sabit.

Benim istediğim bir x sekmesinde;
a sütununa
l1-l2-l3 ün hepsinin a sütunundaki verileri alt alta sıralatabilmek.

Mümkün müdür?
Şimdiden teşekkür ederim

 

[İhsan Tank]

dosyanız yok mu

 

[Ömer]

Merhaba,

Sorularınızı örnek dosya ile desteklemeye özen gösteriniz.

Kodları module kopyalayarak çalıştırınız..

Option Explicit
 
Sub SayfaBirleştir()
Dim sayfa As Worksheet, sat As Long, sat1 As Long, S1 As Worksheet
Set S1 = Sheets("x")
Application.ScreenUpdating = False
S1.[A2:A65536].ClearContents
    For Each sayfa In Sheets
        If sayfa.Name <> "x" Then
            sat = sayfa.[A65536].End(3).Row
            sat1 = S1.[A65536].End(3).Row + 1
            sayfa.Range("A2:A" & sat).Copy S1.Range("A" & sat1)
        End If
    Next sayfa
Application.ScreenUpdating = True
Set S1 = Nothing
End Sub

.

 

[caxwin]

http://msdn.microsoft.com/en-us/library/cc793964.aspx

daki kodlarla konuyu hallettim, benim gibi araştıranlar olursa yukardaki linki deneyebilirler.
teşekkürler...