Sayfalardan tarih sırasına göre veri alma.

[sward175]

Herkese Merhabalar,
Ekli dosyada,01 den başlayarak bir ay boyunca her sayfaya sarı başlıkları içeren bilgiler giriliyor.
Tüm sayfaların A2:V100 aralığına girilen bilgileri Ay Toplamı olan sayfaya Tarih sırasına göre almak istiyorum.
Saygılarımla,
sward175

 

[sward175]

İyi Geceler dileğiyle,

Bildirimlerde bir kırmızılık olur diye umut diyerek bakıyorum.
Selam ve Saygılarımla.
sward175

 

[Orion1]

Dosyanız ektedir.
Not:Kodda bir değişiklik yaptım.2nci satırdaki verileri almıyordu şimdi alıyor.

Sub aytoplami_59()
Dim sonsat1 As Long, sonsat As Long, sh As Worksheet
Sheets(Worksheets.Count).Select
Range("A2:V" & Rows.Count).ClearContents
For i = 1 To Worksheets.Count - 1
    Set sh = Sheets(i)
    sonsat1 = sh.Cells(Rows.Count, "A").End(xlUp).Row
    If sonsat1 > 1 Then
        sonsat2 = Cells(Rows.Count, "A").End(xlUp).Row
        sh.Range("A2:V" & sonsat1).Copy Range("A" & sonsat2 + 1)
    End If
Next i
MsgBox "İşlem tamamlandı."
End Sub

 

[sward175]

Evren Bey, Günaydın,

Elleriniz Dert Görmesin, çok çok teşekkür ederim.

Güzel günler adına Sağ olun.
sward175

 

[Orion1]

Evren Bey, Günaydın,

Elleriniz Dert Görmesin, çok çok teşekkür ederim.

Güzel günler adına Sağ olun.
sward175

Rica ederim.
İyi çalışmalar.

 

[tahsinanarat]

Sn. Evren hocam, denemek için gözattım, 4 nolu sayfadaki veriyi getirmediğini fark ettim, Bilginiz olsun.

 

[Orion1]

Sn. Evren hocam, denemek için gözattım, 4 nolu sayfadaki veriyi getirmediğini fark ettim, Bilginiz olsun.

Evet doğru söylüyorsunuz.
İlgili kodu aşağıdaki ile değiştirince sorun kalkıyor.

If sonsat1 > 1 Then