Her 10 satırda bir 4 satır eklemek

[polis-53]

Her 10 satırda bir 4 satır nasıl eklebilirim

 

[Ömer]

Merhaba,

Linkte #2 nolu mesajdaki kodun -1 yazan bölgesini -10 yaparak deneyin.

http://www.excel.web.tr/showthread.php?t=79486

.

 

[polis-53]

Her 17 satırda bir 4 satır eklediğimde hatalı çalışıyor

 

[polis-53]

Her 17 satırda bir 4 satır ekle dediğimde hatalı çalışıyor dosya ektedir

 

[Ömer]

Sub SatirEkle()
Application.ScreenUpdating = False
Dim i As Double
    For i = 17 To [A65536].End(3).Row Step 20
        Rows(i & ":" & i + 3).Insert Shift:=xlDown
    Next i
Application.ScreenUpdating = True
End Sub

Bu şekilde deneyin.

.