Birden Çok Satır Ekleme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub CokluSatirEkle()
Dim i As Integer
Dim j As Integer
ActiveCell.EntireRow.Select
On Error GoTo Last
i = InputBox("Eklenecek satır sayısını yazın", "Satır Ekle")
For j = 1 To i
Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove
Next j
Last: Exit Sub
End SubAçıklama
Birden Çok Satır Ekleme işlemi, metinlerinizi daha düzenli ve okunaklı hale getirmenizi sağlar.Faydalanılması temennisiyle