Converter texto para número e inserindo fórmulas pelo vba

Selecionar o Range e executar o código a seguir.

Public Sub Altera()
Dim rngCelula As Range
For Each rngCelula In Selection
rngCelula.FormulaLocal = rngCelula.Value
Next rngCelula
End Sub

Para inserir fórmulas:
Range(“B2”).Formula = “=[depreciação.xlsx]home!$A$2”

Anúncios