Microsoft Office Forums - View Single Post - Search a cell that contains words and numbers and convert the numbers to metric

Carchee · 10-08-2014, 10:43 AM

Nice, I had to alter the code a bit to get it to work. This is what I did:

Code:

  If InStr(StrConv, "-") > 0 Then
                StrConv = Split(StrConv, "-")(0) + Split(Split(StrConv, "-")(1), "/")(0) / Split(Split(StrConv, "-")(1), "/")(1)
                Else
               If InStr(StrConv, "/") > 0 Then
                  StrConv = Split(StrConv, "/")(0) / CSng(Split(StrConv, "/")(1))
                End If
              End If

It all works nicely and I don't get any errors and I don't have to create another sheet to get the job done.

If I decide to use the superscript Sub how would I go through and delete the carrot '^' after it is superscripted so just the number is left? I tried using a replace which did delete the '^' symbol but it was un-superscripting the numbers. I used the following code:

Code:

With .Cells(i, 3)
    Columns("C").Replace what:="^", replacement:=""
    End With

After the 'Next' and before the 'End With' 'Application.ScreenUpdating = True' at the end of the whole Sub