Boş satır ekleme

[excelmanya]

Merhabalar,

Tabloda bulunan butona tıkladığımda sadece birer satır boşluk bırakmak istiyorum ama yapamadım. Daha doğrusu tam anlamıyla yapamadım ikinci veya birkaç tıklayışta fazla fazla satırlar ekliyor. Ben sadece birer satır eklemek istiyorum. Yardımcı olmanızı rica ederim.

 

[Orion1]

Buyurun.

For i = Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1
        Rows(i & ":" & i).Insert xlDown
Next i
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com"

 

[leumruk]

Selamlar,
Deneyiniz:

Sub Makro1()
sonsat = Cells(Rows.Count, 1).End(3).Row
For x = sonsat To 3 Step -1
If Cells(x, 1) <> "" Then
Rows(x).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub

 

[excelmanya]

Çok Teşekkür ederim ilginize !

 

[Orion1]

Çok Teşekkür ederim ilginize !

Rica ederim.
İyi geceler.