Kasa Defteri için acil yardım

[SYNC]

Merhabalar

Her gün için oluşturduğum sayfalardaki 5 ile 25. satırlar arasındaki verileri RAPOR sayfasında satır atlamadan alt alta yazmam gerekiyor ama bir türlü beceremedim. :kafa: Lütfen yardım edin.

 

[Levent Menteşoğlu]

Aşağıdaki kodu RAPOR isimli sayfanızda oluşturacağınız bir butona bağlayarak deneyin.

[vb:1:0388a33995]Sub aktar()
Application.ScreenUpdating = False
For a = 1 To Sheets.Count
If Sheets(a).Name <> "RAPOR" Then
sat = WorksheetFunction.CountA([c5:c65536]) + 5
Sheets(a).[a5:k25].Copy
Cells(sat, "a").PasteSpecial Paste:=xlPasteValues
End If
Next
Application.CutCopyMode = False
[a2].Select
End Sub
[/vb:1:0388a33995]