Tenho a seguinte situação:
Em um celula possuo uma formula com uma subtração, exemplo "=10000-2000", fiz um forms e quero preencher um campo Text para atualizar a formula adicionando um novo valor mantendo a fórmula que ja existia e fiz a seguinte linha de codigo:
Cells(ActiveCell.Row, "I") = Cells(ActiveCell.Row, "I").Formula & "-" & CDbl(TxtPrincipal.Value)
Assim se eu preencher o Txt como 1000 por exemplo, fica "=10000-2000-1000"
Está funcionando perfeitamente com números inteiros, porém se o número for decimal o código da erro 1004
Alguem consegue me dar uma luz? Ja tentei de tudo