Her satırda 2 bosluk bırakarak sutunları doldurma

[gergun]

Merhaba, otomatık olarak urettıgım ve sayısı 2 ıla 19 arasındakı rakamları baska bır tabloda her 5 hucrede 2 hucre bos bırakalarak yenı bır tablo olusturmasını ıstıyorum.
Yardımlarınızı rıca edıyorum,

saygılarımla

 

[Ömer]

Merhaba,

Doldurma mantığını anlamadım.

İlk satırda 3 veriden sonra, ikinci satırda 1 veriden sonra boşluk vermişsiniz. Sorularınızı detaylı açıklamaya özen göstermenizi rica ederim.

.

 

[gergun]

Ömer Bey merhaba,

Ozellıkle bu sekılde yazdım dongu, ılk 5 hucreden herhangı bırınden baslayarak rakamları yerlestırecek.

ılgınıze tesekkur ederım,

saygılarımla

 

[Ömer]

Ömer Bey merhaba,

Ozellıkle bu sekılde yazdım dongu, ılk 5 hucreden herhangı bırınden baslayarak rakamları yerlestırecek.

ılgınıze tesekkur ederım,

saygılarımla

Herhangi birindeki mantığı anlamadım. Ben aynı standarta yaptım. Siz bu düzende herhangi birinden başlama mantığına göre düzenlersiniz.

Sub Duzenle()
 
Dim j As Integer, son As Integer, atla As Integer
 
For j = 1 To 19 Step 5
    son = j + 5
    atla = atla + 2
    Range(Cells(2, j), Cells(5, son - 1)).Copy Cells(2, j + 19 + atla)
Next j
 
End Sub

.

 

[gergun]

Ömer bey çok teşekkür ederim, elinize sağlık

iyi akşamlar