Random Draw
Dec 1, 2008
I was looking for some code to randomly generate a number for a prize draw I am doing. I found a great piece on this site, which I have slightly changed to give me what I have below.
It works great except for one thing I cannot work out, I have the code below working on cell "C1", I would like it to work in cell "C5", but I can't seem to work this out.
Sub SlotsNum()
Dim w As Long, x As String, y As Long
Randomize
x = Format(Int((Range("B2") - Range("B1") + 1) * Rnd + Range("B1")), "0000")
For y = 1 To 1
For w = 1 To 250
Range("C" & y) = Int(8000 * Rnd)
Next w
Range("C" & y) = CInt(Mid(x, y, 4))
Next y
End Sub
Also, whilst here. i will have one other problem, with it being a prize draw I do not want to draw the same number twice. At the moment I have a small macro that copies the winning name that appears on the main screen (via a vlookup) onto a winners spreadsheet. I am thinking of then creating another macro that replaces the winning name on the master list with an "Already Won" entry, so we can just select again.
View 9 Replies
ADVERTISEMENT
Apr 17, 2014
I'm trying to get a random prize draw working with in excel. My worksheet structure as follows.
A1 person's name
B2 points obtain by the person.
A1 B2
John 10 points
Ken 20 points
Amy 30 points
1st draw. If random number result between 1 and 10 display John wins then delete John's entries.
2nd draw etc... and delete anyone that has already won a prize.
With the following code I found on this forum it partly works. It only randomly select a cell but missing displaying the winner and removing it afterwards.
[Code]......
View 4 Replies
View Related
Sep 20, 2012
I have the below code that i am using to generate a random number between a user defined lower limit and upper limit (these limits are set in cells "B3" and "B4" in worksheet "DRAW"), the random number that is generated displays in cell "B7" on worksheet "DRAW".
The code also allows for the draw result to be stored on a second sheet called "DRAW HISTORY", on this sheet the draw result, date and time are recorded (the date and time are stored on sheet "DRAW" in cells "C20" & "C21" and these values are pulled to the result sheet by the macro).
What i would like to happen though is instead of the random number displaying instantly i would like the numbers to cycle for 3 seconds before stopping and the result being recorded. A much better visual effect than an instant BANG here is the winner.
here is the code i am using to generate the random number and record the result:
Sub testRandom()
Dim aRow As Long
Sheets("DRAW").Range("B7") =
[Code]....
View 3 Replies
View Related
Nov 17, 2008
Format Random Number Cells As Draw Result Entered ...
View 9 Replies
View Related
Sep 18, 2009
I am working on a Random Cycle Count Generator that provides random SKU#s based on 3 separate columns of SKU listings. The user clicks a button to generate the SKU#s to cycle count for that day. What I would like to see is a date stamp in the columns next(B,D,F) to the referenced SKU listing(A,C,E) based on which SKU#s are generated. This will let me see the last date that the SKU was generated. I would also like it to automatically save after generating.
View 2 Replies
View Related
Dec 3, 2009
i want to make a cup draw, but i don't want to use RAND, I want to use VBA.
What i want is to make a English Football League Cup, so all 92 leagues teams are in it, but as follows
First Round 72 teams
Second Round 50 Teams
Third Round 32 Teams
Fourth Round 16 Teams
Quarter-Finals 8 Teams
Semi-Final 4 Teams
Final 2 Teams
for a team list see attached excel spreadsheet
If you are not sure what i mean google search English League Cup or try soccerway
I want a command box or similar for each round, i dont want it to change unless i click on the command button again.
i will be inputing the scores myself.
Sorry i forget one team in the First round "Darlington"
View 14 Replies
View Related
Apr 4, 2009
Ive been trying to draw a circle in excel, although it only draws ovals - Is there a way to draw a circle in excel?
View 9 Replies
View Related
Nov 28, 2009
I'm creating a spreadsheet regarding football teams and want to lis thte combinations of results for each team.
Specifically, if the team will win or draw.
So, I have 6 teams, each team can either win or draw.
I want to display the combinations of team 1 winning AND team 2 winning AND team 3 winning etc.
View 9 Replies
View Related
Jan 22, 2010
Is it possible to add horizontal lines to a user form, like as shown in the attached image. I know about frames, but unsure how to get just one horizontal line.
View 3 Replies
View Related
Dec 18, 2012
i have faced a problem i want to draw straight connector using code imagine when you select straight connector to draw line mouse cursor changes when you move it to a node i want to do this with excel vba code without going to shapes and selecting connector.
View 5 Replies
View Related
Aug 14, 2013
I'm trying to use VBA to draw a border using the drawing toolbar and using the line. i need it to draw a border around a select area i hightlight.
i have attached a example below, but not sure if it will appear.
View 1 Replies
View Related
Mar 7, 2014
I have this Command button that switches on and draws a line. If you press it again then I need to delete that line.
If I push the button multiple times Excel keeps changing the name of the line. I have multiple lines on the same worksheet and text boxes but only this 1 line needs to be delete. I would think that theres a way to assign a permanent name to this line and delete and recreate it but...
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 319.5, 77.25, 319.5, _
245.25).Select
With Selection.ShapeRange.Line
.Visible = msoTrue
.Weight = 1.25
[Code]....
View 3 Replies
View Related
Dec 30, 2009
I have a 5-column listbox in a userform. I do not know how to make the column borders visible. If somebody can tell me, that would be great.
If not, then the next alternative would be to manually draw a line. I tried to so one, by creating a Label with a width of 1, and backcolor ot black. This works but not in front of a list box. For some reasons it cannot be brought to front/forward (order) of a listbox, I already right-clicked several times and sent tthe order to front.
Is it possible to bring it in front of a listbox?
View 9 Replies
View Related
Nov 12, 2013
I have attached a very simple example of what I am trying to achieve.So we have 2 sheets. a sheet called data and a sheet called results.
the data sheet, includes ID's of employees and what they are measured on - Hours and Accounts Finished.For example, worker 123 put in 100 hours from the 200 expected and finished 100 accounts from the 200 expected. The main sheet called Results looks up in a list every ID and displays in a table the compensation the worker got. Each time you select from the drop list a different ID number it shows the result and the amount of money they got.
I want to be able to draw every worker and display the compensation they got('Results', H11) in the Pay amount column('Data',H3:H11).
View 6 Replies
View Related
Sep 30, 2009
Since I did not know how to do this I used the record macro cheating option.
Excel spit out this chunck of
View 6 Replies
View Related
Nov 22, 2006
I have a worksheet set up as a draw sheet for a tournament. I have a set of rankings showing all points collated from last tournament. What i want to do is set up a formula/macro so that a cell containing a player eg. the winner will be found on the ranking list and the points won will be added to the next cell on the ranking list.
View 14 Replies
View Related
Dec 17, 2013
How to draw Olympics rings in Excel?(not by using macros)?
View 7 Replies
View Related
Sep 9, 2008
I've recently come across this wonderful site and have found it to be a pool for great information. I looking for some assistance with finding a macro that will draw circles/dots on a worksheet when the left mouse button is clicked at the mouse cursor location. There may be something out there already??? Here's exactly what I need; I want a macro that will draw 7 different coloured circles (blue, pink, cyan, lime green, red, yellow, and orange) on a worksheet. The macro would be activated from a button (7 different buttons- one for each colour) on the worksheet and when the left mouse button is clicked the coloured circle is drawn at the mouse cursor location.
View 9 Replies
View Related
Dec 20, 2009
I'm running a Secret Santa DJ competition this year and today now wish to make the draw.
Basically all entrants send in their mixes (in this case - upload to a webserver) and I then wish to try and use Excel to make the draw.
What I'd like to do is have a list of all the entrants in column a, use RAND() in column b to assign them each a number, and in column c use the list of entrants in column a to assign each person a mix to receive.
Through my browsing and searching on here, I came across the following (entered as an array); it's brilliant but unfortunately gives me duplications.
=INDEX($A$1:$A$10,COUNTA(A:A)-SUM((B1>$B$1:$B$10)+0))
View 9 Replies
View Related
Dec 5, 2006
way to calculate the drawdown for a futures trading account’s equity. The following is the record of taking a sequence of 20 trades. Drawdown is defined as the lowest point between two consecutive equity highs. Therefore a formula should detect pairs of equity highs and then find the maximum difference between these highs and the lowest point in between each of these pairs. Do you think this can be done using standard excel functions?
$9 700,00
$9 409,00
$9 126,73
$9 674,33
$10 254,79
$10 870,08
$11 522,29
$11 176,62
$11 847,21
$12 558,05
$13 311,53
$14 110,22
$13 686,92
$13 276,31
$12 878,02
$13 650,70
$14 469,74
$14 035,65
$14 877,79
$15 770,46
You might wish to plot a linear graph to visualize the equity. Looking forward to hear what you think! I include more examples of equity records.
formal definition of a drawdown:
Drawdown: The magnitude of a decline in account value, either in percentage or dollar terms, as measured from peak to subsequent trough. For example, if a trader's account increased in value from $10,000 to $20,000, then dropped to $15,000, then increased again to $25,000, that trader would have had a maximum drawdown of $5,000 (incurred when the account declined from $20,000 to $15,000) even though that trader's account was never in a loss position from inception
View 9 Replies
View Related
May 30, 2014
I have to draw a polygon of n sides whose , whose length of side will be given in the cells of excel and the diagram should be displayed in excel itself automatically
Like I have A1=5 A2=5 B1=4 B2=3 C4=5
Then diagram should be like in the attachment : Untitled5.png‎
View 2 Replies
View Related
Apr 16, 2008
Can Excel Draw Shapes or Angles based on Data?
I have a radiation Excel file that solves for Radiation intensity using Distance and shielding as reducing factors.
Similar to a circle of light being less intense with distance so is radiation.
I need excel to draw a circle from a point specified based on a value I give.
For example at 1 ft I might have 500 R in 1 hour (life threatening!)
At 16 feet I have about 2 R in 1 hour (not safe for too long)
These circles would be overlayed on an map.
I would like to draw a new circle at various distances, simialar to a bullseye.
I would also like a triangle drawn based on angles and SIN / COS / TAN formulas
Could this be done in VB or preferably without.
View 11 Replies
View Related
Oct 16, 2009
I m trying it out I find in the Win, Loss, Draw columns when there is no entry the formula leaves a 1 when there should be a 0 in the Draw column.
View 4 Replies
View Related
Jun 18, 2014
I have some code, in one part of it I am storing a number (between 1 and 8) as Integer. Is it possible to reference this variable to draw some rectangles on a sheet, sort of
"If MonitorDetail (this is the name of the variable) .value = 2 then
Here I place the code to draw the rectangle on the page. The macro currently stops at Monitordetail with a error telling me its a "Invalid Qualifier".
View 1 Replies
View Related
Oct 6, 2009
Currently we have data that is plotted to a scatter plot along with an already defined line. Next, with a straight edge we attempt to draw a line parallel to the already defined line through the scatter points of data. We basically find two points that give us the best fit to the original line. What I attempted to do was calcualte the slope of the original line and then the slope of each combination of two points in the data set. I then subtracted the slopes, found the minimum difference and thought that would give me the line most parallel to the original. This doesn't seem to work. I'm at a loss, any advice?
View 8 Replies
View Related
Sep 5, 2013
I want to put a length in one cell and a width in another. Then have excel draw a square/ rectangle to this size. It could just outline cells, each cell being one inch or any other way.
View 9 Replies
View Related
Sep 16, 2008
I want to select some cells (like A2-A20) and have it draw an arrow down the selected cells. Tried a few different things, none of which worked...
View 14 Replies
View Related
Apr 13, 2012
I came across an issue on the pivot table after refreshing data. I always need to manually redo the border and formatting. I figure that it is because every time when some new group have move to another day, it change the pivot table layout again and so on.
1) I manage to draw border for Day 1, 2, 3, 4 and 5 but 'Beyond Day 5' i dont know how to do it.
2) Sometime some Day X will have no data then i will have problem with my script. (example pivot table doesnt show Day 2)
3) Possible to do looping for that?
I had attached a simple file.
View 6 Replies
View Related
Aug 26, 2012
I am trying to automate drawing a flowchart based on a moel which the user can add or remove nodes and links from at will.
I can add shapes and position them but what I want to do is to insert connectors between existing shapes (I can draw two shapes and a connector at the same time but what I want to do is add a new node and then work out which existing nodes it links to and draw the lines)
Code:
Function AddConnectorBetweenShapes(ConnectorType As MsoConnectorType, _
oBeginShape As Shape, oEndShape As Shape) As Shape
'The ConnectorType can be one of three constants - msoConnectorCurve, msoConnectorElbow, or msoConnectorStraight.
[Code].....
View 2 Replies
View Related
Apr 7, 2014
I am new to Excel VBA and am trying to create a macro that will draw information from a spreadsheet. The code i have written so far is shown below:
Sub Event1()
'Dim Event Date As Double
Dim Message As String
Dim Ans As String
' Prompt for Data
[Code] ......
The section i am having issues with is shown in red above.
What i am trying to do is have a message box pop up with the information as shown based on a date being typed into the the original box that pops up (Please enter a date and click on OK). The following message box then displays the required information from the spreadsheet.
View 4 Replies
View Related
