Como estan, un saludo…

Muchas veces en nuestro trabajo al digitar listados lo hacemos con PURAS MAYUSCULAS y luego nos salen diciendo…. “MEJOR CON MINÚSCULAS…..PLOP…” (Claro, para ti es fácil decirlo por que no digitaste los 450 nombres de clientes)………

Aquí entonces una probable solución; necesitarán el siguiente código:

sub mayusc()
‘Definición del rango seleccionado
Dim mirango as Range
‘A cada celda del rango seleccionado la convertimos a mayúsculas
For Each mirango In Selection
mirango.value=strconv(mirango.value,vbUpperCase)
Next mirango
end sub
sub minusc()
‘Definición del rango seleccionado
Dim mirango as Range
‘A cada celda del rango seleccionado la convertimos a minúsculas
For Each mirango In Selection
mirango.value=strconv(mirango.value,vbLowerCase)
Next mirango
end sub

NOTA: Al hacer CTRL+C en el código y pegarlo en su módulo de VisualBasic para Excel por favor  verificar que los comentarios (los que empiezan con el apóstrofe) automáticamente estén en color verde. De no ser así, borren el apóstrofe y vuélvanlo a escribir Uds.

Muy bien, ahora observen el video y listo…..

(Haga clic en el título del POST para dejar comentarios)