COMO SAIR DE UM TEXTBOX SEM DEIXA-LO VAZIO

WEBRUXIM 19/12/2013 17:36:57
#432341

Olá colegas, estive com uma dúvida em minha jornada em Excel VBA sobre como sair de um textbox sem deixa-lo vazio.
Achei em diversos foruns a mesma duvida e nao achei uma solução que para mim resolveu e vim aqui contribuir e talvez ajudar alguem que esteja na mesma situação que a minha.

A minha duvida e a do colega deste Topico de 2011: http://www.vbmania.com.br/pages/?varModulo=Forum&varMethod=abrir&varID=379008

Private Sub TB_Quantidade_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TB_Quantidade.Text = [Ô][Ô] Then [ô] não permite que salve com textbox vazio
Application.ScreenUpdating = True [ô] Atualização da tela
MsgBox [Ô]Escolha o produto a ser vendido![Ô], vbExclamation, [Ô]ATENÇÃO[Ô]
Cancel = True
TB_Quantidade.BackColor = vbWhite
TB_Quantidade.SetFocus
Exit Sub
End If

TB_Valor_da_Compra_Cet = (TB_Valor_de_Venda.Text * TB_Quantidade) - TB_Entrada.Text

End Sub

OBs: Toda vez que eu ia sair do textbox ou dava erro... ou avançava para o textbox seguinte e desse jeito o SetFocus funciona e nao da nenhum erro.


Bom a quem tiver um maior conhecimento sobre a linguagem por favor, não deixe de ajudar simplificando ou ate melhorando ok...