Página 1 de 1
Digitar valor como digitamos nos bancos para efetuar saques.
Enviado: 03 Jun 2016 às 08:52
por GENECI
Bom dia!
Gostaria de digitar esse valor 5694263 do mesmo modo que agente usa nos autoatendimento dos bancos para saque.
O primeiro número entra como unidade de centavos, o segundo número entra como dezena de centavos,
e assim segue a medida que vou digitando o valor vai se ajustando e convertendo.
Obs.: Para todas as células da planilha
Acredito que ficou claro a minha dúvida.
Grato - GENECI.
Re: Digitar valor como digitamos nos bancos para efetuar saq
Enviado: 04 Jun 2016 às 11:49
por gfranco
Bom dia GENECI. Veja se o exemplo anexo ajuda.
At
Gfranco.
Digitar valor como digitamos nos bancos para efetuar saques.
Enviado: 04 Jun 2016 às 12:57
por GENECI
Boa tarde! gfranco.
Muito obrigado por atender a minha solicitação.
É praticamente isso que você elaborou, porém tem uma pequena diferença quando digito 123244 o valor convertido fica em 1232,44 o qual deveria converter para 1.232,44 adicionando o ponto separando a unidade de milhar.
Por favor pode alterar o VBA para exibir esse recurso.
Muito obrigado - GENECI.
Re: Digitar valor como digitamos nos bancos para efetuar saq
Enviado: 04 Jun 2016 às 16:17
por Kledison
Boa tarde,
o exemplo que o colega postou não foi em VBA, ele fez formatação personalizada de números, em VBA seria como no GIF abaixo, verifica se é o que pretende.
Att
Digitar valor como digitamos nos bancos para efetuar saques.
Enviado: 05 Jun 2016 às 08:30
por GENECI
Bom dia! Kledison Lana
Obrigado por atender a minha dúvida.
O que eu preciso é exatamente como no arquivo GIF que você elaborou.
Porém não cheguei a conclusão porque tenho que teclar enter para o número ser convertido.
Por favor, você disponibilizar a planilha com esse recurso.
Muito - Obrigado
Re: Digitar valor como digitamos nos bancos para efetuar saq
Enviado: 06 Jun 2016 às 11:49
por Kledison
Bom dia,
segue anexo conforme solicitado, tente adaptar ao que você precisa.
Att
Digitar valor como digitamos nos bancos para efetuar saques.
Enviado: 06 Jun 2016 às 14:03
por GENECI
Boa tarde! Kledidson Lana
Muito obrigado, pela contribuição más não atende a minha necessidade.
Eu preciso digitar em qualquer célula da planilha.
Com o procedimento que você estabeleceu eu não consegui registrar os dados na célula desejada teclando enter ou muito menos teclando Esc.
Por exemplo quero digitar em qualquer célula o valor 7483614 automaticamente o procedimento VBA vai converter o número para o valor de 74.836,14
Muito obrigado,
GENECI.
Digitar valor como digitamos nos bancos para efetuar saques.
Enviado: 06 Jun 2016 às 14:29
por Parkeless
Boa tarde!
Seria isso? (anexo)
O que fiz foi fazer um worksheet_change, para que qualquer valor numérico inserido na planilha seja dividido por 100.
Código: Selecionar todosDim Ismacro As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Ismacro = True Then Exit Sub
Ismacro = True
If IsNumeric(Target) And Target <> "" Then
Target = Target / 100
End If
Ismacro = False
End Sub
Re: Digitar valor como digitamos nos bancos para efetuar saq
Enviado: 06 Jun 2016 às 14:45
por MarceloCezario
Pelo que entendi, para fazer o que quer basta formatar as células como "Personalizado" e o tipo ficará:
#.##0,00
Veja se é isso.