format text in cell

I am trying to enter distances in Excel cells and want the feet to be
normal script and the inches be in underlined superscript. Is there a
VBA code that will automatically convert the last two digits entered
into the cell? Any help will be appreciated.

Sub AAA()
With ActiveCell.Characters(Len(ActiveCell.Value) - 1, 2).Font
.Superscript = True
.Underline = True
End With

End Sub

possibly. This only works with constant values - not cells containing
formulas.

--
Regards,
Tom Ogilvy




<[email protected]> wrote in message
news:[email protected]...
> I am trying to enter distances in Excel cells and want the feet to be
> normal script and the inches be in underlined superscript. Is there a
> VBA code that will automatically convert the last two digits entered
> into the cell? Any help will be appreciated.
>

How do I get this only in selected cells? I have two columns (separated
by several rows) so I have 4 printable sheets. I only want the
"Measurement" cells to format this way, not the other, "Description,"
cells.

Sub AAA()
for each cell in Range("A2:A20,C2:C20,D2:E20")
With Cell.Characters(Len(Cell.Value) - 1, 2).Font
.Superscript = True
.Underline = True
End With
Next
End Sub

Change the range reference to match the layout of your data.

--
Regards,
Tom Ogilvy



"L Scholes" <[email protected]> wrote in message
news:[email protected]...
> How do I get this only in selected cells? I have two columns (separated
> by several rows) so I have 4 printable sheets. I only want the
> "Measurement" cells to format this way, not the other, "Description,"
> cells.
>

I used this code in both a module and the code for Sheet1 and it
doesn't seem to have any effect.??? (When I get this sheet working I
will change the references as appropriate.)

Sub AAA()
For Each Cell In Range("C5:C59,D5:D59")
With Cell.Characters(Len(Cell.Value) - 1, 2).Font
.Superscript = True
.Underline = True
End With
Next
End Sub

This is called rich text formatting and can only be done on cells that
contain TEXT Constants (not numbers, not formulas). If your cells contain
numbers, then you would modify it to make them text as I have done below


Sub AAA()
For Each Cell In Range("C5:C59,D5:D59")
cell.Value = "'" & cell.Text
With Cell.Characters(Len(Cell.Value) - 1, 2).Font
.Superscript = True
.Underline = True
End With
Next
End Sub


--
Regards,
Tom Ogilvy

"L Scholes" <[email protected]> wrote in message
news:[email protected]...
> I used this code in both a module and the code for Sheet1 and it
> doesn't seem to have any effect.??? (When I get this sheet working I
> will change the references as appropriate.)
>
> Sub AAA()
> For Each Cell In Range("C5:C59,D5:D59")
> With Cell.Characters(Len(Cell.Value) - 1, 2).Font
> .Superscript = True
> .Underline = True
> End With
> Next
> End Sub
>

I used this code in both a module and the code for Sheet1 and it
doesn't seem to have any effect.??? (When I get this sheet working I
will change the references as appropriate.)

Sub AAA()
For Each Cell In Range("C5:C59,D5:D59")
With Cell.Characters(Len(Cell.Value) - 1, 2).Font
.Superscript = True
.Underline = True
End With
Next
End Sub

What do you have stored in the cells?

--
Regards,
Tom Ogilvy

"L Scholes" <[email protected]> wrote in message
news:[email protected]...
> I used this code in both a module and the code for Sheet1 and it
> doesn't seem to have any effect.??? (When I get this sheet working I
> will change the references as appropriate.)
>
> Sub AAA()
> For Each Cell In Range("C5:C59,D5:D59")
> With Cell.Characters(Len(Cell.Value) - 1, 2).Font
> .Superscript = True
> .Underline = True
> End With
> Next
> End Sub
>