Conversión de texto

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.

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.