Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
John Player Special

formatação de ponto - vba

Mensagem Recomendada

temos um arquivo que eh alimentado por planilhas.

porem, ele eh no formato xml, e soh aceita numeros no formato de ponto, e inteiros sem casas.

ex:

1532,27 deve aparecer no arquivo como 1532.27

109.502,02 deve aparecer no arquivo como 109502.02

30,00 deve aparecer no arquivo como 30

1,5 deve aparecer no arquivo como 1.5

5,00 deve aparecer no arquivo como 5

entao, puxar o numero pra planilha que colo no arquivo já consigo. porem, ele traz o formato brasileiro, com virgula.

tem como eu usar o Format para transformar ele no formato que preciso?

Compartilhar este post


Link para o post
Compartilhar em outros sites

verifiquei uma forma bem braçal de fazer, aqui passa o contrario, mas é facil ver no codigo o q deve ser mudado

Dim vCelulas As Range
   Dim ValorOrigem As String
   Dim NovoValor As String
   On Error Resume Next
    
   Set sbx = Plan1.Range("C1:C25")
   For Each vCelulas In sbx.Cells.SpecialCells(xlConstants, xlTextValues)
      ValorOrigem = vCelulas.Value
      NovoValor = ""
    
         
      For i = 1 To Len(ValorOrigem)
          If Mid(ValorOrigem, i, 1) = "." Then
             NovoValor = NovoValor & ","
          ElseIf Mid(ValorOrigem, i, 1) = "," Then
             NovoValor = NovoValor & "."
          Else
             NovoValor = NovoValor & Mid(ValorOrigem, i, 1)
          End If
      Next i
       
      On Error Resume Next
      vCelulas.Value = CDbl(Trim(NovoValor))
      On Error GoTo 0
         On Error Resume Next
      
   Next vCelulas

tem esse link tmb q pode ajudar

http://www.maximoaccess.com/t3302-resolvidosubstituir-a-virgula-por-ponto-em-codigo-de-conversao-de-valores

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...