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
 

Some videos you may like

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,953
Office Version
365, 2010
Platform
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
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,397
Messages
5,511,109
Members
408,825
Latest member
Goncalves74

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top