Este fórum está sendo desativado

[SilviodeAndradeJr]

Boa noite, tudo bem?

Após clicar no ComandButton e gravar as informação eu gostaria que meu formulário continuasse aberto e já pronto para uma nova inserção de dados.

No caso o que está faltando para que isso funcione perfeitamente é que ele já se apresente com o TextBox ativado.

Eu tentei fazer isso de duas maneiras e falhei nas duas. Primeiro tentei selecionar o TextBox após finalizações. Na segunda tentativa tentei automatizar o comando de pressionar TAB duas vezes.

Desde já agradeço!

Vou deixar aqui o código que consegui fazer e que está faltando apenas essa automatização...

Private Sub Button_Registrar_Venda_Click()

Dim DATA As Date
Dim VALORVENDIDO As Currency

DATA = Caixa_Texto_Inserir_Data
VALORVENDIDO = Caixa_Texto_Inserir_Venda

Sheets("Base_Vendas").Activate
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

ActiveCell = DATA
ActiveCell.Offset(0, 1).Select

ActiveCell = VALORVENDIDO

Sheets("Menu").Activate

Caixa_Texto_Inserir_Venda = ("")

MsgBox ("Valor Inserido Com Sucesso")

End Sub

[SilviodeAndradeJr]

Pessoal, boa tarde!

Tive uma ideia e funcionou bem.

Vou fazer o que preciso descarregando o formulário e abrindo ele novamente. Hehe

Segue como ficou...

Private Sub Button_Registrar_Venda_Click()

Dim DATA As Date
Dim HORA As Date
Dim VALORVENDIDO As Currency

DATA = Caixa_Texto_Inserir_Data
HORA = Caixa_Texto_Inserir_Hora
VALORVENDIDO = Caixa_Texto_Inserir_Venda

Sheets("Base_Vendas").Activate
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

ActiveCell = DATA
ActiveCell.Offset(0, 1).Select

ActiveCell = HORA
ActiveCell.Offset(0, 1).Select

ActiveCell = VALORVENDIDO

Caixa_Texto_Inserir_Venda = ("")

Unload Form_Inserir_Vendas
Form_Inserir_Vendas.Show


MsgBox ("Valor Inserido Com Sucesso")

End Sub