A sutundaki verileri mod 6 ya göre yan yapıstırması

[Kemal Demir]

Arkadaslar iyi Akşamlar,

BURADA YAPMAK İSTEDIGIM DOÐRU ÇOZUM
2,3,4,5 ve 6 satırları yatay yapıstırmak ve 2,3,4,5 ve 6 satırı silmek
ve devamında bir dongu olucak

yardımlarınız için teşekkur ederim


Dosya İçerisinde Konu anlatmı Daha belirgindir.

 

[veyselemre]

[vb:1:3832dce809]Sub tasi()
sat = 1
a = 2
sut = 1
For Each elem In Range("a2:a36").Cells
elem.Cut
sut = sut + 1
If (a Mod 6) = 1 Then
sat = sat + 1
sut = 1
End If
a = a + 1
Cells(sat, sut).Select
ActiveSheet.Paste
Next
End Sub[/vb:1:3832dce809]

 

[Kemal Demir]

teşekkur ederim :bravo: