Satır Boşluğu Bırakma

[duffınskrt]

merhaba, excel dosyasındaki verilerde her 35 veride bir 5 boşluk bırakacak bir makroya ihtiyacım var. foruma baktım ancak kafam basmadı o yüzden başlık açma gereksinimi duydum.

 

[ÖmerFaruk]

Her 35 den kastınız 35 Satır olarak düşünüyorum. Teyit ediniz.
Sorunuzun diğer eksik kısımları
35 satıra verileri elle mi giriyorsunuz? Form üzerinden mi giriyorsunuz? Size yardımcı olacak arkadaş bu 35 olayını bir düzene kurala bağlamalı.

 

[RBozkurt]

Merhaba,

İlk 35'den başlayarak 5'er satır atar. Deneyiniz.
Sayfa1'i kendinize göre revize ediniz.
Aralık ve boşsatırıda isteğe göre değiştirebilirsiniz.

Sub BoslukEkle35e5()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim bosSatirSayisi As Integer
    Dim aralik As Integer

    Set ws = ThisWorkbook.Sheets("Sayfa1") 'Sayfanız
    aralik = 35
    bosSatirSayisi = 5
    
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    For i = aralik To lastRow Step aralik + bosSatirSayisi
        ws.Rows(i + 1 & ":" & i + bosSatirSayisi).Insert Shift:=xlDown
        lastRow = lastRow + bosSatirSayisi
    Next i
End Sub