Wrox Programmer Forums
| Search | Today's Posts | Mark Forums Read
Excel VBA Discuss using VBA for Excel programming.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Excel VBA section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
 
Old August 28th, 2011, 12:23 PM
Registered User
Points: 5, Level: 1
Points: 5, Level: 1 Points: 5, Level: 1 Points: 5, Level: 1
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Aug 2011
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default Rolling Excel Solver

Hi everyone,
I will appreciate if someone provide me assistance on this issue.
I have 7 columns to estimate variables using 2 goal seek and one solver function. I can do them manually just every time by opening goal seek and solver putting parameters of each column and do it 7 times. I need macros automatically can estimate these variables using 2 goal seek functions and 1 solver function. Excel sheet is located at : http://www.box.net/shared/icf50cbdhxy2yhprizin

Hence I have these 2 goal seek functions for each 7 column:
first Goal seek for 7 columns respectively:
For column 2
Set cell: B16
To value: 0
By changing cell: B15
For column 3
Set cell: C16
To value: 0
By changing cell: C15
For column 4
Set cell: D16
To value: 0
By changing cell: D15
For column 5
Set cell: E16
To value: 0
By changing cell: E15
For column 6
Set cell: F16
To value: 0
By changing cell: F15
For column 7
Set cell: G16
To value: 0
By changing cell: G15
For column 8
Set cell: H16
To value: 0
By changing cell: H15
Second Goal seek for 7 columns respectively:
For column 2
Set cell: B18
To value: 0
By changing cell: B17
For column 3
Set cell: C18
To value: 0
By changing cell: C17
For column 4
Set cell: D18
To value: 0
By changing cell: D17
For column 5
Set cell: E18
To value: 0
By changing cell: E17
For column 6
Set cell: F18
To value: 0
By changing cell: F17
For column 7
Set cell: G18
To value: 0
By changing cell: G17
For column 8
Set cell: H18
To value: 0
By changing cell: H17
Solver function for 7 columns respectively
For column 2
Set target cell: B13
Equal to value of : 0
By changing cells: B10
Subject to constraints: B10 <= B14
B10 >= B19
For column 3
Set target cell: C13
Equal to value of : 0
By changing cells: C10
Subject to constraints: C10 <= C14
C10 >= C19
For column 4
Set target cell: D13
Equal to value of : 0
By changing cells: D10
Subject to constraints: D10 <= D14
D10 >= D19
For column 5
Set target cell: E13
Equal to value of : 0
By changing cells: E10
Subject to constraints: E10 <= E14
E10 >= E19
For column 6
Set target cell: F13
Equal to value of : 0
By changing cells: F10
Subject to constraints: F10 <= F14
F10 >= F19
For column 7
Set target cell: G13
Equal to value of : 0
By changing cells: G10
Subject to constraints: G10 <= G14
G10 >= G19
For column 8
Set target cell: H13
Equal to value of : 0
By changing cells: H10
Subject to constraints: H10 <= H14
H10 >= H19


After this calculation i will get Omega, Omega1 and Omega2 for each column. So I need a macros which calculates these solver function automatically for each column.

Thanks in advance




Similar Threads
Thread Thread Starter Forum Replies Last Post
Sudoku solver aehb Visual C++ 3 November 12th, 2011 07:41 AM
Lets get this forum rolling! SQLScott Windows Communication Foundation 6 August 9th, 2011 10:01 PM
EnterpriseLibrary 3.1.0.0 - Rolling Flat File Trac veeruu .NET Framework 2.0 1 March 7th, 2008 04:42 AM
Solver Results Auto Accept IainAL VB How-To 1 July 15th, 2007 07:30 AM
Use function Solver of Excel in VB.NET 2003 pliroforikarios VB.NET 2002/2003 Basics 0 November 27th, 2005 03:37 PM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.