seçili satırdan başlayıp istenen sayıda satır eklemek

[necip54]

Herekese iyi günler,
Excel de herhangi bir satır seçildikten sonra altına gelecek şekilde istenen sayıda satırı üstteki satırda olan tüm formüller ve her türlü formatlarıyla beraber eklemek istiyorum, sadece satır ekleyen makro örnekleri var fakat üstteki satırın formülleri ve formatlarını kopyalatamadım. Yardım eden olursa teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Kopyalamak istediğiniz satırı seçin. Sonra seçtiğiniz satırın satır numarası üstündeyken mouse ile sağ klik yapıp kopyala deyin. Daha sonra bir alt satırdan itibaren kaç satır kopyalama yapmak istiyorsanız o kadar satırı seçip yine sağ klik yapın. Ve ordanda çıkan menüden kopyalanan hücreleri ekle deyin.

 

[necip54]

Sn cost control teşekkürler,
ben makrolu bir çözüm istiyordum, bu sizin tavsiyeniz herkezin kullandığı bir yöntem. Ã?zür dilerim galiba ben sorumu eksik sormuşum.
Sayfa koruması var ve ancak A4 e sığacak kadar veriler ve fomüller var, satırlarda baştan aşağı çeşitli kolonlarda en alt satıra kadar birbirini takip eden aynı formüller ve yukarıdan aşağıya doğru aynı olan çok değişik formatlar hatta çeşitli veri doğrulama ve kısıtlamalar var. İşin en kötü tarafı bu sayfayı exceli çok az bilenler yani sadece veri girecekler kullanacak ve bazen satır sayısı yetmiyeceği anlaşılınca son satıra gelmeden bir kaç satır ilave edilmesi gerekecek.Yani eklenecek satırlar araya girecek ve üstteki her türlü formüller ve formatlar ilave edilen satırlara da uygulanacak ve alttaki diğer satırlardaki formüllere devam edecek şekilde olacaktır. Bu da maalesef makrosuz olmaz.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Ã?ncelikle satırı seçin ve makroyu bağladığınız butonu tıklayın.

[vb:1:f0e1ac9a55]Sub ekle()
eklemeadedi = InputBox("EKLEME SAYISINI GİRİNİZ")
If eklemeadedi = "" Then Exit Sub
For a = 1 To eklemeadedi
Selection.Rows.Copy
Selection.Insert
Next
Application.CutCopyMode = False
End Sub[/vb:1:f0e1ac9a55]

 

[necip54]

Sn Leventm çok teşekkürler.