Mover fórmula para celula de excel via Marcro

Citação de Kindrazki em 3 de junho de 2016, 11:27

Mover fórmula para celula de excel via Marcro

Sub alterarCelulaparaFormula()
' Move valor de funcao para celulas
' Atalho do teclado: Ctrl+t

Dim Sheet As Worksheet
Dim celula As Range
Dim endereco As String
Dim lMaxRows As Integer

Application.Calculation = xlCalculationAutomatic

lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row

For Each celula In Range("C2:C" & lMaxRows)
endereco = celula.Row
Range("C" & endereco).Select
ActiveCell.Formula = "=IFERROR(D" & endereco & ",0)"

Next

End Sub