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

Preguntas similare

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.
Respuesta Responder a este mensaje
#2 FeCel
29/09/2005 - 15:26 | Informe spam
Muchas gracias Héctor Miguel.
¿Me podrías ayudar con la consulta que hice el 26 de septiembre en este
mismo foro?. (Asunto: Compara dos filas; 26/09/2005 15:27 hora del Pacífico
). Parece fácil pero no he logrado hacer una macro que lo resuelva.



"Héctor Miguel" escribió:

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.



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida