E
emilija
Hi,
I have the macro named SOLVER, when I call this macro with the sub routine
MIX, the Compile error occurred with massage "Expect variable or procedure,
not project"
Both macros are given below,
What can be possible mistake,
Sub SOLVER()
Dim StoppedFeederColor As Long
Dim RunningFeederColor As Long
StoppedFeederColor = RGB(150, 150, 150)
RunningFeederColor = RGB(0, 0, 0)
With ThisWorkbook.Worksheets("5 Comp Mix")
Display_off
.Select
SolverOk SetCell:="$t$37", MaxMinVal:=2, ValueOf:="0",
ByChange:="$k$63:$k$67"
solverSolve UserFinish = False
SolverFinish
End With
ThisWorkbook.Worksheets("MainBackground").Select
Display_on
With ThisWorkbook.DialogSheets("MainDlg")
For i = 1 To 5
For j = 1 To 5
If ThisWorkbook.Worksheets("5 Comp Mix").Range("TonsFeed") _
.Cells(i).Value < AlmostZero
Then
.TextBoxes((i - 1) * 5 + j).Font.Color =
StoppedFeederColor
Else
.TextBoxes((i - 1) * 5 + j).Font.Color =
RunningFeederColor
End If
Next j
Next i
End With
End Sub
***********************************
Sub Mix()
Update_Sum_Values
Shift_Proportions
Call SOLVER
End Sub
I have the macro named SOLVER, when I call this macro with the sub routine
MIX, the Compile error occurred with massage "Expect variable or procedure,
not project"
Both macros are given below,
What can be possible mistake,
Sub SOLVER()
Dim StoppedFeederColor As Long
Dim RunningFeederColor As Long
StoppedFeederColor = RGB(150, 150, 150)
RunningFeederColor = RGB(0, 0, 0)
With ThisWorkbook.Worksheets("5 Comp Mix")
Display_off
.Select
SolverOk SetCell:="$t$37", MaxMinVal:=2, ValueOf:="0",
ByChange:="$k$63:$k$67"
solverSolve UserFinish = False
SolverFinish
End With
ThisWorkbook.Worksheets("MainBackground").Select
Display_on
With ThisWorkbook.DialogSheets("MainDlg")
For i = 1 To 5
For j = 1 To 5
If ThisWorkbook.Worksheets("5 Comp Mix").Range("TonsFeed") _
.Cells(i).Value < AlmostZero
Then
.TextBoxes((i - 1) * 5 + j).Font.Color =
StoppedFeederColor
Else
.TextBoxes((i - 1) * 5 + j).Font.Color =
RunningFeederColor
End If
Next j
Next i
End With
End Sub
***********************************
Sub Mix()
Update_Sum_Values
Shift_Proportions
Call SOLVER
End Sub