Replace function for partial characters

[GerrardSVK]

Hi everyone could someone help me I just need to write simple macro that will change number from this format: 1.234 into format using comma instead of dot : 1,234
Also I need to change sign of degrees into nothing. So if there will be some number like this 1.234° final result will be 1,234.

I tried this but dont work:
Sub Replace()

Workbooks(2).ActiveSheet.Range("G9:G136").Replace What:=".", Replacement:=","
Workbooks(2).ActiveSheet.Range("G9:G136").Replace What:="°", Replacement:=""

End Sub

I think there have to be additional xlPart defined or something.

 

[Legacy 143009]

Is dot a decimal holder or thousands holder?

 

[GerrardSVK]

Is dot decimal holder or thousands holder?

yes

 

[Legacy 143009]

Yes what? decimal or thousands?

 

[GerrardSVK]

yes

Its decimal

 

[GerrardSVK]

Yes what? decimal or thousands?

Decimal I translate it wrongly sorry buddy :D

 

[Legacy 143009]

This is the best way I can do:

Sub test()
  Call ReplaceDecimal(Range("G9:G136"))
  Call ReplaceDegree(Range("G9:G136"))
End Sub
Sub ReplaceDecimal(rng As Object)
  For Each r In rng
    r.Value = "'" & Replace(r.Text, ",", ".")
  Next
End Sub
Sub ReplaceDegree(rng As Range)
  For Each r In rng
    r.Value = "'" & Replace(r.Text, "°", "")
  Next
End Sub

 

[GerrardSVK]

This is the best way I can do:

Sub test()
  Call ReplaceDecimal(Range("G9:G136"))
  Call ReplaceDegree(Range("G9:G136"))
End Sub
Sub ReplaceDecimal(rng As Object)
  For Each r In rng
    r.Value = "'" & Replace(r.Text, ",", ".")
  Next
End Sub
Sub ReplaceDegree(rng As Range)
  For Each r In rng
    r.Value = "'" & Replace(r.Text, "°", "")
  Next
End Sub

r is not defined what is it?

 

[Legacy 143009]

Ok try lşke this

Sub test()
  Call ReplaceDecimal(Range("G9:G136"))
  Call ReplaceDegree(Range("G9:G136"))
End Sub
Sub ReplaceDecimal(rng As Object)
  Dim r as Range
  For Each r In rng
    r.Value = "'" & Replace(r.Text, ",", ".")
  Next
End Sub
Sub ReplaceDegree(rng As Range)
  Dim r as Range
  For Each r In rng
    r.Value = "'" & Replace(r.Text, "°", "")
  Next
End Sub

 

[GerrardSVK]

Ok try lşke this

Sub test()
  Call ReplaceDecimal(Range("G9:G136"))
  Call ReplaceDegree(Range("G9:G136"))
End Sub
Sub ReplaceDecimal(rng As Object)
  Dim r as Range
  For Each r In rng
    r.Value = "'" & Replace(r.Text, ",", ".")
  Next
End Sub
Sub ReplaceDegree(rng As Range)
  Dim r as Range
  For Each r In rng
    r.Value = "'" & Replace(r.Text, "°", "")
  Next
End Sub

I tried this but I need to define other workbook is this correct? I tried this but didnt work for me.

Sub test()
  Call ReplaceDecimal(Workbooks(2).ActiveSheet.Range("G9:G136"))
  Call ReplaceDegree(Workbooks(2).ActiveSheet.Range("G9:G136"))
End Sub
Sub ReplaceDecimal(rng As Object)
  Dim r As Range
  For Each r In rng
    r.Value = "'" & Replace(r.Text, ",", ".")
  Next
End Sub
Sub ReplaceDegree(rng As Range)
  Dim r As Range
  For Each r In rng
    r.Value = "'" & Replace(r.Text, "°", "")
  Next
End Sub