TextBox.value < TextBox2.value - Não Funciona

2024 - VBA & Macros

Post Recente por Paulo_001 9 anos atrás

3 Posts

2 Usuários

0 Reactions

1,116 Visualizações

RSS

Paulo_001

(@paulo_001)

Posts: 149

Estimable Member

Topic starter

Olá.

Estou tentando fazer uma macro que entenda a seguinte condição.

Se a TextBoX1.value for menor que TextBox2.value então pare a macre e mostre uma msgbox.

Tentei assim:

If TextBoxQtdEstoque.Text < TextBoxqtd.Text Then
 MsgBox "Quantidade em estoque insuficeinte", vbOKOnly + vbCritical, "BBP"
TextBoxqtd.SetFocus
 Exit Sub
End If

mas não importa o valor que eu ponha a macro sempre mostra a msgbox mesmo com o valor estando maior.

alguém saberia como proceder?

Postado : 28/04/2016 7:07 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

A principio da forma que está, se a rotina completa é esta, não era para dar erro, mas troque pelas instruções abaixo onde usamos a função CStr para converter o valor digitado para o tipo String, se for utilizar casas decimais pode usar Cdbl - tipo Double (usado para números grandes com casas decimais)

    If CStr(TextBoxQtdEstoque.Value) < CStr(TextBoxqtd.Value) Then
        MsgBox "Quantidade em estoque insuficeinte", vbOKOnly + vbCritical, "BBP"
        TextBoxqtd.SetFocus
        Exit Sub
    End If

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 28/04/2016 7:44 am