- Codice: Seleziona tutto
Public Sub insertRowBelow()
ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End Sub
Avevo pensato di inserire in una cella inutilizzata del foglio la formula che mi interessa. Dopodiché, implementare la mia macro con dei comandi in grado di copiare la cella contenente la formula e di incollarla alla cella della nuova riga che la macro mi aggiunge automaticamente.
Così operando, come si riscrive la macro di sopra?