muhammad susanto
Well-known Member
- Joined
- Jan 8, 2013
- Messages
- 2,077
- Office Version
- 365
- 2021
- Platform
- Windows
hi all..
the macro working well, i want to make "him" as add in,
note : name of sheet is random, how to modify or adapt this code below ;
across posting from Make Add In From A Code
anyone helping thank so much.
.sst
the macro working well, i want to make "him" as add in,
note : name of sheet is random, how to modify or adapt this code below ;
VBA Code:
Sub remove_ku()
Dim rng As Range, i As Long, ii As Long, sm As Object
Set rng = Sheets("Sheet2").UsedRange
With CreateObject("VBScript.RegExp")
.Pattern = "(\d+(\.\d{3})*)(,\d{2})? m3"
For i = 2 To rng.Rows.Count
For ii = 10 To rng.Columns.Count Step 11
If .test(rng.Cells(i, ii).Value) Then
Set sm = .Execute(rng.Cells(i, ii).Value)(0).submatches
rng.Cells(i, ii).Value = Replace(sm(0), ".", ",") & Replace(sm(2), ",", ".")
End If
Next
Next
End With
End Sub
anyone helping thank so much.
.sst