Satırları Belirttiğim sayı kadar aşağılara eklemek

[YILDIRIM66]

Satırları Belirttiğim sayı kadar aynı satırın altına nasıl ekleyebilirim?

[zafer]

Merhaba

tam olarak anlayamadığım için iki makro gönderiyorum
1.sadece boş satıs ekler.
2.aktif hücrenin değerini ekler

Sub SatırEkle()

s = InputBox("insert satır")

For j = 1 To s
ActiveCell.Offset(1, 0).Insert Shift:=xlDown
Next j



End Sub

Sub degerekle()

s = InputBox("insert satır")

For j = 1 To s
deger = ActiveCell.Value
ActiveCell.Offset(1, 0).Insert Shift:=xlDown
ActiveCell.Offset(1, 0) = deger
Next j


End Sub

saygılarımla

[YILDIRIM66]

çok teşekkür ederim

[YILDIRIM66]

Ama Bu makro sadece aktif hücreyi alta kopyalıyor ben satırı komple alta kopyalatmak istiyorum..

[xxrt]

Siz Diyelimki 4.Satırın Tamamını Belirliyeceğiniz adet kadar,4.Satırın aynısınımı çoğaltmak istiyorsunuz yani verilerle birlikte?..

[YILDIRIM66]

evet aynen öle yapılabilirmi?

[YILDIRIM66]

4.Satırın Tamamını Belirliyeceğim adet kadar,4.Satırın aynısınımı çoğaltmak istiyorum yani verilerle birlikte mümkün mü??

[xxrt]

Dosyayı Bir inceleyin.

[YILDIRIM66]

Çok teşekkür ediyorum..Büyük sevaba girdiniz....

[veyselemre]

yardımcı olursa sevinirim