Este fórum está sendo desativado

[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.

[gfranco]

Bom dia GENECI. Veja se o exemplo anexo ajuda.
At
Gfranco.

[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.

[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

[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

[Kledison]

Bom dia,

segue anexo conforme solicitado, tente adaptar ao que você precisa.

Att

[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.

[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 todos

Dim 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

[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.