VBA Function To Extract Decimal Numbers

[Admin]

Hi,

replace

.Offset(, 5) = Evaluate("if(isnumber(" & x & "),(" & x & "-int(" & x & "))*100," & x & ")")

with

.Offset(, 5) = Evaluate("if(isnumber(" & x & "),round((" & x & "-int(" & x & ")),2)*100," & x & ")")

HTH

[PcMax]

Hallo

Wonderful!

Sub Admin()
    Dim x   As String
    With Range("D2:E" & Range("B" & Rows.Count).End(xlUp).Row)
        x = .Address
        .Offset(, 5) = Evaluate("if(isnumber(" & x & "),round((" & x & "-int(" & x & ")),2)*100," & x & ")")
    End With
End Sub

This code was looking for, you can teach Evaluate method