Cadena con superindice

[RAFAEL DE LA TORRE]

Saludos compañeros de foro, aqui os dejo una pequeña solucion para poner superindices en una cadena por ejemplo cm3. La cadena que se ponga en a1 el ultimo caracter sera el superindice en cualquier celda activa, por cierto solo lo he probado con cadenas no con numeros pero seguire investigando

Saludos

CADENA.zip

[Antoni]

Hola:

Muy ingenioso, me lo guardo en mi carpeta de ExcelTools.

Saludos.

[verzulsan]

Hola Rafael y Antoni,

Estoy con master Antoni, muy ingenioso. Aqui te dejo una version simplificada de la macro quitando toda la parafernalia del grabador de macros:

Sub macro8()

    ActiveCell = Cells(1, 1).Formula

    mcadena = Range("a1")

    ActiveCell.Characters(Start:=Len(mcadena), Length:=1).Font.Superscript = True

End Sub[/CODE]

Un saludo!

[RAFAEL DE LA TORRE]

gracias por hacerla mas simple