Integrar líneas de código

No estoy seguro que ira directamente a DANTE. Pero ahí va

Dante, ¿en qué parte del código que me acabas de facilitar podría yo integrar estas líneas o otras que tu veas que sirvirian?

Dim vnp As String
vnp = Target: vnp = VBA.StrConv(vnp, vbProperCase)
vnp = VBA.Replace(vnp, " De", " de")
vnp = VBA.Replace(vnp, " La", " la")

Esto para que las de o la no aparezcan con la 1ª Mayusucula (La, De)

1 respuesta

Respuesta
1

Cámbialo en la clase, así:

Private Sub tbxCustom1_Change()
    tbxCustom1 = Application.Proper(tbxCustom1)
    tbxCustom1 = VBA.Replace(tbxCustom1, " De ", " de ")
    tbxCustom1 = VBA.Replace(tbxCustom1, " La ", " la ")
End Sub

Nota: Deberás poner espacio antes y después: " De " " de " " La " " la "

¡Gracias! Si, mientras esperaba respuesta tuya, me di cuenta que los espacios que habían eron solamente los anteriores pero no los posteriores y así me lo confirmas.

Muy agradecido DANTE.

Ahora si puedo cerrar el tema ¿o tu mismo ¿

El tema no se cierra, pueden seguir comentando en la pregunta o votar por la respuesta, pero ya tenemos tu valoración.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas