Sutunu satıra cevıren makro hk

[darkvenue]

Merhabalar
A Sutununda yer alan verilerin C D E F G sütununda göründüğü şekilde A sütündaki değerlerin 5 şer atlamalı şekilde yazılması için makroya ihityacım var. Örnek ektedir.
Teşekkürler.

 

[Necdet]

Merhaba,
Aşağıdaki kodları bir modüle kopyalayıp dener misiniz?

Sub SutunSatir()

    Dim i   As Long, _
        j   As Long, _
        k   As Integer
    
    Application.ScreenUpdating = False
    
    k = 5   'Kopyalanacak Satır Sayısı
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row Step k
        j = j + 1
        Range("A" & i).Resize(k, 1).Copy
        Cells(j, "C").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamm...."
    
End Sub

 

[darkvenue]

Teşekkürler oldu.