VBA Code To Turn Last Number Of Cell In Superscript Format

[raindrop]

Hi !

I want vba code to turn last number in superscript format in column C and if possible a formula for if any value of column A after decimal >= 50 should turn in round up value.
Please have a look at picture attached.

Thanks & Regards
Raindrop

[Rudi]

Hi Raindrop,

The formula you need for the second part of your question is this:
=IF(A1-INT(A1)>=0.5,ROUNDUP(A1,0),A1)

[Rudi]

The code you can use is this:

It will convert the last character in all the cells in your selection to a superscript.
Select the cells to process and run the macro/

Code: Select all

Sub SuperscriptChar()
Dim i As Long
For i = 1 To Selection.Cells.Count
    Selection.Cells(i).Characters(Start:=Selection.Cells(i).Characters.Count, _
        Length:=1).Font.Superscript = True
Next i
End Sub

[raindrop]

Thank You Rudi Sir,
You made my work easy. Could you please modify code - on enabling macro when opening workbook superscript macro automatically work for column C of sheet2 so selection is not required for every time.

Thanks & Regards
Raindrop

[Rudi]

Here is the code...
Make sure you put it in the ThisWorkbook module.

Code: Select all

Private Sub Workbook_Open()
Dim i As Long, rRng As Range
    Set rRng = Worksheets(2).Range("C1", Worksheets(2).Range("C" & Rows.Count).End(xlUp).Cells)
    Application.ScreenUpdating = False
    For i = 1 To rRng.Count
        rRng.Cells(i).Characters(Start:=rRng.Cells(i).Characters.Count, _
                                 Length:=1).Font.Superscript = True
    Next i
    Application.ScreenUpdating = True
End Sub

2014-03-23_11h36_58.jpg

[raindrop]

Thank You Rudy sir,
Your code and formula both works great !

Thanks & Regards
Raindrop

[Becks]

If the last number is always a 3, then a non-VBA solution is to replace 3 with ³ (Alt 0179 - hold down Alt key and enter 0179 using keypad)

regards
Becks

[raindrop]

Thank You Sir for another option.

Thanks & Regards
Raindrop