Solver macro for active row

[jarvisjaska]

I've recorded a simple solver macro and I have two problems with it. The recorded code is shown below:

Sub Macro1()
'
' Macro1 Macro
'

'
    SolverReset
    SolverOk SetCell:="$BU$8", MaxMinVal:=3, ValueOf:=0, ByChange:="$BC$8,$BQ$8", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$BU$8", MaxMinVal:=3, ValueOf:=0, ByChange:="$BC$8,$BQ$8", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve userFinish:=True
End Sub

Problem 1: Recorder didn't record constraints (cells BD8 and BO8 should both equal 0)
Problem 2: I want to be able to run the macro on the active row (ie. the row I'm currently on). For example, if I'm on row 11 I need to set cell BU11 to 0 by changing cells BC11 and BQ11. Also cells BD11 and BO11 should both equal 0.

Any ideas on how to solve these problems?

 

[Jeffrey Mahoney]

ActiveCell refers to the current selected cell
Activecell.offset(0,1) refers to the cell one column to the right of the current selected cell
Activecell.Row refers to the row of the selected cell
Range("BC" & Activecell.row).value = 0 changes BC11 to zero if the selected cell is on row 11
Range("BQ" & Activecell.row).value = 0 changes BQ11 to zero if the selected cell is on row 11

 

[jarvisjaska]

ActiveCell refers to the current selected cell
Activecell.offset(0,1) refers to the cell one column to the right of the current selected cell
Activecell.Row refers to the row of the selected cell
Range("BC" & Activecell.row).value = 0 changes BC11 to zero if the selected cell is on row 11
Range("BQ" & Activecell.row).value = 0 changes BQ11 to zero if the selected cell is on row 11

Thank you! Took a while to get it right, but now it's working perfectly.