SATIR EKLEME(satırdaki değerin bir eksik kadar sayıda alta satır açmak)

[qwertyemre]

Merhaba Benim sorunum satır ekleme ile ilgili. Forumda arama yaptım Sub Ekle ile başlayan makro kodları buldum ama istediğim gibi değiştiremedim. Tam istediğim satırdaki değerin bir eksiği kadar sayıda alta satır açmak.
Sorumla ilgilenirseniz memnun olurum.
Şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub satirekle()
For a = [e65536].End(3).Row To 4 Step -1
If Cells(a, "e") > 1 Then Rows(a + 1 & ":" & a + Cells(a, "e") - 1).Insert
Next
End Sub

 

[Necdet]

Aşağıdaki Kodları deneyebilir misiniz?

Public Sub Ekle()
For i = [E65536].End(3).Row To 4 Step -1
If Cells(i, "E") > 1 Then
Rows(i + 1 & ":" & i + Cells(i, "E") - 1).Insert
End If
Next i
End Sub

Geç kalmışım

 

[qwertyemre]

Saygılar Sorunum çözüldü.

 

[snx111]

peki bunu bir satır atla bir satır sil olarak nasıl yapardık ?