Makro ile satır kaydırma

[beyhan80]

Arkadaşlar veri düzenlemesi yapıyorum ve binlerce satır arasında her bir satır arasında 2 satırlık bir boşluk olmasını istiyorum. Bu konuda nasıl bir makro kullanmam gerekir? Yardımlarınızı bekliyorum. Saygılar

 

[Necdet]

Merhaba,

Dosya yapısı hakkında bilgi vermemişsiniz.

Aşağıdaki kodda 1. satırın başlık olduğu varsayılmıştır.
Satır açılacak yer hakkında farklılık varsa, siz kendinize göre düzenleyebilirsiniz.

Sub Satir_Ac()
 
    Dim i As Long
 
    Application.ScreenUpdating = False
 
    For i = Cells(Rows.Count, "A").End(3).Row To 3 Step -1
        Rows(i & ":" & i + 1).Insert Shift:=xlDown
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

 

[beyhan80]

Değerli üstadım, gönderdiğin dosya ile sorunumu çözdüm. Yardımların için teşekkür ederim, ALLAH razı olsun.