Cambiar minúsculas a mayúsculas en celda activa
Me podrán ayudar con lo siguiente, necesito que al escribir por ejemplo en la celda A1 el texto se convierta a mayúsculas con codgo vba al dar enter, ojala y me puedan ayudar.
Las respuestas son un poco vagas. Los códigos sugeridos pueden funcionar al principio, pero en el futuro puede que ya no te funcionen por la falta de dinamismo. Estas son algunas de las cosas que podrían suceder, y que un programador debería preguntarse antes de programar esto:
1. ¿Qué pasaría si salgo de la celda con TAB en lugar de Enter?
2. En caso de salir con TAB, ya sea por equivocación o intencionalmente, estando en cualquier celda de la fila 1, recibiría un error de de definicion de objetos si utilizo el offset de la celda, ya que la celda -1 no existiría.
3. ¿Debe ser dinámico y variable el rango? Ya que la mejor respuesta elegida es una que solo funciona con A1.
4. Basado en el comportamiento de de encabezado y continuación de rango Excel, al dar ENTER, nos lleva a la celda de abajo pero de la columna anterior, por lo tanto las sugerencias no funcionarían, ya que se pondría en mayúscula la celda equivocada.
5. Veo que todos usaron el evento Change de la hoja, pero... no es que las mayúsculas deben ponerse al salir de la celda, no cambiarla. ¿Por qué no usar el evento SelectionChange?
Para responder a todas esas preguntas, yo usaría este código como buena práctica:
Option Explicit Public OldCell As String Public NewCell As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) If NewCell = "" Then NewCell = ActiveCell.Address OldCell = NewCell NewCell = ActiveCell.Address Range(OldCell).Value = UCase(Range(OldCell).Value) End Sub
Con este código pongo en mayúsculas única y exclusivamente la celda que he abandonado, sin importar la tecla que presione o la dirección en que me mueva.
3 respuestas más de otros expertos
H0la:
En el código de la hoja, tendrías que agregar esto
Private Sub Worksheet_Change(ByVal Target As Range) Target.Value = UCase(Target.Value) End Sub
S@lu2
Pega esta macro en el modulo thisworkbok de VBA de la hoja donde las vayas a usar, primero valida que sea texto y si lo es lo pasa a mayúsculas al dar enter
Private Sub Worksheet_Change(ByVal Target As Range) If WorksheetFunction.IsText(ActiveCell.Offset(-1, 0)) Then ActiveCell.Offset(-1, 0) = UCase(ActiveCell.Offset(-1, 0)) End If End Sub
Comentario borrado por el autor - Isaac Reyes
Con el comentario sobre la macro de James, te doy el punto, aunque él tomó la precaución de hacer pasar por la transformación sólo aquellas celdas que contengan texto. Creo que de todas las sugerencias, la que mejor cumple con el objetivo, si lo de la columna A no fuera sólo un ejemplo, es la de Daniel. En cuanto a varios de los inconvenientes que describes, corresponden al evento SelectionChange (el tú usas) y no al Change. PE1: En el caso de la mía, se cae en casos en que se selecciona más de una celda (que es un asunto que ataca Daniel al utilizar Target(1)).PE2: Tu macro funciona cuando la celda recibe el enfoque, no cuando lo pierde.Saludos - Isaac Reyes
Que tal Isaac, no es necesario usar una validación de texto cuando usas la función UCase, ya que esta función implícitamente valida cada carácter, para probarlo puedes escribir en una celda 123abc y la función UCase lo convertirá a 123ABC, ignorando los números y tomando en cuenta solo las letras. Ahora, no entiendo a que te refieres con que mi macro funciona al recibir el enfoque, no es una cuestión de apreciación artística, es sentido común, para activar una celda, antes debes desactivar otra, o para desactivar una, debes activar otra, osea no importa como lo interpretes, el resultado es el mismo por lógica. Mi macro aplica cambios a la celda seleccionada previamente. Osea al salir de ella - Andy Machin
No sé si la probaste, pero es al contrario. Tu macro se aplica a la celda que estás entrando, no a la celda desde la que estás saliendo. O sea, si la celda que acabas de modificar es A2 y entras a la celda A1, el formato se está aplicando a A1, cuando se debiera aplicar a A2. Por otra parte, al utilizar SelectionChange aplicas el formato cada vez que te mueves de una celda a otra en lugar de aplicarlo sólo cuando modificas el contenido. En cuanto al UCase, cuando lo aplicas a una celda que tiene números con decimales puedes tener efectos adversos. - Isaac Reyes
No postearía un código que no pruebo, a mi me funciona perfectamente aplicando el cambio a la celda que he abandonado, no entiendo por que a usted le funciona al revés. - Andy Machin
Las variables públicas las tenía justo antes del evento, pero después de otros eventos, por lo que NewCell siempre era vacía. Moraleja, la definición de variables globales siempre deben estar en el Olimpo. :-) - Isaac Reyes
Claro, arriba de todo y dentro de nada... me parecía extraño lo que dijiste de los decimales pero de todas formas lo probé y no hay ningún problema, y es obvio que no lo haya, ya que el punto (.) o la coma (,) o CUALQUIER carácter que no sea una letra del abecedario, va a ser ignorado por UCase. Dicho por Microsoft en su documentación: Remarks - Only lowercase letters are converted to uppercase; all uppercase letters and nonletter characters remain unchanged. - Andy Machin
Isaac Reyes si conoces algún caso o tienes un ejemplo de decimales donde pueda fallar UCase por favor compartemelo, porque realmente me da curiosidad jajaja - Andy Machin