Kopyalanan Değerleri 5' er boşluk Bırakıp Yapıştırmak

[alitolga2000]

Merhabalar,

a1 sütunundan b20 ye kadar uzanan bilgileri kopyalayıp,
yapıştıracağım yere 5' er boşluk bırakıp yapıştırmasını ve benim
belirleyeceğim sayıda exstradan 5 boşluk daha vermesini istiyorum.
buraya alt toplam alacağım için.. bunuda yapabilirse sevinirim.

mesela

ac kalem...
bc silgi......
dc defter...
de kitap....

bunları 5 boşluk bırakıp yapıştıracak
dc de bir 5 boşluk daha ver diycem yada her 10 bilgide bir bir 5 daha
fazla arasını açıp alt toplam alacak.

ac kalem...

bc silgi......

dc defter...

alt toplam

de kitap....

teşekkürler..

 

[alitolga2000]

Pardon bu belki biraz karışık oldu heralde,

verileri kopyalayıp yapıştırmak değilde

olan verilerin aralarını 5' er her 10 veridedede bir 5 fazla açtırsakta olabilir.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:7d3cfd6284]Sub listele()
For a = 1 To Cells(65536, 1).End(xlUp).Row
Sheets("sayfa2").Cells(a + b, 1) = Cells(a, 1).Value
Sheets("sayfa2").Cells(a + b, 2) = Cells(a, 2).Value
b = b + 5
Next
End Sub[/vb:1:7d3cfd6284]

 

[alitolga2000]

Evet teşekkürler 5' er satır aralarını açıp sayfa2 ye atıyor.
her 10 kişidede bir bir 5 daha ara verdiremiyormuyuz.

 

[veyselemre]

sayın leventm nin kodunu şöyle düzenlerseniz olur

Sub listele()
For a = 1 To Cells(65536, 1).End(xlUp).Row
Sheets("sayfa2").Cells(a + b, 1) = Cells(a, 1).Value
Sheets("sayfa2").Cells(a + b, 2) = Cells(a, 2).Value
b = b + 5
If (a / 10) - Int(a / 10) = 0 Then b = b + 5
Next
End Sub

 

[alitolga2000]

Ya sizlere bayılıyorum,,
çok teşekkürler harikasınız..
:bravo: :bravo: :bravo:
:bravo: :bravo: :bravo:
:bravo: :bravo: :bravo: