Compile error: Sub or Function not defined"

Excel Facts

Control Word Wrap
Press Alt+Enter to move to a new row in a cell. Lets you control where the words wrap.
Sort by date Sort by votes
It means that the way you have written your code, it thinks that you are trying to call a macro or a VBA function you created, and it cannot find one with the name you provided.

We could probably help you out more if you posted your VBA code, and which line gets highlighted when you click on the "Debug" option that pops up under that error message.
 
Upvote 0
Thanks. I created a macro file named "DWP" in Developer/Macros and then copy and paste the code. When I run it I get that error "Compile error, sub or function not defined". Please see the attached pic.
 

Attachments

  • Error.PNG
    Error.PNG
    180.7 KB · Views: 622
Upvote 0
I deleted the other modules and now It started running but now I get another error "run time error 1004 method range of object _global failed vba" Please find the pic attached. what is the problem?
 

Attachments

  • error2.PNG
    error2.PNG
    243.8 KB · Views: 259
Upvote 0
It looks like it is trying to reference a range named "kvar", but I do not see "kvar" being defined or set anywhere in that procedure.
Is it a global value? What is its value at that point in time?
 
Upvote 0
This is the code, Could you please look at it. Kvar is defined as String and is a trial and error number that is changing until the value of a specific function becomes zero.
Code: 
Sub DWP()
Dim vVar As String
Dim kvar As String
Dim changev As Range
Dim off As Integer
Dim con As Integer
Dim kchange As Double
Dim vchange As Double
Dim mini As Integer
Dim donum As Integer
Dim SelNum As Integer


'Application.ScreenUpdating = False
donum = -15
mini = 10
off = 57
con = 0
SelNum = -57
Sheets("Solver").Select
Range("B71").Select
Call ValSet
Call Opter
Range("B18").Select
Call valOf

Range("B71").Select
Call Opter



Range("B71").Select
con = 1
kchange = -0.5
vchange = 0.5
Call Opter
Range("B18").Select
'Call valOf
Range("B71").Select

kchange = 1
vchange = 1
Call Opter
Range("B18").Select
'Call valOf
Range("B71").Select


kchange = 0.5
vchange = -0.5
Call Opter
Range("B18").Select
'Call valOf
Range("B71").Select

kchange = -0.5
vchange = -0.5
Call Opter
Range("B18").Select
'Call valOf
Range("B71").Select

kchange = 0.5
vchange = 0.5
Call OpterUnconst
Range("B18").Select
'Call valOf
Range("B71").Select

kchange = -0.5
vchange = 0.5
Call OpterUnconst
Range("B18").Select
'Call valOf
Range("B71").Select

kchange = 0.5
vchange = -0.5
Call OpterUnconst
Range("B18").Select
'Call valOf
Range("B71").Select

kchange = 10
vchange = 1
Call OpterUnconst
Range("B18").Select
'Call valOf
Range("B71").Select

kchange = 5
vchange = 1
Call OpterUnconst
Range("B18").Select
'Call valOf
Range("B71").Select

kchange = 1
vchange = 5
Call OpterUnconst
Range("B18").Select
'Call valOf
Range("B71").Select

kchange = 2
vchange = 50
Call OpterUnconst
Range("B18").Select
'Call valOf
Range("B71").Select

kchange = -5
vchange = 0.5
Call OpterUnconst
Range("B18").Select
'Call valOf
Range("B71").Select

kchange = -10
vchange = 10
Call OpterUnconst
Range("B18").Select
'Call valOf
Range("B71").Select

kchange = -10
vchange = 1
Call OpterUnconst
Range("B18").Select
'Call valOf
Range("B71").Select

kchange = 1
vchange = 10
Call OpterUnconst
Range("B18").Select
'Call valOf
Range("B71").Select


kchange = -0.5
vchange = -0.5
Call OpterUnconst
Range("B18").Select
'Call valOf



con = 0
Range("N73").Select
Call Opter
Range("N73").Select

con = 1
kchange = 1
vchange = 1
Call Opter
Range("N73").Select

'con = 1
kchange = 0.123
vchange = 0.321
Call Opter
Range("N73").Select

kchange = -0.5
vchange = 0.5
Call Opter
Range("N73").Select

kchange = 0.5
vchange = -0.5
Call Opter
Range("N73").Select

kchange = -0.5
vchange = -0.5
Call Opter
Range("N73").Select

kchange = 0.5
vchange = 0.5
Call OpterUnconst
Range("N73").Select

kchange = -0.5
vchange = 0.5
Call OpterUnconst
Range("N73").Select

kchange = 0.5
vchange = -0.5
Call OpterUnconst
Range("N73").Select

kchange = 5
vchange = 1
Call OpterUnconst
Range("N73").Select

kchange = 1
vchange = 5
Call OpterUnconst
Range("N73").Select

kchange = -0.5
vchange = -0.5
Call OpterUnconst


Range("AB71").Select
con = 0
Call Opter3
Range("AB71").Select
con = 1
kchange = -3
Call Opter3


Range("AK71").Select
Call Opter4

con = 0
mini = 1
donum = 2
off = 3

Range("BB16").Select
Call valOf2

Range("BP16").Select
Call valOf2

Range("AV25").Select
Call OpterUnconstr

Range("AV12").Select
Call OpterUnconstr

Range("BJ25").Select
Call OpterUnconstr

Range("BJ12").Select
Call OpterUnconstr

con = 0
mini = 0
donum = -2
off = 49
SelNum = -49
Range("BP59").Select
Call OpterUnconstr

Range("BB59").Select
Call OpterUnconstr
SolverReset
End Sub
Sub ValSet()
'Application.ScreenUpdating = False
    Range("B9:J10, AB9:AH9").Value = 0.5
    Range("N9:O10, Q9:U10, W9:W10, X10").Value = -0.5
    Range("P9").Value = 2
    Range("P10").Value = -2.5
    Range("AK9:AP9").Value = 0.75
    Range("V9").Value = -0.005
    Range("v10").Value = 0.05
    Range("x9").Value = -0.05
End Sub
Sub Opter()
'Application.ScreenUpdating = False
'Call Module1.Iterations
Do While IsEmpty(ActiveCell.Offset(donum, 0)) = False
If mini = 1 Then
Call selecterMini
Else
Call selecter
End If
Set changev = Selection
ActiveCell.Offset(off, 0).Select


On Error GoTo erhand
If ActiveCell.Value > 950 Then
    If con = 1 Then
    Range(kvar).Value = kchange
    Range(vVar).Value = vchange
    Else
End If

    'Application.Run "SolverReset"
    'Application.Run "SolverOk", "ActiveCell.Address", 3, "0", "changev.Address"
    'Application.Run "SolverAdd", "kvar", 1, "Range(kvar).Offset(-1, 0).value"
    'Application.Run "SolverAdd", "kvar", 3, "Range(kvar).Offset(-2, 0).value"
    'Application.Run "SolverAdd", "vvar", 1, "Range(vVar).Offset(-4, 0).value"
    'Application.Run "SolverAdd", "vvar", 3, "Range(vVar).Offset(-5, 0).value"
    'Application.Run "SolverSolve", True
SolverReset
SolverOptions AssumeNonNeg:=False, Derivatives:=2
SolverOk SetCell:=ActiveCell.Address, _
                     MaxMinVal:=3, _
                     ValueOf:=0, _
                     ByChange:=changev.Address
                     SolverAdd CellRef:=kvar, Relation:=1, FormulaText:=Range(kvar).Offset(-1, 0).Value
                     SolverAdd CellRef:=kvar, Relation:=3, FormulaText:=Range(kvar).Offset(-2, 0).Value
                     SolverAdd CellRef:=vVar, Relation:=1, FormulaText:=Range(vVar).Offset(-4, 0).Value
                     SolverAdd CellRef:=vVar, Relation:=3, FormulaText:=Range(vVar).Offset(-5, 0).Value
            SolverSolve UserFinish:=True
ActiveCell.Offset(0, 1).Select
Else
erhand:
Resume Next
ActiveCell.Offset(0, 1).Select
End If
Loop
'Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Sub valOf()
'Application.ScreenUpdating = False
Do While IsEmpty(ActiveCell.Offset(-2, 0)) = False
If ActiveCell.Value = "Run Opt.1" Then
SolverReset
SolverOk SetCell:=ActiveCell.Offset(1, 0).Address, _
                     MaxMinVal:=3, _
                     ValueOf:=0, _
                     ByChange:=Selection.Offset(2, 0).Address
            SolverSolve UserFinish:=True
ActiveCell.Offset(0, 1).Select
Else
ActiveCell.Offset(0, 1).Select
End If
Loop
End Sub
Sub valOf2()
'Application.ScreenUpdating = False
Do While IsEmpty(ActiveCell.Offset(-3, 0)) = False
If ActiveCell.Value = "Run Opt.1" Then
SolverReset
SolverOk SetCell:=ActiveCell.Offset(1, 0).Address, _
                     MaxMinVal:=3, _
                     ValueOf:=0, _
                     ByChange:=Selection.Offset(2, 0).Address
            SolverSolve UserFinish:=True
ActiveCell.Offset(0, 1).Select
Else
ActiveCell.Offset(0, 1).Select
End If
Loop
End Sub
Sub OpterUnconst()
'Application.ScreenUpdating = False
'Call Module1.Iterations
Do While IsEmpty(ActiveCell.Offset(donum, 0)) = False
If mini = 1 Then
Call selecterMini
Else
Call selecter
End If
Set changev = Selection
ActiveCell.Offset(off, 0).Select
On Error GoTo erhand
If ActiveCell.Value > 950 Or ActiveCell < -500 Then

If con = 1 Then
Range(kvar).Value = kchange
Range(vVar).Value = vchange
Else
End If

SolverReset
SolverOptions AssumeNonNeg:=False, Derivatives:=2
SolverOk SetCell:=ActiveCell.Address, _
                     MaxMinVal:=3, _
                     ValueOf:=0, _
                     ByChange:=changev.Address
                     SolverAdd CellRef:=kvar, Relation:=1, FormulaText:=Range(kvar).Offset(-1, 0).Value + 2
                     SolverAdd CellRef:=kvar, Relation:=3, FormulaText:=Range(kvar).Offset(-2, 0).Value - 2
                     SolverAdd CellRef:=vVar, Relation:=1, FormulaText:=Range(vVar).Offset(-4, 0).Value + 15
                     SolverAdd CellRef:=vVar, Relation:=3, FormulaText:=Range(vVar).Offset(-5, 0).Value - 15
                     'SolverAdd CellRef:=kvar, Relation:=1, FormulaText:=Range(kvar).Offset(-1, 0).value
                    'SolverAdd CellRef:=kvar, Relation:=3, FormulaText:="0.0001"
                     'SolverAdd CellRef:=vVar, Relation:=1, FormulaText:=Range(vVar).Offset(-4, 0).value
                    'SolverAdd CellRef:=vVar, Relation:=3, FormulaText:="0.0001"
            SolverSolve UserFinish:=True
ActiveCell.Offset(0, 1).Select
Else
erhand:
Resume Next
ActiveCell.Offset(0, 1).Select
End If
Loop
'Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Sub OpterUnconstr()
'Application.ScreenUpdating = False
'Call Module1.Iterations
Do While IsEmpty(ActiveCell.Offset(donum, 0)) = False
If mini = 1 Then
Call selecterMini
Else
Call selecter
End If
Set changev = Selection
ActiveCell.Offset(off, 0).Select
On Error GoTo erhand
If ActiveCell.Value > 0.95 Or ActiveCell < -0.5 Then

If con = 1 Then
Range(kvar).Value = kchange
Range(vVar).Value = vchange
Else
End If

SolverReset
SolverOptions AssumeNonNeg:=False, Derivatives:=2
SolverOk SetCell:=ActiveCell.Address, _
                     MaxMinVal:=3, _
                     ValueOf:=0, _
                     ByChange:=changev.Address
                     'SolverAdd CellRef:=kvar, Relation:=1, FormulaText:=Range(kvar).Offset(-1, 0).value + 2
                     'SolverAdd CellRef:=kvar, Relation:=3, FormulaText:=Range(kvar).Offset(-2, 0).value - 2
                     'SolverAdd CellRef:=vVar, Relation:=1, FormulaText:=Range(vVar).Offset(-4, 0).value + 15
                     'SolverAdd CellRef:=vVar, Relation:=3, FormulaText:=Range(vVar).Offset(-5, 0).value - 15
                     'SolverAdd CellRef:=kvar, Relation:=1, FormulaText:=Range(kvar).Offset(-1, 0).value
                    'SolverAdd CellRef:=kvar, Relation:=3, FormulaText:="0.0001"
                     'SolverAdd CellRef:=vVar, Relation:=1, FormulaText:=Range(vVar).Offset(-4, 0).value
                    'SolverAdd CellRef:=vVar, Relation:=3, FormulaText:="0.0001"
            SolverSolve UserFinish:=True
ActiveCell.Offset(0, 1).Select
Else
erhand:
Resume Next
ActiveCell.Offset(0, 1).Select
End If
Loop
'Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Sub Opter3()
'Application.ScreenUpdating = False
'Call Module1.Iterations
Do While IsEmpty(ActiveCell.Offset(-10, 0)) = False
Call selecter3
Set changev = Selection
ActiveCell.Offset(57, 0).Select
On Error GoTo erhand
If ActiveCell.Value > 950 Or ActiveCell.Value < -0.1 Then
'MsgBox ActiveCell.value
If con = 1 Then
Range(kvar).Value = kchange
Else
End If

SolverReset
SolverOptions AssumeNonNeg:=True, Derivatives:=2
SolverOk SetCell:=ActiveCell.Address, _
                     MaxMinVal:=3, _
                     ValueOf:=0, _
                     ByChange:=kvar
                     SolverAdd CellRef:=kvar, Relation:=1, FormulaText:=Range(kvar).Offset(-1, 0).Value
                     SolverAdd CellRef:=kvar, Relation:=3, FormulaText:=Range(kvar).Offset(-2, 0).Value
            SolverSolve UserFinish:=True
ActiveCell.Offset(0, 1).Select
Else
erhand:
Resume Next
ActiveCell.Offset(0, 1).Select
End If
Loop
'Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Sub Opter4()
'Application.ScreenUpdating = False
'Call Module1.Iterations
Do While IsEmpty(ActiveCell.Offset(-13, 0)) = False
Call selecter3
Set changev = Selection
ActiveCell.Offset(57, 0).Select
SolverReset
SolverOptions AssumeNonNeg:=True, Derivatives:=2
SolverOk SetCell:=ActiveCell.Address, _
                     MaxMinVal:=2, _
                     ByChange:=kvar
                     SolverAdd CellRef:=kvar, Relation:=1, FormulaText:=Range(kvar).Offset(-1, 0).Value
                     SolverAdd CellRef:=kvar, Relation:=3, FormulaText:=Range(kvar).Offset(-2, 0).Value
            SolverSolve UserFinish:=True
ActiveCell.Offset(0, 1).Select
'erhand:
'Resume Next
'ActiveCell.Offset(0, 1).Select
Loop
'Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Sub selecter()
'Application.ScreenUpdating = False
ActiveCell.Offset(SelNum, 0).Select
kvar = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
vVar = ActiveCell.Address
ActiveCell.Offset(-1, 0).Select
ActiveCell.Resize(2).Select
End Sub
Sub selecter3()
'Application.ScreenUpdating = False
ActiveCell.Offset(-57, 0).Select
kvar = ActiveCell.Address
End Sub
Sub selecterMini()
ActiveCell.Offset(-3, 0).Select
kvar = ActiveCell.Address
ActiveCell.Offset(1, 0).Select
vVar = ActiveCell.Address
ActiveCell.Offset(-1, 0).Select
ActiveCell.Resize(2).Select
End Sub

Sub it2()
'Range("B9:J10").value = 0.5
'MsgBox kvar & " " & vVar
'MsgBox Range(kvar).Offset(-2, 0).value

    Application.Run "SolverReset"
    Application.Run "SolverOk", "ActiveCell.Address", 3, "0", "changev.Address"
    Application.Run "SolverAdd", "kvar", 1, "Range(kvar).Offset(-1, 0).value"
    Application.Run "SolverAdd", "kvar", 3, "Range(kvar).Offset(-2, 0).value"
    Application.Run "SolverAdd", "vvar", 1, "Range(vVar).Offset(-4, 0).value"
    Application.Run "SolverAdd", "vvar", 3, "Range(vVar).Offset(-5, 0).value"
    Application.Run "SolverSolve", True
End Sub
 
Last edited by a moderator:
Upvote 0
The issue is you are setting kvar in you DWP procedure, but then you are trying to use it in your Opter procedure.
You cannot do it that way. Opter will not look into DWP for the value of kvar the way you have it set up.

You have two options:
1. Declare kvar as a Global Variable (those are Dim'd OUTSIDE of any procedure, usually at the very top. Then it can be seen/used by any procedure in that module.
See here: VBA Global Variable - Automate Excel
2. Put a parameter on your Opter procedure, and pass it the value of kvar when you call it.
See here: Excel VBA Programming - Passing values to a Subroutine

Also, you should turn on Option Explicit in VBA. This will put the phrase "Option Explicit" at the top of all your modules, and force you to declare all your variables before using them. This will catch things like this (trying to use a variable in a procedure that hasn't been declared), and will also catch typos in your variables.
See here: Option Explicit in Excel VBA
 
Upvote 0
Thank you very much. Another question: How can I transfer a macro file with all modules used in an excel file for another excel file ?
 
Upvote 0
Mosen87 said:
Another question: How can I transfer a macro file with all modules used in an excel file for another excel file ?
Click to expand...
I would just copy the original file over (re-save under a different name).
 
Upvote 0
You must log in or register to reply here.

Similar threads

L
  • Question Question
Compile error: Variable not defined
Replies
3
Views
210
lharr28
L
I
  • Solved
Clear / Reset Checkbox on worksheet when userform has a submission
Replies
2
Views
157
ipbr21054
I
Red over White
  • Question Question
Finding the highest numbered worksheet within a booklet
Replies
2
Views
154
Red over White
Red over White
M
  • Solved
compile error
Replies
1
Views
203
RoryA
RoryA
R
  • Solved
Using "Special Characters" in VBA
Replies
4
Views
291
Alex Blakenburg
A

Forum statistics

Threads
1,222,284
Messages
6,165,079
Members
451,931
Latest member
miles00

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top