Notifications
Clear all

Como apresentar PONTO ao invés de VÍRGULA

3 Posts
2 Usuários
0 Reactions
719 Visualizações
(@johnnyb)
Posts: 2
New Member
Topic starter
 

Olá a todos, possuo um código em VBA que funciona da seguinte maneira.

Eu faço uma seleção no excel e clico em um botão para executar o código VBA. Quando o código é executado, ele pega toda minha seleção e copia ela dentro de um arquivo TXT.
Basicamente, eu escolho na planilha o que eu desejo enviar para um arquivo .txt e o código faz isso aplicando algumas configurações.
Porém os numero tanto na planilha quanto no arquivo criado estão usando VÍRGULA e eu gostaria que fossem usados PONTOS. Por exemplo:

10,2596 ou 10,33369 ou 561,221 -> errado
10.2596 ou 10.33369 ou 561.221 -> certo

É possível aplicar isso direito ao código?
Desde já agradeço a todos.
Segue abaixo o código:


Sub CommandButton1_Click()
Dim myFile As String, cellValue As String
Dim rng As Range
Dim i As Integer, j As Integer

myFile = Application.GetSaveAsFilename(InitialFileName:=vbNullString, FileFilter:="Text Files (*.data),*.data")
Set rng = Selection

Open myFile For Output As #1

For i = 1 To rng.Rows.Count
    For j = 1 To rng.Columns.Count
        If j = 1 Then
            cellValue = rng.Cells(i, j).Value
        Else
            cellValue = cellValue & ";" & rng.Cells(i, j).Value
        End If
    Next j
    Print #1, cellValue
Next i

Close #1

End Sub

 
Postado : 16/05/2016 8:16 am
Basole
(@basole)
Posts: 487
Reputable Member
 

Tente usar o replace para substituir um caracter por outro:

cellValue = VBA.Replace(cellValue, ",", ".") & ";" & VBA.Replace(rng.Cells(i, j).Value, ",", ".")

Click em se a resposta foi util!

 
Postado : 16/05/2016 9:21 am
(@johnnyb)
Posts: 2
New Member
Topic starter
 

Resolvido Obg!

 
Postado : 17/05/2016 6:17 am