15/01/2020, 16:03
(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