Cómo cambiar de mayúsculas a...

la funcion es NOMPROPIO. Lee la ayuda.


"Carlos" escribió en el mensaje
news:

Hola a todos.
Tengo una grand lista con nombres en una sola fila como sigue:
JUAN RAMÓN
MARÍA DEL CARMEN PÉREZ
CARLOS ARTEAGA
JUAN DE DIOS GARCÍA
ETC.. ETC..

Necesito "convertir" estos texto considerando que sólo la primero letra
será en mayúsculas así:
Juan Ramón
María Del Carmen Pérez
Carlos Arteaga
Juand De Dios García.

Muchas gracias por su ayuda.
C.

hola, Carlos !

Tengo una grand lista con nombres en una sola fila como sigue:
JUAN RAMÓN
MARÍA DEL CARMEN PÉREZ
CARLOS ARTEAGA
JUAN DE DIOS GARCÍA
ETC.. ETC..
Necesito "convertir" estos texto considerando que sólo la primero letra será en mayúsculas así:
Juan Ramón
María Del Carmen Pérez
Carlos Arteaga
Juand De Dios García.

otra alternativa... usando macros...
1) abre el editor de vba -> el atajo de teclado es {Alt}+{F11}
2) ve a [menu] insertar / modulo...
3) en la ventana del modulo de codigo [recien creado]... copia/pega las lineas al final de este mensaje
4) 'regresa' al excel -> el atajo de teclado es {Alt}+Q
5) selecciona la lista... y ejecuta la macro ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub CambioDeLetras()
Dim Cambio, Celda As Range, Frase As Boolean
Select Case _
UCase(Left(Trim(InputBox( _
"Elige el tipo de ""salida""" & vbCr & _
"[T] = Titulo" & vbTab & "[I] = minusculas" & vbCr & _
"[F] = Frase" & vbTab & "[A] = MAYUSCULAS", _
"Alternar Mayusculas/minusculas...")), 1))
Case "A": Cambio = vbUpperCase
Case "I": Cambio = vbLowerCase
Case "F": Frase = True
Case "T": Cambio = vbProperCase
End Select: Application.ScreenUpdating = False
For Each Celda In Selection.SpecialCells(xlCellTypeConstants, xlTextValues)
If Frase Then Celda = UCase(Left(Celda, 1)) & LCase(Mid(Celda, 2)) _
Else Celda = StrConv(Celda, Cambio)
Next
End Sub

Muchas gracias a los dos.

C.


"Héctor Miguel" wrote in message
news:

hola, Carlos !

Tengo una grand lista con nombres en una sola fila como sigue:
JUAN RAMÓN
MARÍA DEL CARMEN PÉREZ
CARLOS ARTEAGA
JUAN DE DIOS GARCÍA
ETC.. ETC..
Necesito "convertir" estos texto considerando que sólo la primero letra
será en mayúsculas así:
Juan Ramón
María Del Carmen Pérez
Carlos Arteaga
Juand De Dios García.

otra alternativa... usando macros...
1) abre el editor de vba -> el atajo de teclado es {Alt}+{F11}
2) ve a [menu] insertar / modulo...
3) en la ventana del modulo de codigo [recien creado]... copia/pega las
lineas al final de este mensaje
4) 'regresa' al excel -> el atajo de teclado es {Alt}+Q
5) selecciona la lista... y ejecuta la macro ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub CambioDeLetras()
Dim Cambio, Celda As Range, Frase As Boolean
Select Case _
UCase(Left(Trim(InputBox( _
"Elige el tipo de ""salida""" & vbCr & _
"[T] = Titulo" & vbTab & "[I] = minusculas" & vbCr & _
"[F] = Frase" & vbTab & "[A] = MAYUSCULAS", _
"Alternar Mayusculas/minusculas...")), 1))
Case "A": Cambio = vbUpperCase
Case "I": Cambio = vbLowerCase
Case "F": Frase = True
Case "T": Cambio = vbProperCase
End Select: Application.ScreenUpdating = False
For Each Celda In Selection.SpecialCells(xlCellTypeConstants,
xlTextValues)
If Frase Then Celda = UCase(Left(Celda, 1)) & LCase(Mid(Celda, 2)) _
Else Celda = StrConv(Celda, Cambio)
Next
End Sub