Formato Celda

hola, JR !

... formato de celda... para introducir por ejem: M61420
... que se muestre en celda la letra M en tamaño 8
... y los numeros como subindice o en tamaño 6 [...]

- [hasta donde se] ningun formato [ni personalizado ni condicional] 'acepta' [o permite]...
una 'mezcla' de tamaños, colores y tipos de fuente en una celda o rango :(
- podrias dar formato 'parcial' [y manualmente] a grupos de carcteres en dichas celdas
y... si lo puedes hacer 'a mano'... tambien lo puedes hacer por macros :))
suponiendo que siempre es EL PRIMER caracter y... 'el resto' de los caracteres
y... que [solamente] se 'afectaran' los rangos [p.e.] 'A1', 'B2:C3', 'D4' y 'E5:F6' [o los que necesites]
prueba con las siguientes lineas de codigo...

si cualquier duda... ¿comentas?
saludos,
hector.
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1,b2:c3,d4,e5:f6")) Is Nothing Then Exit Sub
If Target.Count > 1 Then ActiveCell.Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1,b2:c3,d4,e5:f6")) Is Nothing Then Exit Sub
If Len(Target) < 2 Or Target.HasFormula Then Exit Sub
With Target
' puedes eliminar la siguiente linea... si tu fuente normal es de tamaño 8
.Characters(1, 1).Font.Size = 8
' prueba y 'fija' la opcion que mejor te sirva: menor tamaño, o sub-indice
.Characters(2).Font.Size = 6
' .Characters(2).Font.Subscript = True
End With
End Sub

La verdad es que no he probado todavía esta solución tuya, porque estoy
enfrascado con otra que encontre en este grupo de excel en un post de
noviembre
en ella Benito Merino propone lo siguiente. Aunque a mi no me rula, podrías
copiarlo tu y ver si te va o darle un vistazo por si me estoy equivocando en
algo.
te transcribo el codigo a continuacion pero tambien queria hacer una
observacion soy nuevo en este grupo y no se que pasa que me cuesta bastante
entrar me da continuos errores y no me permite iniciar mi cuenta net desde el
boton de la página. os pasa a vosotros lo mismo????
gracias y voy con lo que me ocupa. si te funcionara por favor mandame el
adjunto a

Saludos y gRacias
El siguiente evento aplica el formato subindice a los números contenidos
dentro de una cadena de texto

Cuando se produzca una modificación en las celdas C2:C20, cambia el formato
a subíndice en las posiciones numéricas de la cadena.



Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Range("C2:C20"), Target) Is Nothing Then
Application.EnableEvents = False
valformula = Target.Value
For a = 1 To Len(valformula)
If IsNumeric(Mid(valformula, a, 1)) Then
ActiveCell.Characters(Start:=a, Length:=1).Font.Subscript = True
End If
Next
End If
Application.EnableEvents = True
End Sub



"Héctor Miguel" escribió:

hola, JR !

> ... formato de celda... para introducir por ejem: M61420
> ... que se muestre en celda la letra M en tamaño 8
> ... y los numeros como subindice o en tamaño 6 [...]

- [hasta donde se] ningun formato [ni personalizado ni condicional] 'acepta' [o permite]...
una 'mezcla' de tamaños, colores y tipos de fuente en una celda o rango :(
- podrias dar formato 'parcial' [y manualmente] a grupos de carcteres en dichas celdas
y... si lo puedes hacer 'a mano'... tambien lo puedes hacer por macros :))
suponiendo que siempre es EL PRIMER caracter y... 'el resto' de los caracteres
y... que [solamente] se 'afectaran' los rangos [p.e.] 'A1', 'B2:C3', 'D4' y 'E5:F6' [o los que necesites]
prueba con las siguientes lineas de codigo...

si cualquier duda... ¿comentas?
saludos,
hector.
en el modulo de codigo de 'esa' hoja ==> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1,b2:c3,d4,e5:f6")) Is Nothing Then Exit Sub
If Target.Count > 1 Then ActiveCell.Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1,b2:c3,d4,e5:f6")) Is Nothing Then Exit Sub
If Len(Target) < 2 Or Target.HasFormula Then Exit Sub
With Target
' puedes eliminar la siguiente linea... si tu fuente normal es de tamaño 8
.Characters(1, 1).Font.Size = 8
' prueba y 'fija' la opcion que mejor te sirva: menor tamaño, o sub-indice
.Characters(2).Font.Size = 6
' .Characters(2).Font.Subscript = True
End With
End Sub