boa noite, como posso separar nomes em primeira letras em maiúsculo, exemplo
henrique gama silva
Henrique Gama da Silva
henrique gama silva
Henrique Gama da Silva
Public Function PrimeraLetraMayusculas(strCadena As String) As String
Dim Matriz As Variant, _
I As Long, _
J As Long, _
strExcepciones As String, _
MatrizExcepciones As Variant
'aqui exceções
strExcepciones = "el,la,del,de,al,y,o,u,los,las,para,a,ante,bajo,con,contra,de,desde,en,entre,hacia,hasta,para,por,según,sin,so,sobre,tras"
MatrizExcepciones = Split(strExcepciones, ",")
Matriz = Split(Trim(strCadena), " ")
For I = 0 To UBound(Matriz)
For J = 0 To UBound(MatrizExcepciones)
If MatrizExcepciones(J) = Matriz(I) And Not I = 0 Then GoTo Saltar
Next J
Matriz(I) = StrConv(Matriz(I), vbProperCase)
Saltar:
Next I
PrimeraLetraMayusculas = Join(Matriz, " ")
End Function
PrimeraLetraMayusculas("henrique gama silva")
Me.MeuCampo = StrConv(Me.MeuCampo,3)