Araya Satır Açmak

[SDorak]

uzun bir excel listem var bu listede liste boyunca 1 satır atlayıp araya 1 satır eklemsini istiyorum buna bi macro nasıl yapabilirim yardımcı olursanız çok makbule geçer. Şimdiden Teşekkürler...

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub SatEkle()
Dim i As Long
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 2 Step -2
    Rows(i).Insert Shift:=xlDown
Next i
Application.ScreenUpdating = True
End Sub

.

 

[SDorak]

Çok Teşekkürler Emeğinize Sağlık....