Her 2 satırda bir, 3 boş satır açmak

[baydeniro]

Merhaba Arkadaşlar,
4. satırdan itibaren her 2 satırda bir 3 boş satır açmak mümkün mü !

 

[Necdet]

Merhaba, deneyiniz.

Sub SatirAc()

    Dim KacSatir As Integer, _
        BosSatir As Integer, _
        i        As Long
    
    KacSatir = 2
    BosSatir = 3
    
    i = KacSatir + 2
    
    Application.ScreenUpdating = False
    
    Do
        Rows(i & ":" & i + BosSatir - 1).Insert
        i = i + BosSatir + KacSatir
        
    Loop Until Cells(i, "A") = ""
    
    Application.ScreenUpdating = True
    
End Sub

 

[baydeniro]

Merhaba, deneyiniz.

Sub SatirAc()

    Dim KacSatir As Integer, _
        BosSatir As Integer, _
        i        As Long
   
    KacSatir = 2
    BosSatir = 3
   
    i = KacSatir + 2
   
    Application.ScreenUpdating = False
   
    Do
        Rows(i & ":" & i + BosSatir - 1).Insert
        i = i + BosSatir + KacSatir
       
    Loop Until Cells(i, "A") = ""
   
    Application.ScreenUpdating = True
   
End Sub

Necdet üstadım elinize sağlık, harika bir kod. Çok teşekkür ederim, sağlıcakla kalın