need help with macros!!!!

themole

Board Regular
Joined
Oct 26, 2009
Messages
96
basically what i'm after is help with a macro that will keep running until a certain value is obtained.

what i've got is 11 lots of values, which is randomized from a list of about 200.

below that is a cell which calculates the total value of the 11 values i have.

what i want is someway which i can run a macro to keep randomizing these 11 values until the total value reaches 50. (i just don't want to sit there and keep hitting F9 all night long)

regards,
Steve
 

Excel Facts

Workdays for a market open Mon, Wed, Friday?
Yes! Use "0101011" for the weekend argument in NETWORKDAYS.INTL or WORKDAY.INTL. The 7 digits start on Monday. 1 means it is a weekend.

Scott Huish

MrExcel MVP
Joined
Mar 17, 2004
Messages
19,958
Office Version
  1. 365
  2. 2010
Platform
  1. Windows
Why are you including numbers as high as 200 when you want a total of 50 from the 11 cells?
 

themole

Board Regular
Joined
Oct 26, 2009
Messages
96
ok, sorry, i should have explained it better.

what it is ive got a list of about 200 different names each with their own value.

ive set up formulas to randomise 11 different names (including their values)

what i'm after is someway to set a macro to keep running/looping untill total value of 11 randomised names equals to 50 exactly
 

Weaver

Well-known Member
Joined
Sep 10, 2008
Messages
5,196
Say your cells are A1:A11

Code:
do
  calculate
until worksheetfunction.sum(range("A1:A11")) = 50
HTH

PS maybe you should then freeze your values

Code:
range("A1:A11").value = range("A1:A11").value
 

themole

Board Regular
Joined
Oct 26, 2009
Messages
96
copied that into vb code, error message comes up when run macro

???
 

Weaver

Well-known Member
Joined
Sep 10, 2008
Messages
5,196
my apologies

Code:
Sub test()
    Do
        Calculate
    [B]Loop [/B]Until WorksheetFunction.Sum(Range("A1:E1")) = 50
    Range("A1:E1").Value = Range("A1:E1").Value
End Sub
 

Forum statistics

Threads
1,176,402
Messages
5,902,861
Members
435,001
Latest member
ahsanali32

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
Top