View Single Post
 
Old 10-08-2014, 10:43 AM
Carchee Carchee is offline Windows 7 64bit Office 2007
Advanced Beginner
 
Join Date: Dec 2013
Posts: 46
Carchee is on a distinguished road
Default

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
Reply With Quote