Fóruns
Microsoft Excel - 2...
Formulários
Textbox não puxa va...
 
Notifications
Clear all

Textbox não puxa valor da célula com fórmula

 
Formulários
4 Posts
2 Usuários
0 Reactions
1,916 Visualizações
RSS
 jocalefo
(@jocalefo)
Posts: 0
New Member
Topic starter
 

Boa noite pessoal, estou terminando um projeto pessoal (primeiro filho), :P rsrs... e cheguei até um certo ponto que não consigo desenvolver mais. Bom, vamos lá, sou um novato e apaixonado agora pelo VBA e nesse meu projeto preciso de 4 ajudas de Mestre:

1º. Mandar valor "digitado" na minha txtbox para uma célula específica.
2º. Receber o "resultado" do cálculo que será feito na célula em uma das minhas textbox.
3º. Fazer com que esses "resultados" se atualizem em minhas txtbox de acordo com a plan1.
4º. Passar pelas txtbox ativas apertando o Enter e não o TAB (se tiver como).

Se alguém tiver algum link a respeito eu irei estuda-lo... acredito que isso seria simples para o nível de vocês, mas isso acrescentará muito para meu aprendizado.

Segue anexo "o esquema" para melhor compreende-los.
OBS* Já tentei usar:

range("A1") = txtbox1.value
e
Alterar na propriedade do txtbox "ControlSource": A1 'indicando o valor, mas ele substitui apagando a fórmula da célula A1

Não deu certo :(
Forte abraço.

 
Postado : 01/09/2015 7:36 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não consegui entender

 
Postado : 02/09/2015 7:10 am
 jocalefo
(@jocalefo)
Posts: 0
New Member
Topic starter
 

Olá Reinaldo, tentarei ser mais objetivo:

1° Preciso que o valor da minha textbox1 faça com que seja preenchido a célula C7, com o mesmo valor da txtbox1 (até aí consegui, lendo alguns fórum aqui)

2º Ao preencher a célula C7, outras células "Ex: C8 e C9" irá gerar alguns resultado (pois contém fórmulas nelas), esse "resultado" preciso que automaticamente seja preenchido na minha textbox2 e txtbox3.

↑↑↑ é nessa parte que não dá certo. Eu quero trabalhar só com a tela do meu userfom, por isso preciso vincular as textbox com as células.

 
Postado : 02/09/2015 6:48 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Para obter os valores de células, utilize o mesmo evento que "cadastra" o valor na planilha.
Não sei se são os campos certos, mas a rotina deve ser +/- assim

Private Sub ValorAtivo_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Sheets("Cálculo").Range("C5").Value = CDec(ValorAtivo)
    
ValorAtivo = Format(ValorAtivo, "R$ ###,###0.00")

MesesDepr.Text = Sheets("Cálculo").Range("C6").Value
TotalDepr.Text = Sheets("Cálculo").Range("C7").Value
PermitdoVenda.Text = Format(Sheets("Cálculo").Range("C8").Value, "R$ ###,###0.00")
End Sub
 
Postado : 03/09/2015 7:18 am
Forum Jump:
  Tópico Anterior
Próximo Tópico