Poker Part 1 Of 2
Dec 3, 2006
Like the one at the casino machines.
A1 to A52 like this :
A1 value = As (Ace spades)
A2 value = Ah (Ace hearts) etc...etc..
Randomize like this:
Sub Makerandomlist()
Dim v As Variant
With Worksheets("Sheet1")
With .Range("A1:A" & (Range("A65536").End(xlUp).Row))
v = .Value
.Offset(0, 1).Formula = "=Rand()"
.Resize(, 2).Sort Key1:=.Offset(0, 1)
.Offset(0, 1).Value = .Value
.Value = v
End With
End With
End Sub
Transpose [A1:A5] in [C1:G1]
In a hidden column 52 JPG's (all cards in a deck)
using cases how can i do the equivalent of fifty two If's ?
If [A1] = AhThen
ActiveSheet.Shapes("Picture 3").Copy
Range("C1").Select
ActiveSheet.Paste
End If
View 9 Replies
ADVERTISEMENT
Jan 14, 2008
i am trying to write a simulator for poker. I am struggleing to find the most efficient way to deal out a deck of cards.
If I number each card 1 - 52 i can generate the first card using the randombetween function but lets say it generates the the four of clubs, which is card number "4" out of the cards 1 - 52.
Now the second card i want to generate is one of 51 not of 52. Also i do not want to gererate the four of clubs again.
how to make this as efficient as possible, i wish to use this to do a helluva alot of simulations so the more efficient the code the better.
View 9 Replies
View Related
Oct 29, 2003
writing a spreadsheet that interprets poker hands. I've finished, and it works. I have successfully dealt "Texas Hold Em" poker to 10 players, dealt 5 community cards, and then interpreted the best poker hand and declared a winner.
I did it by using separate tables testing whether certain poker hands existed or not, and I used completely intrinsic Excel functions, NO VBA. That's for those of you who said it couldn't be done! I may soon introduce VBA to slow down the calculations using buttons, and simple things, but Excel can do this.
View 9 Replies
View Related
Nov 11, 2007
Let's say My criteria is :
1 2 3 4 5 6 7 8 9 10 J Q K A (13 ranks of cards)
s c d h (4 different suits...s=spades c = clubs,etc)
5 would be the number of draws of 1 card to make a poker hand
How would I go about listing the 2, 598, 960 different poker hands in separate cells?
View 14 Replies
View Related
Feb 12, 2009
I'm creating a worksheet that gives a list of part numbers based on the product part code. In most cases I can use the following.
=LOOKUP(O6,{0,1,2,3,4},{"NONE (M25)","SMP-55-001","SMP-55-004","SMP-55-008","SMP-55-014"})
so this gives a part number depending on what number is placed in O6. What I need to do know is look at 2 different cells and for each combination of numbers give a different part number. so if A1 is 2 and B1 is 3 give a certain result.
View 3 Replies
View Related
Nov 18, 2008
Using the below formula. I know that I should get the result of 32 if I am dong this correctly (182 matches part 1 of which 32 match in part 2).
=SUMPRODUCT(--($A$1='7. PM BDE'! $J$3:$J$366))*(--('7. PM BDE'!$L$3:$L$366=1))
View 3 Replies
View Related
Feb 12, 2014
Is there any way to remove the first part of a string of text in a cell and save the second part?
The first part of the text string is a team code that has a variable number of numbers, capital letters and sometimes spaces. The second part of the text string is a variable number of words in a team name that all start with a capital letter and have lower case letters. Every line has a different team code and team name.
The original spreadsheet also has a column with just team code. Is there a way of using this column to "subtract" the team code from the text string to just leave the team name?
View 5 Replies
View Related
Dec 10, 2008
I have a spreadsheet with 2 worksheets. On the first "active parts" I have a list of active part numbers and on the second "All Parts" I have all of the parts available.
I want to compare every part in the All Parts worksheet to see if the part number exists on the Active Parts sheet - if it's there, I would like it to return the value "Active" in column B in All Parts. I have a formula in column B in All Parts that seems to work for the first few, but as soon as it finds one that is active, the rest of the cells below all return "Active".
View 3 Replies
View Related
Aug 4, 2007
I have 2 basic parts to a Macro which need to be separated by a pause of 1 second, before proceeding to the next part of the macro. Then pause for 1 second, and loop.
Application.Wait is no good to me as the spreadsheet must remain live, editable, and receiving updates from an external program linked via DDE. Below is the ...
View 6 Replies
View Related
Mar 9, 2013
I have an excel file having part code,name,vendor and Qty ( Quantity ).
My problem is that I want to apply an excel formula to pick up that vendor code who have highest Qty of a part code.The condition is that S.No.should not be disturbed.This file is so large,but here I have taken an example,
View 2 Replies
View Related
Feb 10, 2009
What I am trying to do is automatically move the date received and the total qty received from the Rcvg. Log sheet to the RFMs Release sheet.
The problem is:
1) I don't know what I'm doing
2) On the Rcvg. Log several part numbers that are the same with different Qtys.
3) on the Rcvg. Log the are several part numbers that are the same using different programs.
What I would like to do is combine all the same part numbers with the same program add the total Qty received and paste the date received and total Qty into the RFMs Release sheet in the proper part numbers row.
Is this possible?
Attached is a shortened copy of the spreadsheet normally there about 3000 entries.
View 9 Replies
View Related
Aug 14, 2014
In one cell I have multiple value:09/16/2013, 09/16/2013, 09/16/2013, 10/15/2013
I want to use the first read which is 08/22/2013. Not always i have multiple dates in my table.This is part of code that I am working on.What I usually do, to get the last value when I have multiple reads is:
I have select the cell C1, the multiple reads(dates) are in the cell B1, so i need the last read(10/15/2013) ;i use this code:
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-1],10)+1"
SO now I want use the same logic but i want to take the first read/date. Also here the cell from where I want to get the value is selected.
Above the multiple reads were in the cell B1 and cell C1 was selected before performing the code, now the code is in the cell B1 and B1 is also selected.
I tried to do ActiveCell.FormulaR1C1 = "=Left(RC[-1],10)" but I rich the value in the cell on left which is A1. I want this for tomorrow since I have something to present.
View 1 Replies
View Related
Feb 28, 2014
how I can just delete cells L through Y of the row where the below finds del in row Y?
Range("L:Y").Select is incorrect
Code:
Sub DeleteBlankCash()
LR = Sheets("4.1 A&L - Overdraft Accounts").Cells(rows.Count, "V").End(xlUp).row
Dim rng As Range
Dim cell As Variant
[Code]...
View 8 Replies
View Related
May 4, 2007
calculate a formula for the following: 1 per 25 for the first 50 and 1 per 50 for the remainder exceeding 50 ad infinitum (always rounding up).
View 6 Replies
View Related
Dec 4, 2007
i'm excel macro now at the stage where i could already deleted duplicates data from column A to H. But i need to keep data in column J onwards.(column I i leave it blank to separate the data). currently i'm using these for deletion. (i put [] as i was unable to upload my question)
Delete_DuplicateReferences()
Dim LLoop As Integer
Dim LTestLoop As Integer
Dim Lrows As Integer
Dim LRange As String
Dim LCnt As Integer
'Column values
Dim LColA_1, LColB_1, LColC_1, LColD_1, LColE_1, LColF_1, LColG_1, LColH_1 As String
Dim LColA_2, LColB_2, LColC_2, LColD_2, LColE_2, LColF_2, LColG_2, LColH_2 As String
'Test first 2000 rows in spreadsheet for duplicates (delete any duplicates found)
Lrows = 2000.................
View 2 Replies
View Related
Oct 18, 2013
formula that will pull out the number preceding the * 60 in the text below? In this particular case I would be looking to get 5 as the result. That number could be any number but in the example below it happens to be a 5.
Channel Tune Duration in Seconds} (ID) >= (5 * 60))
View 4 Replies
View Related
Aug 9, 2014
I want to replace a part of a formula with its value.
eg say I have a formula =vlookup($a55,$a$2:$e$50,column(),false).
I want to replace column() with its value. There will be plenty of cells with this formula What can be the best way of achieving this.
View 3 Replies
View Related
Oct 13, 2008
If I have some data in a cell (let's say D1) such as "m-3,s-2,xl-4", what formula can I use in say cell D2 so that if I find the characters "s-" in Cell D1, then it will return the value "2".
Similarly, in say in Cell D3, I would then want to use the same formula but modify it so that if the characters "xl-" are contained within Cell D1, the formula will return "4"
View 5 Replies
View Related
Dec 29, 2008
Just "upgraded" my Excel to the 2007 version. In the old Excel, I could superscript part of a cell by highlighting the part I want, then going to "Format" and "Superscript."
In Excel 2007, it doesn't work. Yes, I can highlight the part of the cell I want to superscript, I can right-click and select "format" and "Superscript", and it even then shows as superscripted in the cell. That is, until I hit enter or move to a new cell. Then the superscript is no longer there. The cell is in "general" number format.
By the way, it did work in another cell: mg/l3 (3 superscripted) works. 742 (2 superscripted) doesn't work.
View 11 Replies
View Related
May 14, 2009
I am looking for a way to use the sum.if formula, combined with the find.spec (I am not sure if this is the correct formule, at the moment I only have the Dutch Excel version, it is meant to find a word as part of a cell)
The part I am struggling with is how to find the correct cells to "sum" when the criterium is part of the cell contents. e.g. Paul is the description in am looking for in "Paul is riding his bike" If so, then add the turnover to Paul. I have made a demo to clarify what I mean.
View 4 Replies
View Related
Jun 23, 2009
In column A i will be entering Jobs in the format : 'Customer1 Job4', 'Customer 5 Job 4'. In column B i would liek to identify the jobs automatically, so a formula that goes something like : IF(colum A contains "Job 2", "Job 2",If (Column A contains "Job 3","Job 3","")). There are only about 6 jobs but there could be many customers.
View 4 Replies
View Related
Jul 6, 2009
I have a large amount of numbers I need to check for in an excel spreadsheet but the problem is they may have other 'text' and other information surrounding it. For example global sub account = '8154','8111' so if I was looking for 8154 I would want to get a hit on that particular field based off a look up of sorts.
View 3 Replies
View Related
Sep 18, 2009
I am trying to create my household budget in Excel, but there is a sub-category.
I need a formula which will calculate the following:
Under the "Daily living" section, I have typed the names of the sub-categories, eg: ,
Groceries
General Household
Cleaning
Education/Lessons
Cash
I want it to find all totals next to the word "groceries" in the main part of the spreadsheet, where I type in my credit card statements according to date.
In other words, I want it to add up all my entries/totals next to the word 'groceries' and show the total up at the top of the document, in the "amount" column so I can see the monthly category totals at a glance.
View 10 Replies
View Related
Feb 25, 2013
I have a cell that has this
ALG-g30
And I have another cell that looks like this
ADL G28 Clear Lamp Chimney 8-1/2 inches
I want the cell to look like this
ADL G30 Clear Lamp Chimney 8-1/2 inches
Basically I want to take the g30 and convert the "G" to uppercase and add it with the "30" to the other cell..
I need to do that with 40 rows..
How would I do that?
I copied the rows here down here --- [URL] .......
View 1 Replies
View Related
Mar 13, 2014
Can I use part of the data in a column of cells to sum data in a column.
E.g. I want to sum valves in Column V that match the Data in Column T by using the following cells CB 1A1x, CB 1A2x, CB 1a3x CB 1A5, etc etc CB 1B3x...... to obtain the totals
For CB 1A1, CB 1A2, CB 1A3 etc etc.
Capture.JPG
View 10 Replies
View Related
Jun 11, 2014
I would like to be able for a user to enter something in a cell (E14) and then press Find and it open a internal web search.
[Code]......
In this code %1234% would be in E14. How do I make the hyperlink change based on what is in cell E14?
The %2A has to stay in both beginning and end of the text in E14.
View 2 Replies
View Related
Nov 18, 2008
I'm trying to write VBA that will unhide all the rows in a designated range ("Apples"), except the first and the last.
I'm using this simple code to hide the range: ...
View 8 Replies
View Related
Nov 25, 2008
I am trying to write a program that will open a group of files whose name is in the format S1T1C1.vfc where the S1T1 part of the name will remain constant (S refers to subject number and T refers to trial number) but the "C1" (condition) will be different every time since we randomize our trials. I have a working loop that will open all the trials for a particular subject but only if I remove the last two letters of the file name in the folder. Is there a way to only look at the first part of the file name (which will be unique) and ignore the last two characters?
View 2 Replies
View Related
Apr 16, 2009
I don't know if this is even possible via VBA, but thought I'd throw it out there and see what you guys think.
In the attached workbook column D contains fields for the UsagePN. If a part is "rolled-up" in our order system to a new part number, then the OLD part number, (in colmn B), is associated with a UsagePN. What I need to do is, for every part that has a UsagePN in Column D, I need to find that part number in column B and add the inventory values from the old part number to the new one.
For Example:
Row 74 in the attachment has a UsagePN of AC1230105V. I need to take the values from cells G74 thru K74 andd ADD them to the existing values in G77 thru K77, which are the inventory values for AC1230105V.
In other words, since part number AC1230105 has rolled-up to the new part number AC1230105V, I need to add all of the inventory to the new part number, AC1230105V.
After this is done for ALL parts with a usage part number, I will delete all the rows containing UsagePN's.
Here's the catch, as you can see in the example, there is no consistency, so a simple formula like adding the values to the same part number with a "V" at the end won't work. I guess you would have to do something like for each row with a value in column D, dim that row so you can refer back to it, then search for a match in column B, insert a "helper" row below where the part number is found to add the quantities, then replace the original with the helper row, and then delete the helper. One of you guys probably knows a better way.
Keep in mind that you won't always find a match, so the macro needs to continue to the next part if no match is found.
I hope I was clear. This one looks like it will be a nightmare, but I hope somebody on here has some ideas.
View 14 Replies
View Related
Jul 1, 2009
Column B on the spredsheet gets the Part Description vaules, we copy and paste from Customers excel and unfortunatly some descriptions contain 3asteriks in a row (***) and I need to import this into Access later on and Access will not except asteriks. Find and replace doesnt seem to work like i hoped , it replaces everything in cell not just part of it . If someone has a Formula that will work that would be ok too, it does not have ot be VBA
EXAMPLE Part Descriptions:
RADIAL TIE DOWN LUG (4/500's) *** Formed
FINES V-PLOW/ SCRAPER MOUNT ANGLE; Rev. A ***Formed
I only need the asteriks deleted
View 2 Replies
View Related