döngüyü yapamadım

[Kemal Demir]

Selam arkadaslar

b kolonundan 1 den 5000 e kadar veri var
bunları
5 ini kesip sıra ile [c,d,e,f,g] satırlarını yapıstırmak ıstıyorum
sadece bir i için bir şey hazırladım ama oda cok amatorce oldu biraz kötü

Yardımcı olursanız sevininirim

Dosya Ek'te

Sub d1()
For i = 2 To 6
Range("b" & 2).Copy
Range("c" & 2).PasteSpecial
Range("b" & 3).Copy
Range("d" & 2).PasteSpecial
Range("b" & 4).Copy
Range("e" & 2).PasteSpecial
Range("b" & 5).Copy
Range("f" & 2).PasteSpecial
Range("b" & 6).Copy
Range("g" & 2).PasteSpecial
Next
Application.CutCopyMode = xlCut
End Sub

 

[Haluk]

Bunu bir deneyin, bakalım olucak mı ?

Sub Test()
    Dim NoB As Long, i As Long, j As Long
    NoB = Cells(65536, 2).End(xlUp).Row
    i = 2
    j = 1
    Do While i < NoB
        j = j + 1
        Range("C" & j & ":G" & j).FormulaArray = _
        WorksheetFunction.Transpose(Range("B" & i & ":B" & i + 5))
        i = i + 5
    Loop
End Sub

 

[excelvba]

Alternatif olarakta aşağıdaki kodu deneyin.

[vb:1:3de25de28a]Sub aktar()
For a = 2 To 100
f = f + 1
Cells(c + 1, d + 3) = Cells(a, 2)
If f Mod 5 = 0 Then
c = c + 1
d = 0
GoTo 10
End If
d = d + 1
10 Next
End Sub[/vb:1:3de25de28a]

 

[Kemal Demir]

Teşekkur ederim arkadaslar.