need help with macros!!!!

themole

Board Regular
Joined
Oct 26, 2009
Messages
95
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

How can you automate Excel?
Press Alt+F11 from Windows Excel to open the Visual Basic for Applications (VBA) editor.

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
95
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
95

ADVERTISEMENT

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
 

Watch MrExcel Video

Forum statistics

Threads
1,133,567
Messages
5,659,574
Members
418,508
Latest member
deepakfer

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