Yan Yana datayı sayfalara bölme

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
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,353
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Basit örnek bir dosya eklerseniz çözüme daha hızlı ulaşabilirsiniz.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,159
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Daha önce forumda paylaşılan kodlar. İnceleyin belki işinize yarayabilir.

 

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 Örnek dosya ekledim benim istediğim buradaki verileri 120 şerli olarak sayfalara bölmesi yan yana 9 yeni sayfa falan ediyor. lütfen belirtilen yazışmalarda bu şekilde bir formül göremedim
 

Ekli dosyalar

Üst