Value in a .Txt Converted to Value in vba

[Juve]

Hi, I'm ceating a macro that converts a .txt file in an Excel file, but the .txt has the negative numbers with the minus at the right end side, i.e. 242.00-
how could I convert this to the color Red (242.00) ???
Thanks in advance.

 

[VoG]

Data >Text to Columns has an option for trailing minus in the Advanced settings.

 

[Juve]

Thank you so much for your quick Response Peter, but do you know how to do this in visual Basics??? I'm Trying this, but it doesn't work because the report shown by my ERP shwos the negative values with the minus sign at the right...

Range("G:G").Select
Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"

Thanks in Advance.
Juve.

 

[VoG]

Try

Sub atest()
Dim LR As Long, i As Long
LR = Range("G" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("G" & i)
        If Right(.Value, 1) = "-" Then .Value = -1 * Left(.Value, Len(.Value) - 1)
    End With
Next i
Range("G1:G" & LR).NumberFormat = "#,##0.00_);[Red](#,##0.00)"
End Sub

 

[Juve]

Great !!! Thank you very much. this instructions work perfectly.
Greetings From Mexico.
Have a good day Peter.

Juve.