Aktif Hücrenin Üstüne 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:
Dim Hücre As Range
Sub ÜstüneSatırEkle()
On Error Resume Next
Set Hücre = ActiveCell
Hücre.Rows("1:1").EntireRow.Insert Shift:=xlDown
Hücre.Offset(-1, 0).Value = Date
End SubAçıklama
VBA ile satır eklemenin nasıl yapılması gerektiğini araştıranlar için yol gösterici faydalı bir kod örneğidir. Eklenen hücre fark edilsin diye günün tarihinin otomatik getirilmesi seçeneği eklenmiştir. Gerek görmeyenler bu satırı kaldırabilir.Faydalanılması temennisiyle