Este fórum está sendo desativado

[Osecle]

Olá, tenho um problema. Elaborei uma planilha de cadastro e fim este código para que, se o valor da textbox1 for vazio então a caixa de mensagem avisa preencher o dado. Em seguida deve voltar o focus para a mesma textbox1. Mas isso não ocorre, quando se fecha a caixa de mensagem, o focus vai para a textbox2. Alguém pode me ajudar, por favor? Segue abaixo o código.

'Codigo não aceita numero de matricula vazio
If Me.TextBox1 = "" Then
MsgBox "Matrícula é Obrigatório!", vbCritical, "Controle Dados"
TextBox1.SetFocus
Exit Sub
End If

[lucasExcel]

Amigo faça o upload da planilha em anexo para que possamos depurar o código e ver o porque desse erro acontecer.

[JCabral]

Olá, tenho um problema. Elaborei uma planilha de cadastro e fim este código para que, se o valor da textbox1 for vazio então a caixa de mensagem avisa preencher o dado. Em seguida deve voltar o focus para a mesma textbox1. Mas isso não ocorre, quando se fecha a caixa de mensagem, o focus vai para a textbox2. Alguém pode me ajudar, por favor? Segue abaixo o código.

'Codigo não aceita numero de matricula vazio
If Me.TextBox1 = "" Then
MsgBox "Matrícula é Obrigatório!", vbCritical, "Controle Dados"
TextBox1.SetFocus
Exit Sub
End If

Estranho, aqui funciona direito

[fcarlosc2018]

Boa noite

Tente assim:

Código: Selecionar todos

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)    
    
    If TextBox1 = "" Then
         MsgBox ("Sua Mensagem...!!!"), vbInformation, "Atenção!"
         Cancel = True
         TextBox1.SetFocus
    End If
    
End Sub

Att,
Francisco