Letras mayusculas

La función MAYUSC no es para ese tipo de aplicación. Te serviría para copiar
el texto de una celda en otra pero convertido a mayúscula.

Por ejemplo, si en A1 tienes tu nombre (mayúsculas y minúsculas), en B1
podrías poner =MAYUSC(A1). Luego, si tu objetivo fuera que la celda original
se convirtiera a mayúscula, tendrías que copiar el contenido de B1, y
ejecutar un "pegado especial de texto" sobre A1 para finalmente borrar el
contenido de B1.

¿Demasiado lío, no?

La alternativa entonces, sería atacar el problema por programación. Prueba
el siguiente código:

Sub mayuscX()
Dim rng As Range, c As Range
Application.ScreenUpdating = False
If TypeOf Selection Is Range Then
On Error Resume Next
Set rng = Selection.Cells.SpecialCells( _
xlCellTypeConstants, xlTextValues)
For Each c In rng
c.Value = UCase(c.Value)
Next
End If
Application.ScreenUpdating = True
End Sub

Con él, puedes seleccionar un rango de celdas, ya sea contínuo o un grupo de
rangos no adyacentes, y al ejecutarlo, te convertirá las celdas que contengan
texto en mayúsculas.

Otra posibilidad sería interceptar el evento Worksheet_Change, para cambiar
el texto a mayúsculas siempre que haya un cambio en la hoja. Si pensamos
sólo en la celda F1, podríamos hacer algo como lo siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then
Target.Value = UCase(Target.Value)
End If
End Sub

Si lo necesitas para toda la hoja, sólo quita la línea del If, y la línea
del End IF.

Comentas...



"Fran" escribió:

Me podría decir alguien como hacer para que si escribo en una celda en
minúsculas apareciera las letras mayúsculas, yo lo intento hacer con
la formula MAYUSC pero me da un error.