
Como não consigo criar um formulário usando VB ou ACCESS aqui no trabalho, estou tentando descobrir se posso usar uma célula como formulário improvisado. Quero rotular uma célula como "Inserir nova quantidade do pedido". Ao lado dele (próxima célula), quero que o usuário possa inserir um número, fazer com que esse número atualize duas outras células e, em seguida, faça com que essa mudança seja mantida, para que outro número possa ser inserido e adicionado em cima do número anterior nas células mencionadas. Isso é possível?
Responder1
Adicione uma caixa de texto ActiveX (guia Desenvolvedor, seção Controles, botão 'Inserir'. O nome padrão é TextBox1).
Adicione um botão de controle de formulário básico (o nome padrão deve ser Button1)
Selecione o botão e clique em "Exibir código" na mesma seção de controles na barra de ferramentas
Então o sub deve ficar parecido com isto
Sub Button1_Click()
Sheet1.Range("C1").Value = Sheet1.Range("C1").Value + Sheet1.TextBox1.Text
Sheet1.Range("D1").Value = Sheet1.Range("D1").Value + Sheet1.TextBox1.Text
Sheet1.TextBox1.Text = ""
End Sub
C1 e D1 seriam as células para as quais você deseja copiar a quantidade
Editar: esqueci de limpar a caixa de texto. E em uma nota lateral, Alt+F11 é um caminho rápido de volta à janela de código.