JotaPêAh!

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

em 31/10/2010 20:49:41

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”


%d blogueiros gostam disto: