Este fórum está sendo desativado

[Domingsp]

Olá, gostaria nessa planilha de preencher a célula B5 com um valor digitado na textbbox da Userform1 e processado por uma macro.
O que deve acontecer:
1º) Abro o UserForm segurando crtl + e;
2º) Digito um valor no textbox;
3º) Aperto Enter;
4º) Uma macro é executada com o valor e o resultado sai em D8;
5º) Posso fechar a UserForm ou deixa-la aberta.

O que está acontecendo no momento: digito o valor mas a macro só é executada fechando o Userform e não com Enter, como no passo 3º.
Tenho outro arquivo onde esse processo funciona prefeitamente, mas não consigo repetir em outra pasta.
Desde já, obrigado.

DEMO.xlsm

[osvaldomp]

No lugar do atual código Private Sub TextBox1_Exit experimente este abaixo.

Código: Selecionar todos

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 If KeyCode = vbKeyReturn Then
  Range("B5") = UserForm1.TextBox1.Value
  Demo.Demo
  'UserForm1.TextBox1.Value = ""
 End If
End Sub

#
Se você quiser limpar a TextBox ao final, basta descomentar a linha verde.

[Domingsp]

É isso aí!
Grato!