yan sütuna işlemek

[igultekin2000]

iyi günler;
çalıştığım dosyada toplu aktarım yapmak için banka havale ve komisyon bedelinin yan sütuna aktarılması gerekiyor. bunu makro ile pratiğe aktarma imkanı var mıdır. Teşekkürler.

 

[Ziynettin]

Sub test()
    a = Range("A2:C" & Cells(Rows.Count, 1).End(3).Row).Value
    pas = 3
    ReDim b(1 To UBound(a) / pas, 1 To 5)
        For i = 1 To UBound(a) Step pas
            say = say + 1
            b(say, 1) = a(i, 1)
            b(say, 2) = a(i, 2)
            For y = 0 To 2
                b(say, y + 3) = a(i + y, 3)
            Next y
        Next i
    [F2].Resize(say, 5) = b
End Sub

 

[igultekin2000]

Sub test()
    a = Range("A2:C" & Cells(Rows.Count, 1).End(3).Row).Value
    pas = 3
    ReDim b(1 To UBound(a) / pas, 1 To 5)
        For i = 1 To UBound(a) Step pas
            say = say + 1
            b(say, 1) = a(i, 1)
            b(say, 2) = a(i, 2)
            For y = 0 To 2
                b(say, y + 3) = a(i + y, 3)
            Next y
        Next i
    [F2].Resize(say, 5) = b
End Sub

Her zaman olduğu gibi sorunsuz çalışıyor, Teşekkür ederim . İyi çalışmalar