cenqawer
Altın Üye
- Katılım
- 23 Ocak 2021
- Mesajlar
- 99
- Excel Vers. ve Dili
- Excel 2021 Pro Plus Türkçe
- Altın Üyelik Bitiş Tarihi
- 18-10-2028
Merhaba Forumda bir çalışma gördüm çok işime yarayan bir kod bu formülün yan yana bölmek yerine sayfalara bölme şeklinde olanı varmıdır.
Sub bolyaz()
son = Sheets("Sayfa1").Cells(653000, "A").End(3).Row
uz = WorksheetFunction.RoundUp(son / 66, 0)
i = 1
For sut = 2 To uz + 1
For sat = 1 To 66
Sheets("Sayfa1").Cells(sat, sut) = Sheets("Sayfa1").Cells(i, 1)
i = i + 1
Next sat
Next sut
End Sub
Sub bolyaz()
son = Sheets("Sayfa1").Cells(653000, "A").End(3).Row
uz = WorksheetFunction.RoundUp(son / 66, 0)
i = 1
For sut = 2 To uz + 1
For sat = 1 To 66
Sheets("Sayfa1").Cells(sat, sut) = Sheets("Sayfa1").Cells(i, 1)
i = i + 1
Next sat
Next sut
End Sub