Satır ekle

[polis-53]

Arkadaşlar sayfada bir buton ekleyerek her dolu satırın arasına her tıklanışta bir satır ekleyecek yardımlarınızı bekliyorum

 

[halit3]

Aşağıdaki linkte bu sorunuzu ömer bey cevap yazmış sorununuz çözülmedimi

işte kod A sütünunda her dolu satıra bir satır ekliyor


http://www.excel.web.tr/showthread.php?p=433727#post433727

Sub SatirEkle()
Application.ScreenUpdating = False
Dim i As Double
For i = [A65536].End(3).Row To 2 Step -1
If Cells(i, "A").Value <> "" Then
Rows(i).Insert Shift:=xlDown
End If

Next i
Application.ScreenUpdating = True
End Sub