Conversión de texto

29/09/2005 - 04:28 por FeCel | Informe spam
¿Existe alguna función para cambiar un nombre que está escrito en mayúsculas,
a un formato "Tipo Título", es decir, con la primera letra de cada palabra en
mayúsculas y el resto en minúsculas?
Si no existe, ¿alguien conoce una macro que permita transformar una columna
(o un rango) al formato Tipo Título?.
Agradecezco de antemano cualquier ayuda.
FeCEl
 

Leer las respuestas

#1 Héctor Miguel
29/09/2005 - 06:23 | Informe spam
hola, FeCel !

... alguna funcion para cambiar un nombre que esta escrito en mayusculas, a... "Tipo Titulo" [...]



si el nombre ya esta 'entrado' en alguna/s celda/s...

op1: la funcion de hoja de calculo: =nompropio(celda)

op2: una macro para 'switchear a voluntad' entre mayusculas y minusculas un rango =>seleccionado< [p.e.] en la celda A1 'pones' un valor para el 'tipo de conversion' que deseas hacer [p.e.]
1 = minusculas
2 = 'nombre propio' [mayuscula la primer letra de cada palabra y el resto en minusculas]
0, 3, o 'cualquier otra cosa'... = mayusculas
en un modulo de codigo 'normal' ==Sub CambioDeLetras()
Dim Cambio As Variant, Celda As Range
Application.ScreenUpdating = False
Select Case Range("a1")
Case 1: Cambio = vbLowerCase
Case 2: Cambio = vbProperCase
Case Else: Cambio = vbUpperCase
End Select
For Each Celda In Selection.SpecialCells(xlCellTypeConstants, xlTextValues)
Celda = StrConv(Celda, Cambio)
Next
End Sub

saludos,
hector.

Preguntas similares