Boa noite a todos!!
Será que alguém poderia me ajudar na seguinte situação
O codigo esta muito extenso, e quando vou colocar na textbox fica gigante, não me recordo o nome de quem postou esse código, para poder referenciar, o codigo atende as necessidades, porém queria poder publicar em um modulo e chamar resumido para a textbox...
se alguém puder me ajudar a publicar no módulo, agradeço desde já...
Dim Altera As String
Dim Particula_atona(9) As String
Dim Particula(9) As String
Dim i As Integer
Particula_atona(1) = "Da"
Particula_atona(2) = "De"
Particula_atona(3) = "Do"
Particula_atona(4) = "No"
Particula_atona(5) = "A"
Particula_atona(6) = "E"
Particula_atona(7) = "I"
Particula_atona(8) = "O"
Particula_atona(9) = "U"
Particula(1) = "da"
Particula(2) = "de"
Particula(3) = "do"
Particula(4) = "no"
Particula(5) = "a"
Particula(6) = "e"
Particula(7) = "i"
Particula(8) = "o"
Particula(9) = "u"
Altera = txtPDnomecliente.Text
Altera = StrConv(Altera, vbProperCase)
For i = 1 To 9
Altera = Replace(Altera, " " & Particula_atona(i) & " ", " " & Particula(i) & " ")
Next
txtPDnomecliente.Text = Altera
Public Function Alteracao(ByVal strTexto As String) As String
Dim Altera As String
Dim Particula_atona(9) As String
Dim Particula(9) As String
Dim i As Integer
Particula_atona(1) = "Da"
Particula_atona(2) = "De"
Particula_atona(3) = "Do"
Particula_atona(4) = "No"
Particula_atona(5) = "A"
Particula_atona(6) = "E"
Particula_atona(7) = "I"
Particula_atona(8) = "O"
Particula_atona(9) = "U"
Particula(1) = "da"
Particula(2) = "de"
Particula(3) = "do"
Particula(4) = "no"
Particula(5) = "a"
Particula(6) = "e"
Particula(7) = "i"
Particula(8) = "o"
Particula(9) = "u"
Altera = strTexto
Altera = StrConv(Altera, vbProperCase)
For i = 1 To 9
Altera = Replace(Altera, " " & Particula_atona(i) & " ", " " & Particula(i) & " ")
Next
Alteracao = Altera
End Function
Bom dia!
Não testei ainda no vba, vou testar hj a noite quando chegar em casa,
Aqui na empresa só tenho VB6 e no VB6 não funcionou, o que pode ser não é para ser o mesmo código???
O que pode ser alterado para usar no KeyPress por exemplo?
Vamos ver se consigo no VBA
agradeço desde já pela sua atenção Obrigado Nelson!
Atenciosamente,
Luciano.