Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
#25612
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
#25614
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...
Código: Selecionar todos
    Plan4.Range("E" & Dados).Value = txtQtdeRecAco.Value * 1 'Apenas multiplique por 1 que resolve teu problema
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord