[jkf1456]

ola pessoal.
por favor voces poderiam me ajudar nesta questao?
quero criar uma use form com o seguinte:

text box para entrar o valor (nao importa se for dolar ou real, porque a option button é quem vai decidir.)

option button para o valor em dolar (moeda americana)

option button para o valor em real (moeda brasileira)

text box para a resposta. se a escolha for dolar a resposta sera nessa forma $1,00 dolar= r$1,9400 reais se escolher a opcao real a resposta sera nessa forma r$1,00 real = $0.5154 dolar. esses valores estarao nas celulas x1, x2 a resposta x3.

command button para converter

muito obrigado a todos tenham um bom dia.

[jorgerod]

boas, jkf…

em anexo, envio-te uma planilha, que contém, espero, aquilo que pretendes:

diz qq coisa, ok?
Converte_RealDolar.zip

[jorgerod]

jkf…

alterei o código do módulo userform_activate, para ficar mais simples e eficaz. no entanto, deixei o código anterior como comentário, para se poder ver a diferença…

‘—————————————————————————————
‘ procedure : userform_activate
‘ datetime : 12-08-2012 02:15
‘ author : jorge rodrigues
‘ purpose : ao abrir o userform, limpa o conteúdo das duas textbox e formata a textbox2 com 2 casas decimais
‘—————————————————————————————
‘
private sub userform_activate()
‘dim ctrl as control

textbox1.text = empty
textbox2.text = empty

‘for each ctrl in me.controls
‘if typename(ctrl) = “textbox” then
‘ctrl.text = “”
‘end if
‘next ctrl

textbox2.text = format(textbox2.text, “#000.00”)
textbox1.setfocus

end sub

[jkf1456]

jorge meu caro mestre.

estou recebendo erro: run-time error ‘424’
object required
debug
textbox1.text = empty
obrigado :dry:

[jorgerod]

verifica o seguinte ficheiro, que funciona comigo, na perfeição:

Converte_RealDolar_01.zip

[jkf1456]

quando tento abrir o ficheiro, recebo essa mensagem: custom ui runtime error in pdf converter 6.0 exceladdin – “the call to getcustomui() for ribbonid – microsoft.excel.workbook failed”.

obrigago

[jorgerod]

boas,

– abre o excel;
– vai a opções
– escolhe suplementos
– vai desactivando um por um e vê qual é que está a causar o problema.

acho que o problema está por aí…

fica bem.

[jkf1456]

aqui esta o código vba pra quem precisa:

private sub cmdfechar_click()
unload frmcalculosalariobeneficio
end sub

private sub cmdproximo_click()
dim nextrow as long
‘ make sure sheet you are working is active
sheets(“calculoinfo”).activate

‘ determine the next empty row
nextrow = _
application.worksheetfunction.counta(range(“a:a”)) + 1
‘ transfer the name
cells(nextrow, 1) = textinicialdata.text
cells(nextrow, 2) = textsalariocontribuicao.text
cells(nextrow, 3) = textinpc.text
cells(nextrow, 4) = textfatorsimples.text
cells(nextrow, 5) = textfatoracumuladoinverso.text

‘ clear the controls for the next entry
textinicialdata.text = “”
textsalariocontribuicao.text = “”
textinpc.text = “”
textfatorsimples.text = “”
textfatoracumuladoinverso.text = “”
optionunknown = true

end sub

[Autor]

Artigos