2 Satır Boşluk Bırakma?

[cimcoz]

Merhaba,
Ekteki dosyada A sütunundaki dolu hücrelerin aralarını 2'şer adet boş satır (sağ tarafındaki gibi) eklemek istiyorum. Macro ile bu yapılabilir mi?

Teşekkürler...

Cimcoz

 

[Kemal Demir]

Sub ikiatla()
For c = 1 To 5
Cells(c, 1).Copy
Cells(c * 3, 2).PasteSpecial
Next
End Sub

zannedersem işinizi görür
(Biraz acemi olduğum için c1 den değilde c3 den başlatabildim)

Ustadlar doğrusunu yollar size.

İyi Çalışmalar.

 

[veyselemre]

[vb:1:e1a73c9f67]Sub ikiekle()
For x = 1 To [a65536].End(3).Row
y = (2 * x) + x - 1
Range("a" & y & ":a" & y + 1).Insert Shift:=xlDown
Next
End Sub[/vb:1:e1a73c9f67]

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:798b3a45e5]Sub arala()
For a = [a65536].End(xlUp).Row To 2 Step -1
Cells(a, 1).Insert
Cells(a, 1).Insert
Next
End Sub
[/vb:1:798b3a45e5]

Sn Rakkas sizinde gayretinizi takdir ederek izliyorum. Cevap vermekten asla çekinmeyin lütfen.

 

[cimcoz]

Sütun sayısı artarsa?

Peki A,B ve C sütunları için kodu nasıl değiştirmem gerekir? (İlk 3 sütundaki satırları 2'şerli artırmak için)

Teşekkürler...

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:37ffd6c0e0]Sub arala()
For a = [a65536].End(xlUp).Row To 2 Step -1
Range(Cells(a, 1), Cells(a, 3)).Insert
Range(Cells(a, 1), Cells(a, 3)).Insert
Next
End Sub[/vb:1:37ffd6c0e0]

 

[cimcoz]

Sayın leventm,
Çok teşekkür ederim. İşimi gördü. İyi günler...

:mutlu: Cimcoz :mutlu: