Excelde Vba İle Yeni Kayıt Eklerken Satır Çizgi Renk Vs Satır Özellikleriyle Eklemek

(14/01/2020, 16:08)accessman yazdı: eğer sayfada belirtecek olsaydık nasıl yazmamız gerekirdi

With sheets("Sayfa1")
lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
.Rows(lastrow).Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
.Rows(lastrow).EntireRow.Copy
.Rows(lastrow).Offset(1).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End with