sayfaları birleştirme

[kakkaly]

Merhaba. Ayın her gününde toplanan verilerin ay sonunda alt alta sıralamak istiyorum. tüm sayfayı taramasına gerek yok. her gün 15 satırlık veri içeriyor. hangi günden aldığını da belirtirse sevinirim. örnek bağlantıdadır.
Teşekkürler.
http://s7.dosya.tc/server9/pt1io1/bos_sablon.xlsx.html

 

[Orion1]

Merhaba. Ayın her gününde toplanan verilerin ay sonunda alt alta sıralamak istiyorum. tüm sayfayı taramasına gerek yok. her gün 15 satırlık veri içeriyor. hangi günden aldığını da belirtirse sevinirim. örnek bağlantıdadır.
Teşekkürler.
http://s7.dosya.tc/server9/pt1io1/bos_sablon.xlsx.html

Dosya aşağıdaki linktedir.

DOSYAYI INDIR

Sub aysonu59()
Dim i As Byte, ay As String, son As Integer, j As Integer
Dim sat As Integer
Sheets("ay sonu").Select
Range("A:G").ClearContents
sat = 1
For i = 1 To 31
    ay = Format(i, "00")
    son = Sheets(ay).Cells(Rows.Count, "A").End(xlUp).Row
    For j = 1 To son
        Range("A" & sat).Value = "gün " & i
        Range("B" & sat & ":G" & sat).Value = Sheets(ay).Range("A" & j & ":F" & j).Value
        sat = sat + 1
    Next j
Next i
MsgBox "İşlem Bitti." & vbLf & "evrengizlen@hotmail.com"
End Sub