Bingo Macro For Non-Duplicate
Jun 1, 2014How can I prevent duplicate numbers/pictures from one card to the next?
IE If B1 or an apple is on card one I do not want them on card 2 at all.
How can I prevent duplicate numbers/pictures from one card to the next?
IE If B1 or an apple is on card one I do not want them on card 2 at all.
I need to create 50-60 bingo cards for my sister's bridal shower. I wanted to create these using excel. I need to create unique cards so that not everyone bingos at the same time (I only have so many door prizes to give away!)
The basic setup is this: under "B" there are 5 spaces, and each space must have a unique number between 1 and 15 (no repeats). Under "I" there are 5 spaces, and must use a unique number between 16 and 30, "N" has 5 spaces using a unique number between 31 and 45, "G" has 5 spaces using a unique number between 46 and 60, and "O" has 5 spaces using a unique number between 61 and 75. A sample card is below:
BINGO
1416375862
217455773
830366066
1122394761
1223435668
I have tried to use the "randbetween" function, but this creates repeats and I would have to go in and manually change the numbers that repeat.
I have a Text List (about 40 rows of Commercial Names) in a column. On 10 seperate sheets I make a 5 row by 5 column range (the Bingo Game) and manually copy one item from the Text List into one of the cells in the 5 by 5 range as randomly as possible until the range is filled. I've manually counted each item from the Text List's use, but it very time consuming when I add more items to my list. I'm looking for two solutions.
1. Is there a way to automatic the random distribution from the Text List into the various sheets on an equal basis.
2. Is there a way to count the number of times an item from the Text List appears in the 5 by 5 range and sum that for all 10 sheets.
I'm making a custom BINGO board in Excel 2010 for a family reunion, so it doesn't contain numbers; instead it has words (like "has brown eyes" or "served in the military"). the first sheet is the board and looks like a traditional BINGO board with the same number rows and columns with a center FREE space. On the second sheet is the list of all the phrases I'm going to use, one phrase per cell, all in Column A.
In BINGO cells, I want it to use one item (phrase) in each box but NOT repeat within the board. I have the following code in each cell and it works EXCEPT, there is no code telling it to make each cell unique, so sometimes it may repeat.
=UPPER(INDEX(ColumnA,((RAND()*(Data!A1-1))+1),0))
I was trying to create an autobingo game for my kids which randomized the 5 by 5 grid. To do that I did combined a Randbetween and VLOOKUP to a table on a separate sheet which had the name of the object (i.e. "cow") in column 2 and a picture in column 3. Well, the VLookup will return the name of the object but won't return the pictures. Is there a way to get those embedded objects to move into my autobingo form? I'm thinking this requires a Visual basic macro.
View 14 Replies View RelatedI have a worksheet change event that prevents a person from entering a positive number in 2 different cells. If they enter a number in one cell, the other locks, and vice versa. The code is below.
View 4 Replies View RelatedIs it possible to write a macro that does the following:
(1) Select range of cells to be fixed horizontally.
(2) Select range of cells to be transposed vertically (as attached).
(3) Duplicate each row selected in (1) based on the number of cells that has been transposed in (2)
Sample Data B.xls
The result is as attached:
New Format B.xls
As seen above, each row selected in (1) has been duplicated based on the number of cells that has been selected to be transposed in (2).
I'm trying to get data totals for multiple entries and haven't been able to figure out how to do this using a pivot table.
For example:
A B
Ben 2
Bill 1
Jane 3
Bill 4
Dave 7
Jane 4
Would make it
Ben 2
Bill 5
Jane 7
etc.
this list is 3700 cells long.
Is there an easy macro or another way of doing this? I want to generate a list that gives all data totals but just lists each persons name once. I treid attaching the file but it wont let me! here is the link... [URL]
I am trying to create a summary sheet that updates when input data is added.
I'm still learning many parts of excel and I'm unsure why the SUMIF function on occasion leaves duplicate data in.
I can live with the fact that I will need to correct the input data and am willing to just paste in corrected data when it has been validated via the data validation tab.
Once this has been done, all I am seeking is for a subsequent process to start which updates a summary sheet with the sums correctly adding via the sumif function.
I have left some instructions on the actual spreadsheet to clarify my intended results.
On some occasions the part number has several to collect but the output from the system we use will output this as a sinle line and a quantity of 2 for instance. I would like a macro to indentify all of the parts with a quantity more than 1 and insert a duplicate line with that quantity.
On the attachement sheet 1 is an example of how the data may look, sheet 2 is how I would like it to be after the macro has been run (but within the same sheet)
I need a quick macro to duplicate based on specific cell value in column D. If the value is 3, then I need the line to be copied three times and then change the original value line to an incrementing value.
Starting Data:
A_______|B_____|C_____|D_
CompanyA FacilityB Group1 qty3
CompanyA FacilityB Group2 qty2
CompanyA FacilityB Group3 qty4
CompanyA FacilityB Group4 qty1
CompanyA FacilityB Group5 qty5
End Result:
A_______|B_____|C_____|D_
CompanyA FacilityB Group1 001
CompanyA FacilityB Group1 002
CompanyA FacilityB Group1 003
CompanyA FacilityB Group2 001
CompanyA FacilityB Group2 002
CompanyA FacilityB Group3 001
CompanyA FacilityB Group3 002
CompanyA FacilityB Group3 003
CompanyA FacilityB Group3 004
CompanyA FacilityB Group4 001
CompanyA FacilityB Group5 001
CompanyA FacilityB Group5 002
CompanyA FacilityB Group5 003
CompanyA FacilityB Group5 004
CompanyA FacilityB Group5 005
exclude the duplicate row in the macro. The macro is checking for blank or "NA" in column N and copying the row to a new destination file. It is not repeating the row if either one of the conditions is met. [that is wat I want to do] however if the rows have duplicate data i dont want to copy them.
Sub SRSCheck_Data()
Dim Rg_Src As Range
Dim LastRow As Long
[Code].....
I've been assigned to develop a workbook that autopopulates a different workbook but they wanted it so the second macro is never messed with and the information is only entered once. Here is the macro i developed
Code:
Sub Monthly()
Dim wbthis As Workbook
Dim wsthis As Worksheet, wsm As Worksheet
[Code]....
Now The area in red is where the macro writes into the form. My thing is that I want to set up a check so there isn't duplicated entries. This is how the check would work. First it would match up any excisiting entries with JobNo and then check to see if the JobDate was the same. If both are the same then it would check Waste or CutTime, either one would work. If they didn't match, then those cells would be overwritten. If nothing matched then it would put in the new entry.
I am looking for some VBA code that will look through a column and delete all but the last duplicate value. The rows are not to be deleted. The duplicate also may not be consecutive (i.e they may appear in rows 2, 3 and 72 - the one in 72 would need keeping).
I did find the following macro which seemed to do the job until I realised it wasn't working if the values weren't consecutive.
Code:
Sub Dupe_Killer_Keep_Last()
Dim lrow As Long
Application.Calculation = xlCalculateManual
[Code]....
I would like a macro to highlight duplicate numbers in Col A in Sheet1.
View 4 Replies View RelatedI have an Excel Workbook with a Paid sheet and an Outstanding sheet both sheets have a File Number column.
I would like to create a macro that looks through the Outstanding sheet and if the File Number from the Outstanding sheet is also in the Paid sheet can the entire row be deleted from the Outstanding sheet.
i have the following sample data in which there maybe duplicates in each row, i need a code that will remove the duplicates.
So from this
Date hearder Row is J1
BHPRIOWOWBTRTRTYRTYLOIRTYTELTELSPA456123456123
To this
BHPRIOWOWBTRTRTYLOITELSPA456123
I use the following macro to delete the columns with duplicate dates in it. It works ok but when a date is duplicate more than once – say 4 time – it only delete 2 of the 4. I want it to delete all duplicates (entire column) and only leaf the last one to the right.
Sub DeleteExtraDates()
Dim c
For Each c In Selection
If c = c. Offset(0, 1) Then
c.EntireColumn.Delete
End If
Next c
End Sub
I need a User Defined Function (UDF) to Vlookup duplicate values in separate Columns.
I can't use an Array function as the data is huge and it takes lot of time to calculate.
I have attached a Input and the desired output in the file attached.
UDF_MACRO.xlsx
how this code can be condensed getting rid of some of the duplicate coding?
Everything is duplicate except for the For i = 1 To x part as the formula that is added is changed from sheet to sheet.
Can I use a macro in workbook (test 1) to look at a differant work book (Test 2) and look at a range of A2:A20 and look for a duplicate date? If it sees a duplicate date I get a message (Date Taken) I would need to compare about 4 or 5 columns to each other, column A to column A, column B to column B etc. Will this work if the other workbook is not open?
View 6 Replies View RelatedI would like to know how I can have a macro run on an excel sheet of mine.
I have a little database with a few names and email addresses submitted to me via web.
But some people tried to register to my services TWICE with a different name, but same email address (not smart eh)
I would like to run a macro on a column and have it search for duplicate values and highlight them in... blue perhaps.?
P.s. the column format is set to 'TEXT'
My user has a worksheet that is hundreds of rows long. Column A contains the SerialNumber, col D contains the PartNo and col E contains the SerialNo. She wants her formula in col B to match the SerialNumber with SerialNo then return the value from PartNo into col B. =Index(PartNo,Match(A2,SerialNo,0)) gets me the match that I'm looking for so I thought I was done. Not so...she now tells me that there are duplicate, triplicate, etc., matches and the formula obviously is only pulling in the first match.
When she has a duplicate, she needs to have cells inserted into Col A & B. She does not want a whole row inserted because the PartNo and SerialNo will already be in the right places. I've tried inserting a helper column to enumerate the duplicates but I can't it to work. I also tried using ROWS in the formula to work with the duplicates but that only confused me. I'm pretty sure I'll need a macro to do this but I'm getting nowhere.
I am looking for a macro to highlight duplicate data in Col A.
I have googled etc, and found quite a few, but some were slowish, some didn't work, some did.
The best I have found so far is this 1. I believe this was posted by Richard Schollar
Sub ColorDupes()
Dim v As Variant, r As Range, i As Long, j As Long
Set r = Selection
v = r.Value
For i = 1 To UBound(v, 1)
For j = 1 To UBound(v, 2)
If Not IsEmpty(v(i, j)) Then
If Application.WorksheetFunction.CountIf(r, v(i, j)) > 1 Then r(i, j).Interior.ColorIndex = 3
End If
Next j
Next i
End Sub
This seems to run fine and be quite quick providing I highlight the column first.
What I'm looking for is a pop up window to also show me some data relating to the duplicates. I usually work with large lists and would like the macro to say how many duplicates it found from how many rows of data.
It is a very handy macro, and is very short on the coding side I notice compared to all the others I found (Which is Good?), I'm no coder
Worksheet excel with multiple lines and colums. I need a macro to automatically insert a new Line where the cursor is located, and duplicate data from previous cells: let say cursor is located L10, macro will insert L11, and duplicate L10 -C1 data to L11 -C1. I have a macro that does this function, but the Line insertion is always at the same line.May be the macro should "read" first the cursor position, Lx and then move down +1 line prior to duplicate the data.
View 2 Replies View RelatedI am currently working for data validation team. I have to validate tons of data every week so it would be great if i could remove dupicates.
I want to compare two worsheets, sheet 1 has the order number with description (which i have to find) for the current month and sheet two has got standard report from the past week giving all the order numbers with no description. I need a VBA based macro to find all matching order numbers which are in sheet 1 column A, in sheet2 column A and return the corresponding value in column B in sheet 2 and also return the description in Column C.
See attached doc "Find and Delete.xlsx". Inside, the value in F12 is a very important cell. Using the text value from F12, I first want to use visual basic code to find the range in column B because it will vary. This means the 'text words' column might have 50 words or it might have 2000. I have racked my brain trying to find a universal way to find a variable range.
Then I would like to search for the exact text value within this range in column
B. For example, in F12 is the text word 'windows xp registry cleaner' and you can see that this value is in B9. There will only be one exact match in column B.
I then would like the vb script to delete and remove this found value, then move left one space in column A to also delete the ID number associated with the text word. Then shift both rows up to fill the empty gap. I have tried numerous different codes but to be honest, I'm not really sure what I'm looking for. I've tinkered with find and replace, vlookup, match, find, search, and many more.
I am searching for a macro that will find duplicate value in row A2 (id) then copy its corresponding column to a new sheet.. please refer to my attachment, and see the result i want on sheet2 and sheet3
Sample.xlsx‎
I need a Macro to do the following:
In column A I have a list of Acronyms from A2:A90000 and more
In column B I have the corresponding acronyms spelt out from B2:B90000 and more
When I run the macro, it shoud detect the multiple/duplicate Acronyms and it's corresponding descriptions, DELETE the multiples/duplicates and move the cells up.
I have one sheet that have +/-5000 data in 4 table ... all table is fill with just only 2 column, first column is Code Number and second column is Quantity.
There are many duplicates of different entries in Column 1st in all table range and I need to add up their quantities to new table in new sheet...
This is for example:
(Sheet1 name="INPUT") (table1=A:B) (table2=E:F) (table3=I:J)
A B E F I J
AB123 100 ABC123 20 AA1 10
AC278 50 BCD547 30 AA2 10
AB123 30 FGE988 30 AB3 10
DE586 120 ABC123 50 AA2 10
RE158 80 BCD547 120 AA1 10
DE586 50 ABC123 70 AD4 10
Then I want to use macro vba to create new sheet(Summary Report),copy,paste,sort and sum all duplicate...
It should look like this
(Sheet1 name="Summary_Report")
A B E F I J
AB123 130 ABC123 140 AA1 20
AC278 50 BCD547 150 AA2 20
DE586 170 FGE988 30 AB3 10
RE158 80 AD4 10