Otomatik Satır Ekleme Her X Satırda 1

[mrgogo]

Mevcutta veri girilmiş excel tabloma her 5 satırda 1 nasıl yeni bir satır açabilirim.

 

[Necdet]

Merhaba,

Basit bir örnek dosya ile sorunuzu destekleyiniz. Dosyayı görmekte yarar var.

 

[Murat OSMA]

Necdet Bey müsadenizle...


A sütunu için bu kodları kullanabilirsiniz;

Sub Bir_Satir_Ekle()
Dim a As Byte, c As Integer
[A1].Select
a = 2: c = 0
   While ActiveCell.Value <> ""
      c = c + 2
      ActiveSheet.Rows(c).Insert Shift:=xlDown
      ActiveCell.Offset(a, 0).Select
   Wend
End Sub

Sub İki_Satir_Ekle()
    Dim a As Byte, sat As Byte
    [A2].Select
    a = 3: sat = 2
    While ActiveCell.Value <> ""
        ActiveSheet.Rows(ActiveCell.Row & ":" & sat + ActiveCell.Row - 1).Insert Shift:=xlDown
        ActiveCell.Offset(a, 0).Select
    Wend
    a = Empty: sat = Empty
End Sub

Sub Üç_Satir_Ekle()
    Dim a As Byte, sat As Byte
    [A2].Select
    a = 4: sat = 3
    While ActiveCell.Value <> ""
        ActiveSheet.Rows(ActiveCell.Row & ":" & sat + ActiveCell.Row - 1).Insert Shift:=xlDown
        ActiveCell.Offset(a, 0).Select
    Wend
    a = Empty: sat = Empty
End Sub

 

[nane]

Murat bey teşekkürler,
Yaklaşık 12100 dolu satır için Her satırın altına bir boş satır açmak için de bir kod verebilirmisiniz?
tşk.

 

[Murat OSMA]

Verdiğim ilk kodu kullanabilirsiniz.