Keep trailing zero with VBA

[justforgroups]

Hi,
A value in a cell is "3,500". I convert all to text format and then remove the quotes. Removing the quotes causes the last zero to disappear, so the cell now contains: 3,50

Worksheets(gs_sheet).Range(sRange).NumberFormat = "@" 'text

Worksheets(gs_sheet).Range(sRange).Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

Appreciate any idea on how to fix this problem please!

Thanks.

 

[Richard Schollar]

Try it like this:

Dim c As Range
 
With Worksheets(gs_sheet)
  .Range(sRange).NumberFormat = "@"
  For Each c In .Range(sRange)
    c.Value = Replace(c.Value,Chr$(34),"")
  Next c
End With

 

[justforgroups]

[SOLVED] Re: Keep trailing zero with VBA

Perfecto! Thanks.

Try it like this:

Dim c As Range
 
With Worksheets(gs_sheet)
  .Range(sRange).NumberFormat = "@"
  For Each c In .Range(sRange)
    c.Value = Replace(c.Value,Chr$(34),"")
  Next c
End With