a seguinte rotina deveria registrar - quando se digita o valor e depois teclando Enter - o valor digitado na celula E2.
Em seguida, a macro Explo deve usar o valor de E2, somar 500 e mostrar o resultado em E5.
Depois a textbox é limpa e o cursor deve ficar ativo no textbox1 esperando a digitação de outro valor e assim por diante.
Fiz algo parecido usando o evento AfterUpdate mas dessa vez não está funcionando.
Não sei anexar um arquivo para exemplo. Muito grato se alguem ajudar.
- Código: Selecionar todos
Private Sub TextBox1_AfterUpdate()
Range("E2") = TextBox1.Value
Explo.Explo
TextBox1.Value = Clear
TextBox1.SetFocus
End Sub
- Código: Selecionar todos
Sub Explo()
Dim valor As Integer
valor = Range("E2").Value
Range("E5") = valor + 500
End Sub