çok sayıda 3 lü kolon grubunu, altalta sıralamak

[yst10]

Selamlar,
3 kolondan oluşan, toplam 12 bölümde bilgi içeren kolonlar var,
bunları altalta sıralamak mümkün mü?
Elimdeki farklı bir örnekle denedim olmadı.
Örnek dosya ekte.
Saygılarımla,
Yavuz Tümer.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AKTAR()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    SATIR = 2
    S1.Select
    S2.[A2:F65536].ClearContents
    For Y = 2 To 37 Step 3
    For X = 2 To S1.[A65536].End(3).Row
    S2.Cells(SATIR, 1) = S1.Cells(X, 1)
    S2.Cells(SATIR, 2) = S1.Cells(X, Y)
    S2.Cells(SATIR, 3) = S1.Cells(X, Y + 1)
    S2.Cells(SATIR, 4) = S1.Cells(X, Y + 2)
    S2.Cells(SATIR, 5) = S1.Cells(X, "AL")
    S2.Cells(SATIR, 6) = S1.Cells(X, "AM")
    SATIR = SATIR + 1
    Next
    Next
    S2.Columns("A:C").HorizontalAlignment = xlCenter
    S2.Select
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[yst10]

Korhan hocam iyi geceler,
Yine siz, çok teşekkür ederim, henüz denemedim ama eminim olmuştur.
Hemen deniyorum, tekrar teşekkür ederim.
Yavuz Tümer

 

[yst10]

Korhan Hocam,
İlk satır dışında mükemmel çalışıyor, sadece ilk satır bilgileri kayboluyor,
Bilginize, ama çok ta sorun değil, o kadarını yazarsak elimiz aşınmaz.
İlginize, bilginize, size, emeğinize sağlık.
Allah razı olsun, çok yardımcı oluyorsunuz.
Sevgi ile kalın.

 

[Korhan Ayhan]

Selamlar,

İlk satır derken neyi kast ediyorsunuz. Ben kodu sizin örnek dosyanıza göre düzenlemiştim.

 

[yst10]

Korhan hocam, selamlar.
Dediğim gibi çok sorun değil ama madem sordunuz şöyle açıklamaya çalışayım.
Makroyu çalıştırmadan önce A1 ile D1 şu şekilde;
MALZEME ADET K1 K2
sonrasında da, bu satır bilgileri kayboluyor.
Ama dediğim gibi, hiç sorun değil hocam, ellerin dert görmesin. Bu yeterli bana.
Saygılar,
Yavuz Tümer.