Minúsculas

Sub mayucolu()
For Each cell In Selection
ActiveCell.Formula = UCase(ActiveCell.Formula)
ActiveCell.Offset(1).Select
Next cell
End Sub
La función anterior me la proporcionaste para convertir a mayúsculas, me puedes decir cual seria para minúsculas. Muchas gracias

1 respuesta

Respuesta
1
La función para esto es LCase
Por lo tanto tu nueva macro será:
Sub Minuscolu()
For Each cell In Selection
ActiveCell.Formula = LCase(ActiveCell.Formula)
ActiveCell.Offset(1).Select
Next cell
End Sub
Espero haberte ayudado.
Un abrazo!
Fernando

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas