• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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
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
 
Merhaba,

Basit örnek bir dosya eklerseniz çözüme daha hızlı ulaşabilirsiniz.
 
Daha önce forumda paylaşılan kodlar. İnceleyin belki işinize yarayabilir.

 
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

Geri
Üst