COMO cambio testo de minúsculas a mayúsculas
Tengo muchas hoajas con testos en mayúsculas y minúsculas, la pregunta es se puede seleccionar todas las hojas y unificar solo en una forma ( mayúsculas o minúsculas en cualquiera)
1 Respuesta
Respuesta de Elsa Matilde
1
Hay varias opciones dependiendo de si necesitas alguna celda (en ese caso con una función) o si necesitas 'cargar' un libro con algún estilo (en ese caso con una rutina en la apertura del libro)
Pero como solo querés unificar estilos, utilizá esta rutina.
Entrá al Editor de macros (con Alt +F11), insertá un módulo y allí copiá lo siguiente:
Sub menorAmayor()
Dim rango As Range
Dim cell
'se establece como rango la selección actual (*)
Set rango = Selection
'se recorre cada celda de la selección
For Each cell In rango
cell.Value = LCase(cell.Value) 'coloca los contenidos en minúsculas (**)
Next
End Sub
Nota: Si esta será una operación frecuente, será conveniente que le asignes un atajo de teclado. Ver el apartado Atajos de Teclado en sección macros de mi sitio.
(*) También podes asignar un rango, sin necesidad de seleccionarlo. Reemplazá la línea por esta otra:
Set rango = ActiveSheet.Range("A5:M200")
(**) Para unificar a mayúsculas, reemplazá LCase por UCase
PD) Rutina extraída de mis manuales de macros. No te pierdas la promoción del mes...
Sdos
Elsa
http://aplicaexcel.galeon.com/manual_VBA.htm
Pero como solo querés unificar estilos, utilizá esta rutina.
Entrá al Editor de macros (con Alt +F11), insertá un módulo y allí copiá lo siguiente:
Sub menorAmayor()
Dim rango As Range
Dim cell
'se establece como rango la selección actual (*)
Set rango = Selection
'se recorre cada celda de la selección
For Each cell In rango
cell.Value = LCase(cell.Value) 'coloca los contenidos en minúsculas (**)
Next
End Sub
Nota: Si esta será una operación frecuente, será conveniente que le asignes un atajo de teclado. Ver el apartado Atajos de Teclado en sección macros de mi sitio.
(*) También podes asignar un rango, sin necesidad de seleccionarlo. Reemplazá la línea por esta otra:
Set rango = ActiveSheet.Range("A5:M200")
(**) Para unificar a mayúsculas, reemplazá LCase por UCase
PD) Rutina extraída de mis manuales de macros. No te pierdas la promoción del mes...
Sdos
Elsa
http://aplicaexcel.galeon.com/manual_VBA.htm
