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.
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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.