Es este tutorial vemos como crear código VBA que simula el funcionamiento de la función NOMPROPIO de Excel.

Hola [uSER=191714]@José_Santos[/uSER], con tu permiso voy a dejar algunas otras formas de lograr el resultado:

Public Function nompro1(texto As String): Application.Volatile
nompro1 = VBA.StrConv(texto, VBA.vbProperCase)
End Function[/PHP]

Otra:

[PHP]Public Function nompro2(texto As String): Application.Volatile
For Each ce In Split(texto, " ")
nompro2 = nompro2 & UCase(Left(ce, 1)) & LCase(Right(ce, Len(ce) - 1)) & " "
Next
End Function[/PHP]

y una mas:

[PHP]Public Function nompro3(texto As String): Application.Volatile
nompro3 = WorksheetFunction.Proper(texto)
End Function[/PHP]

Salu2

Gracias por el aporte, siempre es muy interesante ver y aprender otros códigos, otras formas de llegar al mismo resultado..

Tengo una pregunta... Hace tiempo llevo buscando las constantes que se pueden utilizar con el For Each. Aquí utilizas el "ce"... For each ce in... Yo lo he utilizado anteriormente con otras diferentes pero quería saber si hay una lista de todas las constantes que se pueden utilizar. ¿Hay algún sitio donde se pueda ver cuales permite VBA utilizar?

Saludos.

Hola, yo utilize el "ce" simplemente por que fue lo primero q se me ocurrio, ya que este la unica función que tiene es almacenar temporalmente una variable. Este se puede remplazar por cualquier letra o argumento sin afectar el ciclo for, pero dependiendo del conjunto de datos o la matriz se comporta de forma diferente ya que puede almacenar un un rango , un control o en este caso un string.

Aqui "ce" es un rango:

for each ce in range("A1:A2")
ce.select
next[/PHP]

Aqui "ce" es un objeto o control de formulario:

[PHP]for each ce in me.controls
msgbox ce.name
next[/PHP]

Y aqui "ce" es un string:

[PHP]
For Each ce In Split("Esta es una prueba", " ")
msgbox ce
next[/PHP]

[PHP]myarray = Array("A", "B", "C")
For Each ce In myarray
MsgBox ce
Next[/PHP]

Puedes utilizar el ciclo For each cuando dispones de un rango, colección o matriz como en los ejemplos anteriores.

Espero te sirva la información.

Salu2

Muchas gracias por la aclaración, pensaba que guardaban relación lo que iba después del "For Each" y lo que va después del "IN" y que el "ce" era una constante ya predefinida.

Saludos.

Yo lo he utilizado anteriormente con otras diferentes pero quería saber si hay una lista de todas las constantes que se pueden utilizar. ¿Hay algún sitio donde se pueda ver cuales permite VBA utilizar?

-----------------------

emma

Thank you very much for the clarification, I thought They related what was going after the