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