Guru do Excel e Power BI

Prezados,
Preciso de uma luz.

Eu tenho um rotina que insere a quantidade em dois lugares na planilha, na coluna E e na O.
Quando grava a informação na coluna E dá certo... mas quando vai para a O não, ele entende como texto e como ele faz um cálculo para inserir na coluna O, ele arredonda. Sinto que o problema está na rotina abaixo, mas não consigo resolver:
*Obs: Não achei lugar para anexar a planilha, inseri a img e a planilha nesse link: https://drive.google.com/drive/folders/ ... sp=sharing

Sub AtualizarEstoque()

Dim tot As Long
Dim qtde As Long
Range("N12").Select

qtde = txtQtdeRecAco
tot = 0

txtQtdeRecAco.Value = Format(txtQtdeRecAco.Value, "0.00")

Do While ActiveCell <> ""
If ActiveCell = cbxTipoAco Then
tot = (tot + txtQtdeRecAco) + ActiveCell.Offset(0, 1)
ActiveCell.Offset(0, 1) = tot
End If
ActiveCell.Offset(1, 0).Select
Loop

MsgBox "Estoque atualizado: " & vbCrLf & cbxTipoAco & " = " & tot, vbInformation

End Sub

Gabriela
Bom dia,

Baixei mais não consegui executar teu form, acredito que esteja com alguma referencia que preciso ativar, porém pelo que pude observar, este tipo de erro é facilmente corrigido apenas multiplicando o TextBox por 1, veja no exemplo abaixo no momento de gravação, apenas multipliquei... Faça isso sempre que for utilizar este campo em teu código...

Oi, Wesley.
Obrigada pelo interesse.
Mas não deu certo.

Para abrir o form você precisa criar uma Listview... só assim ele vai funcionar.