Günlük bilgileri macro ile aylık sayfasına aktarabilirmiyiz?

[yyhy]

Günlük bilgileri macro ile aylık sayfasına aktarabilirmiyiz?

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

B6:L11 aralığını demişsiniz ama 11. satır toplam satırıydı ben B6:L10 arasını aktaran kodları verdim, siz duruma göre düzenlersiniz artık.

Sub Aktar()
    
    Dim i As Long
    
    i = Sheets("Aylık").Cells(Rows.Count, "B").End(3).Row + 1
    Sheets("Veri").Range("B6:L10").Copy Sheets("Aylık").Cells(i, "B")
    
End Sub

 

[yyhy]

Sayın Necdet Yeşertener ihtiyaca cevap verdi. Teşekkürler, Elinize Sağlık. İyi çalışmalar.