Çok uzun sütunları sayfa bitiminde, yan sütundan devam ettirme

[hknylcn]

Merhaba ekteki örneğin 1. sayfasında epey uzun 2 sütun var. Benim isteğim 2. sayfada görüleceği üzere uzun verinin sayfa bitiminde yan sütundan devam etmesini sağlamak. Yardımcı olursanız sevinirim.

 

[hknylcn]

Acaba sorum mu anlaşılmadı yoksa bilmiyor mu kimse? Yok mu yardımcı olacak?

 

[apocalyt]

şunu deneyin..

Sub daylight()
y = 4
For x = 60 To [a10000].End(3).Row Step 59
Range("a" & x & ":" & "b" & x + 58).Copy
Cells(1, y).PasteSpecial
y = y + 3
Next x
Range("a60:b10000").Clear
End Sub

 

[Muhammet Okumuş]

Merhaba,
Kodu deneyiniz.

Sub Ayır()
Sheets("Sayfa2").Cells = ""
Sheets("Sayfa2").Cells.Borders.LineStyle = 0
sat = InputBox("Kaç satırdan bölünsün?", "Uyarı")
son = Cells(Rows.Count, "A").End(3).Row
a = Int(son / sat) + 1
For i = 1 To a
x = (i - 1) * sat + 1
y = i * sat
sut = i * 3 - 2
Range(Cells(x, 1), Cells(y, 2)).Copy Sheets("Sayfa2").Cells(1, sut)
Next
Sheets("Sayfa2").Select
End Sub

 

[hknylcn]

Teşekkürler cevaplarınız için apocalyt sizin kodunuz çalıştı ancak Muhammet Okumuş sizin yazdığınız kodlar ise satır sayısını soruyor ve herşey siliniyor çalışmadı yani teşekkürler ilginiz için.

 

[Muhammet Okumuş]

Teşekkürler cevaplarınız için apocalyt sizin kodunuz çalıştı ancak Muhammet Okumuş sizin yazdığınız kodlar ise satır sayısını soruyor ve herşey siliniyor çalışmadı yani teşekkürler ilginiz için.

Sn hknylcn;
Verileriniz kaç satır halinde bölünmesini istiyorsanız, açılan inputbox'a değer yazınız. Örneğin 30 satırlı sütunlar için 30 yazmanız gerekli.

 

[hknylcn]

Teşekkür ederim böyle daha iyi oldu önceki dosyada ben beceremedim sanırım.