Code works in the macro but not in a separate function. "Sub or function not defined."

[tahi.laci]

Basically I have a piece of code (5 lines commented out toward the end) that runs fine as part of the macro, however I wanted to use the exact same piece of code (only changing one number to a variable) run as a separate function, to make the code look tidier. However when I run that code as a separate function being called I get the error message. "Sub or function not defined."

To see what the program is supposed to do uncomment the block starting with Dim Phenotype... and comment the the line Result(0).
(The last few lines are the important bit, the rest are just declarations)

Please Login or Register  to view this content.

[nathansav]

Have you put the code in a module? Also try declaring as public sub, you need to put your costants at the top level also so available to complete module.

Please Login or Register  to view this content.

[Norie]

The array GeneTable is out of scope in the function Result, so VBA is looking for a sub/function named GeneTable.

[tahi.laci]

That explains the problem but offers no solution. If I just write public in front of the declarations I get another error message. I do intend all the arrays to work in the whole module, I don't know how to achieve that however.

[nathansav]

you need to put your costants at the top level also so available to complete module and your array. This is the solution.

Const Chromolen = 5
Const CrossRate = 0.7
Const MutRate = 0.01
Const poolSize = 40
Const Solution = 42

GeneTable = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "+", "-", "*", "/", "")

Public Sub Basic_example()
'others
Dim i As Integer

[tahi.laci]

Thanks that helped. It does work if I declare my constants and arrays in the top level, however I got an error message when trying to initialize the array at the top level so I only declared it and filled it in the sub. By the time I had a working code I had made some other changes. (Now I use variables instead of constants, but I think it would work with constants as well)

Please Login or Register  to view this content.