Converter Letras

[Luciano021273]

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

[Reinaldo]

Sinceridade, não entendi a demanda

[Luciano021273]

O que vc não entendeu?

Pedi para alguém me ajudar nesse codigo, quero colocar em um módulo e carregar ele na txtnome, endereço entre outras...
Questão é que se não entendeu nem perde seu tempo respondendo, deixa alguém ajudar alguém de boa vontade, não é de hj que vc fica dando essas respostas, vejo em muitos outros usuários... Simplesmente se não puder ajudar deixa quieto é melhor assim...
Se vc quiser ver só perguntas perfeitas, não deveriam deixar pessoas como eu que não sabe nada se cadastrar...

Atenciosamente,
Luciano.

[Reinaldo]

Cara, acordou do lado errado da cama. Apenas pedi esclarecimento melhor. mas tudo bem
Voce tambem postou no planilhando / guro do excel e scriptbrasil, sem resposta, então ......
um grande abraço

[Mauro Coutinho]

Luciano, em primeiro lugar enviei a Primeira advertência a sua pessoa por infringir as Regras do Forum, mais exepcificamente no item :
1.2 Não é permitido ofender, provocar, ameaçar ou ironizar nenhum participante e é estritamente proibido qualquer tipo de discussão pessoal . Também não é permitida a postagem de mensagens com provocação, de forma abusiva, a qualquer produto ou software.

Em segundo lugar eu tambem não entendi, e acredito que o colega Reinaldo da mesma forma que eu temos uma leve suposição do que pretende, mas você tem de entender que toda a ajuda nos Foruns são voluntárias e dependemos de tempo disponível que geralmente é bem curto, as vezes mal da para ler por completo, e se os usuários conseguissem expressar o que pretendem em poucas lnhas com mais objetividade fica bem mais fácil e não precisamos ficar perguntando ou perder tempo com suposições.

Espero que você entenda, e evite outras advertências para não ser banido, e se digne a se desculpar com o colega aqui ou enviarem PVT.

Conforme ele citou, não vi todos os foruns, mas no planilhando lhe enviaram uma resposta que você respondeu que iria verificar, isto na parte da manhã :

por Luc » Ter Set 27, 2016 8:53 am
Não testei ainda no vba, vou testar hj a noite quando chegar em casa

Se até o horário que você respondeu aqui às 14:14 não chegou a testar, o minimo que deveria fazer seria testar e se der certo postar que foi resolvido e/ou indicar o outro forum ou colocar a solução nesta forum.

Espero sua compreensão e qualquer duvida nos colocamos a disposição.

[]a

Mauro Coutinho
Moderador