loyola

Paulo, muito obrigado pela intervenção. Ainda preciso validar o numero digitado (entre um valor minimo e máximo). Ainda não funcionou, o controle vai para próxima caixa de texto. loyola. Encontrei uma codificação que soluciona o problema da validação de dados com SetFocus: Private Sub minhaCaixa01_Exit(ByVal Cancel As MSForms.ReturnBoolean) If (minhaCaixa01 < 1000) Or (minhaCaixa01 > 1500) Then MsgBox "o valor deve estar entre 1000 e 1500" Me.minhaCaixa01.Value = " " Cancel = True Me.minhaCaixa01.SetFocus Exit Sub End If End Sub Paulo, obrigado pelo incentivo à pesquisa. loyola.

Paulo, muito obrigado pela intervenção. Ainda preciso validar o numero digitado (entre um valor minimo e máximo). Ainda não funcionou, o controle vai para próxima caixa de texto. loyola. Encontrei uma codificação que resolve a validação de dados com SetFocus: Private Sub minhaCaixa01_Exit(ByVal Cancel As MSForms.ReturnBoolean) If (valEmprestimo < 1000) Or (valEmprestimo > 1500) Then MsgBox "o valor do emprestimo deve estar entre 1000 e 1500)" Me.valEmprestimo.Value = " " Cancel = True Me.valEmprestimo.SetFocus Exit Sub End If

Paulo, muito obrigado pela intervenção. Ainda preciso validar o numero digitado (entre um valor minimo e máximo). Ainda não funcionou, o controle vai para próxima caixa de texto. loyola. Encontrei uma codificação que resolve a validação de dados com SetFocus: Private Sub minhaCaixa01_Exit(ByVal Cancel As MSForms.ReturnBoolean) If (valEmprestimo < 1000) Or (valEmprestimo > 1500) Then MsgBox "o valor do emprestimo deve estar entre 1000 e 1500)" Me.valEmprestimo.Value = " " Cancel = True Me.valEmprestimo.SetFocus Exit Sub End If

Paulo, muito obrigado pela intervenção. Ainda preciso validar o numero digitado (entre um valor minimo e máximo). Ainda não funcionou, o controle vai para próxima caixa de texto. loyola.

Olá, Faço a critica de entrada de dados com duas caixas de texto: Na primeira caixa - quando a informação digitada estiver errada, limpo a caixa e estou tentando fazer com que o foco permaneça nesta caixa. Ao clicar em TAB, não funciona, veja a rotina: Private Sub minhaCaixa01_AfterUpdate() If Not IsNumeric(minhaCaixa01.Value) Then MsgBox "DIGITE UM VALOR NUMÉRICO" Me.minhaCaixa01.Value = "" Me.minhaCaixa01.SetFocus Exit Sub End If End Sub O controle passa para a próxima caixa de texto. Uso excel 2007 ??? Me ajudem a encontrar o erro.