Guru do Excel e Power BI

Enviado: **08 Jan 2021 às 21:17**

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

Enviado: **08 Jan 2021 às 22:22**

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.

Enviado: **08 Jan 2021 às 22:33**

É isso aí!
Grato!

Guru do Excel e Power BI

Passar conteúdo de Textbox da UserForm para célula após Enter

Passar conteúdo de Textbox da UserForm para célula após Enter

Re: Passar conteúdo de Textbox da UserForm para célula após Enter

Re: Passar conteúdo de Textbox da UserForm para célula após Enter