Ir ao conteúdo
  • Cadastre-se

MACRO - Converter valores padrão Americano para Brasileiro.


Pet79SP

Posts recomendados

Boa Tarde Féras,

Eu procurei aqui no forum e não encontrei, então gostaria da ajuda de vocês, por favor pessoal.

Eu gero uma planilha de estoque todos os dias, porém os valores vem assim:

1,000.00 (Padrão Americano) e eu preciso dele assim 1000,00 (Padrão brasileiro).

Hoje para usar a planilha eu seleciono todas as linhas, substituo "Vírgula" por "vazio" e depois "Ponto" por "Vírgula".

Alguem pode me ajudar com uma macro ou algum VBA na folha da planilha para que isso ocorra automático?

Muito Grato,

Pet

Eu fiz essa MACRO:

Sub Teste_Valores()

'

' Teste_Valores Macro

'

'

Columns("T:U").Select

Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Range("T1").Select

End Sub

Mas os valores ficam em texto e eu gostaria em numeros!

E se puderem me orientar se é possivel colocar isso na folha (Guia). assim, sempre que eu colar uma nova planilha na guia, essas alterações ocorram simuntaneamente.

Link para o comentário
Compartilhar em outros sites

Selecione os valores, quantos quiser, e rode o código.

Sub TextoParaNúmero()
Dim num As Range
For Each num In Selection
num.Value = --(Replace(Replace(num.Value, ",", ""), ".", ","))
num.NumberFormat = "#,##0.00"
Next num
End Sub

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...