Foros del Web » Soporte técnico » Ofimática »

[excel] todo a mayusculas

Estas en el tema de [excel] todo a mayusculas en el foro de Ofimática en Foros del Web. Hola amigos, alguien podria decirme como hacer para pasar toda una tabla a mayusculas? Con un macro sera? No se mucho de excel, asi que ...
  #1 (permalink)  
Antiguo 15/09/2006, 06:31
Avatar de el tucu  
Fecha de Ingreso: abril-2006
Mensajes: 63
Antigüedad: 18 años
Puntos: 0
Pregunta [excel] todo a mayusculas

Hola amigos, alguien podria decirme como hacer para pasar toda una tabla a mayusculas?

Con un macro sera? No se mucho de excel, asi que su ayuda sera bienvenida.
Gracias
  #2 (permalink)  
Antiguo 15/09/2006, 07:42
Avatar de Ephs  
Fecha de Ingreso: marzo-2006
Ubicación: Bueno, Vivo en la ciudad de Panamá, en un area muy bonita llamada San. Francisco
Mensajes: 171
Antigüedad: 18 años, 2 meses
Puntos: 1
=upper(nombre De Celda) y arrastras la formula.
  #3 (permalink)  
Antiguo 16/09/2006, 08:45
Avatar de medinauta  
Fecha de Ingreso: diciembre-2002
Ubicación: Guayaquil
Mensajes: 159
Antigüedad: 21 años, 4 meses
Puntos: 0
Si lo que quieres es que "se vea" como si fueran mayusculas, entonces solo te queda cambiar a un tipo de fuente (tipo de letra) que solo uestre mayusculas, CooperlateGothic Light por ejemplo...

Lastimosamente Excel no tiene la opcion como Word de cambiar todo un texto con un solo click a mayusculas...
  #4 (permalink)  
Antiguo 18/09/2006, 02:54
Avatar de 3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 20 años, 4 meses
Puntos: 144
Prueba con este macro, que algo de tiempo puede ahorrarte:
Código:
Sub Poner_en_mayusculas()
    'Si tenemos una fórmula, y la ponemos en mayúsculas,
   'en lugar de hacer eso, nos pone un cero.
   'Para evitarlo, ponemos un condicional, que mirará
   'si el primer caracter de la cadena es un igual (signo igual),
   'lo cual indicará que es una fórmula. En caso de ser distinto,
   'es decir, en caso de no ser una fórmula, entonces la pasamos a mayúsculas.
   '--------------------------------------------
   'Nos desplazamos a la primera celda del rango
    Selection.End(xlUp).Select
   'Recorremos todo el rango de celdas hacia abajo,
   'y las ponemos en mayúsculas
    Do While Not IsEmpty(ActiveCell.Offset(0, 0))
        If Left(ActiveCell.Formula, 1) <> "=" Then
            ActiveCell = UCase(ActiveCell)
        End If
        'pasamos a la siguiente fila
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub
Observaciones:
El macro pone en mayúsculas un rango continuo de datos. En cuanto encuentre una fila vacía, se detiene el macro. Para seguir poniendo en mayúsculas otros rangos de datos, deberás ponerte encima de cualquier celda de ese rango contínuo de datos, y ejecutar de nuevo el macro.

Salu2
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 06:04.