Visual Basic para Aplicaciones - Cambiar minusculas a mayusculas

Life is soft - evento anual de software empresarial
 
Vista:

Cambiar minusculas a mayusculas

Publicado por Joaquin Martinez (9 intervenciones) el 10/04/2002 12:11:18
Quisiera que me dijérais que código tengo que poner en una macro para que un rango selecionado de Excel (Ejempo la columna B) me la convierta a de minusculas a mayusculas.
Es muy urgente.
Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cambiar minusculas a mayusculas

Publicado por Manuel Pastrana (1 intervención) el 10/04/2002 20:30:55
¿Ya probaste con la instrucción UCASE?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cambiar minusculas a mayusculas

Publicado por Joaquin Martinez (9 intervenciones) el 11/04/2002 06:04:03
No tengo ni idea de programar y mi jefe me ha dicho que a muchas hojas de cálculo hay que cambiar todo el contenido de la columna F de minúsculas a mayúsculas. Es muy urgente. Necesito vuestra ayuda.

Muchisimas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cambiar minusculas a mayusculas

Publicado por Mauricio Baeza (262 intervenciones) el 11/04/2002 10:58:38
Puedes hacerlo con ayuda de otra columna, por ejemplo, si quieres pasar todos los datos de la columna F, entonce ve a una columna que este libre, por ejemplo la Z y pone la formula =MAYUSC(F1), copias hacia abajo hasta donde esten tus datos, tendras todo en Mayusculas, ahora solo te resta copiar estos valores y pegarlos, pero ten cuidado de pegar solo los valores, sino, copiaras la formula, si lo quieres hacer con una macro, solo selecciona el area que quieres convertir a mayusculas y ejecuta la siguiente macro...

Public Sub Mayusculas()
Dim Celda As Range

For Each Celda In Selection
Celda.Value = UCase(Celda.Value)
Next Celda

End Sub

Toma en cuenta que de esta forma, las celdas que tengan texto, las convertira a mayusculas, las celdas que tengan numero las dejara tal cual, pero tienen que ser constantes, si tienes formulas igual las convertira, pero te quitara las formulas y te dejara solo el valor, una macro mas completa te tendria que diferencia entre uno y otro, hagamos un intento de lograrlo, prueba esta macro...

Option Explicit

Public Sub Mayusculas()
Dim SelecccionOriginal As Range
Dim Celda As Range
Dim strFormula As String

'Guardamos la seleccion original
Set SelecccionOriginal = Selection
'Seleccionamos las celdas que sean texto y constantes
Selection.SpecialCells(xlCellTypeConstants, 2).Select
For Each Celda In Selection
'Cada una de estas celdas las convertimos a mayusculas
Celda.Value = UCase(Celda.Value)
Next Celda
'Volvemos a la seleccion original
SelecccionOriginal.Sele
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Esta es la macro completa

Publicado por Mauricio Baeza (262 intervenciones) el 11/04/2002 11:04:06
Option Explicit

Public Sub Mayusculas()
Dim SelecccionOriginal As Range
Dim Celda As Range
Dim strFormula As String

'Guardamos la seleccion original
Set SelecccionOriginal = Selection
'Seleccionamos las celdas que sean texto y constantes
Selection.SpecialCells(xlCellTypeConstants, 2).Select
For Each Celda In Selection
'Cada una de estas celdas las convertimos a mayusculas
Celda.Value = UCase(Celda.Value)
Next Celda
'Volvemos a la seleccion original
SelecccionOriginal.Select
'Seleccionamos las celdas con texto que sean formulas
Selection.SpecialCells(xlCellTypeFormulas, 2).Select
For Each Celda In Selection
'Obtenemos la formula original
strFormula = Celda.FormulaLocal
'Le quitamos el signo =
strFormula = Mid(strFormula, 2, Len(strFormula) - 1)
'Le agregamos la formula para convertir a mayusculas
strFormula = "=MAYUSC(" & strFormula & ")"
'Reasignamos la formula
Celda.FormulaLocal = strFormula
Next Celda
'Volvemos a la seleccion original
SelecccionOriginal.Select
'Liberamos la memoria usada
Set SelecccionOriginal = Nothing

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Esta es la macro completa

Publicado por Joaquin Martinez (9 intervenciones) el 11/04/2002 14:53:17
Mauricio, muchisimas gracias.

Me has salvado

Un abrazo muy fuerte

Joaquin
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar