Bir sütunu birbirne eşit 5 sütuna dağıtacak yöntem

[harakikiri]

Uzun zamandır excel.web.tr yi takip ettiğim ve çok şeyler öğrendiğim halde benzeri bir çalışma hatırlamıyorum. Yada atlamış olmalıyım. Başlık açmak zorunda kaldım;

İki sayfalı bir çalışma kitabım var. Birinci sayfam da araç plakaları bulunmakta ve sürekli değişmekte adet olarak. İkinci sayfamda da bu plakaların bir metnin altına 5 sütunda yazılmış olduğu bir formatım var.
Birinci sayfaya girmiş olduğum (bir database gibi), plakaların excel yardımıyla düzenlenerek sabit olan yazının altında yer almasını istiyorum.

Daha kolay anlaşılması için bir örnek ekledim.

Bu konuda bana ışık tutabilecek arkadaşlara şimdiden teşekkür ediyorum.

 

[veyselemre]

Sub Aktar()

Set SA = Sheets("Araç listesi")
Set SB = Sheets("BAŞLIKLI")
SA.Columns("B:B").Sort Key1:=SA.Range("B1"), Order1:=xlAscending, Header:=xlGuess
                
SON = SA.[A65536].End(3).Row
BOLUM = WorksheetFunction.RoundUp(SON / 5, 0)

    For X = 1 To SON Step BOLUM
        SAT = 19
        SUT = SUT + 2
        For Y = 0 To BOLUM - 1
            SB.Cells(SAT + Y, SUT - 1) = X + Y
            SB.Cells(SAT + Y, SUT) = SA.Cells(X + Y, 2)
        Next Y
    Next X

End Sub

 

[harakikiri]

Çözüldü.

Sevgili veyselemre;
Nokta atışı diye ben buna derim işte. Üzerinde oynama, değişiklik yapmama bile gerek kalmadan aynen kullanabilirim. Armut pişti ağzıma düştü yani.
Eline sağlık.