[Anónimo]

boa noite pessoal!

preciso de uma ajudinha de vocês novamente!

tenho 3 textboxes e preciso que quando digitar uma frase no texbox1 e um número no texbox2 e apertar no botão,
retorne no textbox3 o número ( textbox2 ) de palavras da frase do textbox1!
exemplo: textbox1 = “boa noite pessoal” , textbox2 = “2” , textbox3 = “boa noite” .

poderiam me ajudar??

obrigado…

[Anónimo]

consegui!!!

não sei se é o jeito mais prático, más funciona certinho!!

‘ ativa a planilha para inserir os dados
private sub textbox1_change()
thisworkbook.worksheets(“plan1”).activate
end sub

‘ separa a frase linha á linha ao apertar a tecla “espaço”
private sub textbox1_keypress(byval keyascii as msforms.returninteger)
if keyascii = 32 then
activecell.value = textbox1.value
activecell.offset(1, 0).select
end if
end sub

‘ retorna o número desejado de palavras
private sub commandbutton1_click()
thisworkbook.worksheets(“plan1”).activate
range(“a1”).select
activecell.offset(textbox2.value – 1, 0).select
textbox3.value = activecell.value
range(“a1”).select
end if

espero que este código sirva para alguém, como serviu muito para mim!!

abraço…..

[jorgerod]

ainda bem que conseguiste. obrigado por colocares aqui o teu código! 🙂

[Autor]

Artigos