Boş Satır Ekleme İle İlgili

[yer06]

sevgili uzman arkadaşlarım a hücresi aşağıya doğru 50.000 satır dolu aralara sadece 5 tane boş satır eklemek istiyorum bir makro buldum ama 300 satıra kadar 2 satır ekliyor 5 satır eklemesi konusunda yardımcı olurmusunuz şimdiden tşk ederim.

Sub Bos_Satir_Ekle()
For i = 300 To 2 Step -1
Rows(i & ":" & i + 1).Insert Shift:=xlDown
Next i
End Sub

 

[halit3]

sevgili uzman arkadaşlarım a hücresi aşağıya doğru 50.000 satır dolu aralara sadece 5 tane boş satır eklemek istiyorum bir makro buldum ama 300 satıra kadar 2 satır ekliyor 5 satır eklemesi konusunda yardımcı olurmusunuz şimdiden tşk ederim.

Sub Bos_Satir_Ekle()
For i = 300 To 2 Step -1
Rows(i & ":" & i + 1).Insert Shift:=xlDown
Next i
End Sub

bunu denermisiniz.

Sub Bos_Satir_Ekle()
For i = 50001 To 2 Step -1
Rows(i & ":" & i + 4).Insert Shift:=xlDown
Next i
End Sub