Foro Excel

Hola soy Dj White y quiero aportar mi pequeño granito de arena a este foro

Aquí os pongo una macro que es muy practica,
que sirve para que nos cambie las letras automáticamente con un Inputbox que
dependiendo del numero que le pongamos, nos cogerá una de estas 3 opciones
si ponemos 1 nos cambiara las letras del rango o rangos seleccionados o celdas seleccionadas a minúsculas
si ponemos 2 cambiara las letras del rango o rangos seleccionados o celdas seleccionadas a MAYÚSCULAS
Si ponemos 3 nos cambiara las letras del rango o rangos seleccionados o celdas seleccionadas a Titulo

Podemos poner tantos rangos como queramos o celdas juntas o separadas como queramos
tanto es que los rangos o las celdas, estén juntos o separados pero mínimo tienen que ser dos celdas
si tienes que ponerlo en una celda solo escribelo manualmente
por que si solo eliges una celda, y ejecutas la macro, te cambiara todas las letras de la hoja,
ojo con esto, recuerda si solo tienes que cambiar una celda hazlo manualmente
Insisto
para que funcione tenemos que seleccionar mínimo un rango de 2 celdas
tanto es que estén juntas o separadas pero mínimo 2 celdas

Bueno pues aquí os pongo el código

Sub CambioDeLetras()
Dim Cambio As Variant, Celda As Range
Application.ScreenUpdating = False
Cambio = InputBox("Teclea:" & Chr(13) & "1 para pasar a minúsculas" _
& Chr(13) & "2 para MAYÚSCULAS" & Chr(13) & "3 para Titulo ")
On Error Resume Next
Select Case Cambio
Case 1: Cambio = vbLowerCase
Case 2: Cambio = vbUpperCase
Case 3: Cambio = vbProperCase
End Select
For Each Celda In Selection.SpecialCells(xlCellTypeConstants, xlTextValues)
Celda = StrConv(Celda, Cambio)
Next
End Sub

fijarse bien en la cuarta linea del código que hay el símbolo _ esto significa que
la linea 4 y la linea 5 se escriben juntas en la misma linea 4 pero yo para que no sea tan larga la he partido en dos y este símbolo _ lo que hace es dejarte poner el código en dos lineas y asín se ve mejor
por que de esta manera no tiene que ser tan larga la linea 4 del código

para que tu no tengas problemas te recomiendo que la copies y la pegues tal y como esta

Espero haberme explicado bien como funciona
y que le podáis sacar provecho

Saludos: Dj White

Hola Dj White, muy bueno lo tuyo y útil, ese comando lo tiene Word y ahora Excel Gracias a vos, che .

hola, !

la macro que aportas (creo que) tiene un cierto parecido a estas otras:

- conversacion de abril-2004: http://tinyurl.com/2anfrfs

- modificaciones en feb-2006: http://tinyurl.com/25mbwfy

- o cualesquiera de estas otras: http://tinyurl.com/2b4vkkw

por cierto, hay que cuidar cuando el "Selection" es de solamente una celda (afecta a TODAS las celdas en la hoja)

saludos,
hector.