Aktif Satırın altına yeteri kadar satır eklemek

[tufan03]

Aktif satırın altına istediğimiz sayıda içinde bulunan veriler ile beraber satır ekleyecek kodu yapamadım.

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya eklermisiniz.

 

[AS3434]

Şu Kodları deneyin.

Sub satırekle()
a = InputBox("Kaç Satır Eklenecek?")
If a = cancel Then Exit Sub
For i = 1 To a
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row).Insert Shift:=xlDown
Next i
Application.CutCopyMode = False
End Sub

 

[tufan03]

Dosyayı ekledim,Sn.Cost Control

 

[tufan03]

Sayın As3434 Teşekkür ederim,İstediğim buydu.

 

[AS3434]

Kodların başına ve sonuna kırmızı yeri ilave edin. Ben 2 ~3 satır olur diye yazmamıştım.

Sub satırekle()
Application.ScreenUpdating = False
a = InputBox("Kaç Satır Eklenecek?")
If a = cancel Then Exit Sub
For i = 1 To a
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row).Insert shift:=xlDown
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub