VBA User Form does not recognize if function?

Question

Private Sub ROLparameter_Click()
Line1: RolLow = InputBox("Please enter the lower bound percentage for ROL calculation between 0 and 100 (initially " & RolLow * 100 & "%):")

If Not 0 <= RolLow <= 100 Then GoTo Line1
End If

End Sub

I have user form button, when I press it will enter this sub. The problem is it gives error "end if without if". When I remove end if, it works strangely.

Such as;

it does recognize the RolLow value when user enter 80, as "80". If not directs it to end sub, if i use only "if" then it will direct to line 1 all the time. No checking of the value.

This code working normally in a module.

What can be the problem?

(Variables are defined public before the subs)

(i tried module.variable thing also)

try the code in my answer below

Shai Rado
– Shai Rado

2016-08-25 08:03:20 +00:00
Commented Aug 25, 2016 at 8:03 — Shai Rado
– Shai Rado, Commented Aug 25, 2016 at 8:03

Shai Rado · Accepted Answer · 2016-08-25 08:01:45Z

0

This is the code you are trying to run: if the user inputs a value smaller than 0 or larger than 100, then go back to InputBox

Private Sub ROLparameter_Click()

Line1: Rollow = CLng(InputBox("Please enter the lower bound percentage for ROL calculation between 0 and 100 (initially " & Rollow * 100 & "%):"))

If Not ((0 <= Rollow) And (Rollow <= 100)) Then
    GoTo Line1
End If

End Sub

answered Aug 25, 2016 at 8:01

Shai Rado

33.7k7 gold badges32 silver badges55 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

Shai Rado Over a year ago

CLng converts the input (received as String) into Long, you can use alsoCInt if you want for smaller values

hakandeep Over a year ago

Thanks a lot again!

Collectives™ on Stack Overflow

VBA User Form does not recognize if function?

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related