How to check if number is divisible by 6

Are you trying to change the condition? Here is what it looks with an If statement.

    pquant = Cells(arrow, acol)
    If pquant <= 300 And pquant Mod 6 = 0 Then
        'do nothing
    Else
        'code to correct here....
    End If

You can use functions to return values. Millz example is a good way of simplifying your code without going to a function, but if you were to, then you could use a boolean variable in your main sub, and then use it to call the function. For example you use a variable "test" in your main routine, and it is dimmed as a boolean.... then you have a function that does the analysis, and returns a boolean value:

in main sub: test = function_that_checks(value_to_check)
then the function looks something like:

function function_that_checks(item as long) as boolean
If item <= 300 And item Mod 6 = 0 Then
        function_that_checks = True
    Else
        function_that_checks = False
    End If
end function

sorry it is not a very elaborate example, but is hopefully enough to illustrate the point?

You can take this one step further. Since the return value of a Function is initialized to a default value, you can skip the "Else" portion. The default value for a Boolean value is false.

Function function_that_checks(item as Long) as Boolean
    If item <= 300 And item Mod 6 = 0 Then  function_that_checks = True
End Function

ok... but when I call the function.... how do I pass the variable I need evaluated to the function. Does the function use the value that is currently assigned to the variable at the time it's called?

I wrote this as a quick test, and I get a compile error "argument not optional" on the line "call checks"

Sub test()
Dim pquant As long

pquant = 1
Do
Call checks
pquant = pquant + 1
MsgBox (pquant)
Loop Until pquant = 10
endsub


Function checks(pquant As Long) As Boolean
    If pquant = 5 Then
        checks = True
End Function

help please! thanks!

Hello jmilliken,

It is a single line If statemnt is should be like this...

Function checks(pquant As Long) As Boolean
    If pquant = 5 Then checks = True
End Function

Hello jmilliken,

You're welcome. I will mark this post as solved.

I have a pet peeve against If statements that set a boolean value

Function checks(pquant As Long) As Boolean
    checks = (pquant = 5)
End Function