×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Automate Goal Seek in Excel 2007

Automate Goal Seek in Excel 2007

Automate Goal Seek in Excel 2007

(OP)
I'm trying to automate the Goal Seek function based on the current active cell.  What I want to do is have the user click a button and, based on the current active cell, the button will run the goal seek code and solve for the desired number.

The code is simple, but I am stupid when it comes to the RANGE object and using OFFSET.

CODE

ActiveCell.GoalSeek Goal:=1, ChangingCell:=ActiveCell.Range(ActiveCell).Offset(-1, 0)

Excel errors out on the word "Range" and says "Argument Not Optional" or some such thing.

How can I reference a cell that is in the same column, but one row above, the current cell and incorporate that into the Goal Seek code?

Thanks!!


Matt

RE: Automate Goal Seek in Excel 2007

(OP)
I always figure these things after the fact, heh.

CODE

Sub Close_MB()
Dim rng As Range
'
Set rng = ActiveCell

    ActiveCell.GoalSeek Goal:=1, ChangingCell:=rng.Offset(-1, 0)
    
    rng.Offset(0, 1).Activate
    
Set rng = Nothing


End Sub

I guess one question would be, do I need the "Set rng = Nothing" statement?  I had heard at one point that it was good to close such things.

Thanks!!


Matt

RE: Automate Goal Seek in Excel 2007

(OP)
Because I am not nearly as awesome as you.  :)

Star for you.  Thanks!

Thanks!!


Matt

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close