satır ekleme

[smali]

iyi günler ekte göndermiş olduğum dosyadaki her satırın arasına birer satır boşluk bırakmak istiyorum nasıl yapabilirim acaba.forumda kodlarını buldum ama kodlardan fazla anlamıyorum. o yüzden yapamadım.


şimdiden teşekkürler.

 

[leumruk]

Merhaba,
Dosyanız ekte.
Satır eklemek istediğiniz sayfayı seçip "CTRL Ç" tuşuna basıyorsunuz.
NOT: Veri uzunluğunuz fazla olduğu için ekleme süresi çok uzun sürüyor, bilginiz olsun. Her satır yaklaşık 1 saniye...

 

[felix83]

Sub satirekle()
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Select
For a = 4 To ActiveSheet.UsedRange.Rows.Count Step 2
Cells(a, 1).Select
ActiveCell.EntireRow.Insert
Next
Next


End Sub

denermisiniz?

 

[smali]

teşekkürler emeğinize sağlık

 

[seyfi38]

Sub satirekle()
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Select
For a = 4 To ActiveSheet.UsedRange.Rows.Count Step 2
Cells(a, 1).Select
ActiveCell.EntireRow.Insert
Next
Next


End Sub

denermisiniz?

Sayın Felix83
bunun farklı versiyonunu yapabilirmisiniz
32,62,92,122.......... 302,332,362 gibi satırlara 1'er boşluk açabilirmiyiz