Página 1 de 1

Transferir número válido de uma TextBox para célula

Enviado: 08 Mar 2017 às 10:37
por Celsosilverio
Bom dia!
Tenho um formulário que transfere os valores para as células da planilha. Ocorre que não estou conseguindo formatar para que o número em percentual seja transferido como um número válido para a célula da planilha.
Estou usando esse código: Sheets("BD").Cells(Linha, 4) = Format(UserForm3.TextnovoBox1, "0.00%")
Agradeço desde já.

Re: Transferir número válido de uma TextBox para célula

Enviado: 08 Mar 2017 às 11:18
por alexandrevba
Bom dia!!

Favor ler as regras do fórum!!
viewtopic.php?f=5&t=4
Regra nº 11:
Nós preferimos que os membros não façam postagens cruzadas (quando a mesma postagem é feita em diferentes fóruns). Mas quando isso ocorrer, os membros devem deixar claro os links para as postagens cruzadas.
Favor indicar as postagens cruzadas!
http://www.planilhando.com.br/forum/vie ... 10&t=23860

Att

Transferir número válido de uma TextBox para célula

Enviado: 08 Mar 2017 às 11:19
por Reinaldo
tenha em mente que "ver" na planilha; por exemplo 2,5%; e somente uma mascara de apresentação/visualização.
O valor que o Excel reconhece e "guarda" é 0,025.
Um controle textbox, por default; "passa" seu conteúdo como uma string/texto, assim e preferível "passar valores utilizando uma das funções de conversão tipo cDec ou cDbl. --> cDbl(UserForm3.TextnovoBox1)
Pode tambem experimentar:--> Format(UserForm3.TextnovoBox1, "0.00%")*1

Transferir número válido de uma TextBox para célula

Enviado: 08 Mar 2017 às 11:40
por Celsosilverio
Está dando erro 13

Transferir número válido de uma TextBox para célula

Enviado: 08 Mar 2017 às 13:01
por Reinaldo
melhor disponibilizar seu modelo/arquivo

Re: Transferir número válido de uma TextBox para célula

Enviado: 08 Mar 2017 às 14:19
por Celsosilverio
Segue modelo em anexo

Transferir número válido de uma TextBox para célula

Enviado: 08 Mar 2017 às 16:03
por Reinaldo
Experimente --> Sheets("BD").Cells(Linha, 4) = VBA.Format(UserForm3.TextnovoBox1.Text, "#.##0,00") * 1

Obs.: Formate previamente na planilha a coluna VP% como porcentagem

Transferir número válido de uma TextBox para célula

Enviado: 08 Mar 2017 às 16:16
por Celsosilverio
Simplesmente perfeito Reinaldo. Fico muito grato