I have this macro and I would like to audit the selection of players selected. I would like the number that is entered in the input obx to be placed in the sheet "DRAFT" and be placed in A1 and the next in A2 and so on. Can this code be modified for this to occur.
Sub SearchDelete()
Dim ID, c As Range
ID = InputBox("Enter the Super10 Player ID Number", "Super10 Player Search")
If IsNumeric(ID) Then
With ActiveSheet.Range("a:a")
Set c = .Find(ID, LookIn:=xlValues)
If Cells(c.Row, 11).Value = "" Then
Msg = "P L A Y E R A L R E A D Y S E L E C T E D !" & vbCr & vbCr & "Player # : " & Cells(c.Row, 1).Value & vbCr & "Name : " & Cells(c.Row, 4).Value & vbCr & "Games : " & Cells(c.Row, 6).Value & vbCr & "Average : " & Cells(c.Row, 7).Value & vbCr & "Position : " & Cells(c.Row, 2).Value & vbCr & "Team : " & Cells(c.Row, 3).Value & vbCr & "Rank : " & Cells(c.Row, 27).Value & vbCr & "Rank POS : " & Cells(c.Row, 28).Value.............................
I have created a workbook that I store data from my audits, this data is in the form of Y if compliant, N if noncompliant and N/A if not applicable. Where the fun part begins is that each question has a different risk involved. I have used a simple 1 to 5 risk scores and given scores for compliance and non compliance to each score, for example a risk 1 if compliant is 100 points, if non compliant is -100 points, all the N/As are worth 0.
I currently calculate the totals in a different sheet in the work book, but I do this kind of manually, I have calculations to work out the totals and percentages and all that, but I cannot figure out how to get the Ys and Ns to appear in this sheet as 100 or -100. All I do at the moment is bring the Y, N or N/A over with a simple =corresponding cell in sheet 1 then manually change this to the number I require.
I am using Excel 2000 on Windows 2000. There are no macros on spreadsheet and no protections at all yet I acnnot use trace precedents/dependents as the items are greyed out.
I am working on a sheet that has over 150 tabs of information. It is a simple audit that allows for Yes, No or N/A to be selected for each audit category. I have an Outcome Summary tab that is pulling totals for all the audit information on each tab. I did a CountA statement to count any cells (from all worksheets) that had anything selected, so I have my count for the amount of files audited, but for the life of me I cannot come up with a formula that counts the ones that passed or failed the audit. Needs a formula that counts for Yes as 1, No as 0, N/A as 1 (these don't count against us) and doesn't return an error for a tab that wasn't selected.
So I have a quote format with various different products:
B1 to B10 Contains a vlookup with stock codes from another page. C1 TO C20 Contains drop boxes with various different stock items. Some of the stock items are available in singular form and others are in kits. I.e C1 could contain whats in C2. I want to be able to select C1 and have the sheet automatically pull up c2. But I dont want to loose any data that is in c2, in other words I still want to be able to manually select C2.
I am using the code below to "swap" the selected cell values in a column with the ones to the right of the selection. It works fine on unfiltered sheet, but if I apply an Autofilter, it copies both visible and hidden cells, and I only want to swap visible cells. What to modify?
Pls see below codes, the codes can record down changes made "from" and "to" and put on the "Log" sheet, however it is unable to capture the original values when I first open the file and make the changes.
Also, how can I put the value of "Now" in column B?
Code: Dim PreviousValue Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value PreviousValue Then
I searched but didn't find exactly what I needed. I have a workbook with 31 sheets. It is a price guide with each category on a separate worksheet. I figured out how to list the sheets on a separate tab. What my client wants is the ability to:
1. select certain categories for printing, the ToC, Cover and backcover pages have to print in every case
2. the ToC has to change depending on the sheets selected.
I'd rather write some code and give him an an easy command button rather then teaching him how to select non-concurrent sheets and printing only active sheets.
What I'm really stuck on is the updating of the ToC with active sheets only (category and starting page which changes depending on pages selected).
Iam pulling hockey stats from yahoo sports into excel on one tab then i have other tabs as teams and iam pulling the stats from the yahoo sports tab to them
the yahoo tab is called Players but when yahoo bringis in the players names they come with a space in front of them. Now the formula iam using works if i go to the players tab and take the space out but as soon as I refresh the data it puts the space back.
here is what iam using =IF(ISNUMBER(MATCH(TRIM($D5), Players!$A$1:$A$635,0)),INDEX(Players!NHL_2010_skaters, MATCH(TRIM($D5), Players!$A$1:$A$635,0), MATCH(E$4, Players!$A$1:$AT$1, 0)),0)
I think i have to put trim in by the players but when i try and add it I get formula errors.
I am trying to make code to randomly pair up players. I have found code which makes a button that randomly pairs up players in a list but I want to make it so that ? players are paired with ? other players instead of everyone at the same time so that a person dosn't get paired with more then one player at a time.
E.g. take the first 6 players in a last and pair them with the second 6.
This is the code I found:
Private Sub CommandButton1_Click() Dim x As Range, RanRng As Range, z As Range, oRes, Ray Dim i As Integer, j As Integer, real, oSt As Integer, cl As Range Dim oCol As Integer Set RanRng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
I have a column that adds the total points for each Golfer at each Golf Course. (Column AI) I've added another column that I want to add the total points for each Golfer from each Course played. (Column AJ)
How can this be done so that it adds each players total points for each Course Played? There could be more Courses as well. Would I use a: (=IF(Course=Courses,Vlookup(Course,B2:B65536),35,False) with a Sum???
I am starting a new Fantasy Football League. I am wanting to be able to enter players into Sheet 2 as they are picked. And I am wanting those picks to be simultaneously placed on Sheets 3-14 according to their position. Sheet 1 is a list of names according to positions. A more detailed explanantion is entered below.....
I am trying to assign a list of players onto teams but I need to distribute "skill" evenly to ensure teams are equally matched.
A statistician in the league suggested the best way to do this might be to sort the player list (descending) by the measure of "skill", then start assigning teams in blocks. If I have 40 players in the league / 4 teams = 10 players per team. I would randomize the numbers 1-4 (e.g. 3 1 4 2) and assign them to the first four players, randomize another set of 1-4, assign them to the next, and so on...
I could then sort the player list by “team assignment” column and have hypothetically equal skill on every team.
Couple of complications... number of players and teams might vary season to season. I will have to enter in number of teams and number of players at the beginning of each season along with a new list of their stats. Also, although I have a limited knowledge of Excel and VBA, none of the other coaches do so I want to make this as idiot proof as possible.
Using various macros (or functions) I found here I was able to randomize the first "block" of players but I cannot complete the randomizations for the remainder of the list. The only solution I have found would be to manually create an array using the “RandUnique” function over X (depending on number of teams) cells and then copy and paste this randomized subset down the rest of the player list.
I am trying to build a cup tree that automaticly move players over to the next round if they are first or second in their group of 4. What happens when first person have a result of lets say 33 and 2nd and 3d person have a result of 35 each and the 4th person 37? First person is easy but then there are 2 persons with the sam result and they play sudden death and we put in a 1 in the sd column for the winner and a 2 for the loser of the sudden death.
How do I make my formula figure that if they had the same result go look at the sd column?
Another thing is that of the 2 players advancing they have to be placed in the same order in next round, how can I achieve that?
If you look in column I row 19-22 there are players in the wrong order because the player with the better result goes in first. It should be this order: 9 11 15 16 instead. (if you are ahead in the previous round you will be ahead in the next round)
Another problem I noticed now is that when 2 players has the same lowest score the first player takes both spots as it is now and that doesn't work in real. You see what I mean if you look at player 1 in round 1 and 2 (R1 & R2), in this case it should have been players 1 2 6 and 7 moving on to round 2 and not 1 1 6 7 as it is at the moment.
(Rank is their rank from the qulification rounds where the first 4 is seeded and the rest is drawn into 1 group a time)
Klass B
* B C D E F G H I J K L M N O P Q R
2 Rank Name R1 sd Pl.
[Code] .......
Spreadsheet Formulas
Cell Formula
I7 =IF('Klass B Calculations'!F4=1;'Klass B Calculations'!C4;IF('Klass B Calculations'!F5=1;'Klass B Calculations'!C5; IF('Klass B Calculations'!F6=1;'Klass B Calculations'!C6;IF('Klass B Calculations'!F7=1;'Klass B Calculations'!C7;""))))
I need to randomly pair players together to form teams.
For example: Saturday morning, there are 19 golfers signed up to play together, but want to paired randomly.
This is what we currently do: In cells A1:A27 I type their names. In B1:B27, I type their handicaps.
We then use a deck of cards to randomly draw teams. We do this by pulling 4-A's, 4-k's, 4-Q's, 4-J's, and 3-10's from the deck. We shuffle these cards and then go down the names in colum A and assign each palyer a card and place the card value into column C. We then highlight all three columns and sort by column C to form teams.
This works ok, but the problem is they all tee off at the same time and need a "super quick" process to form teams in seconds.
The only variable that I might see being a problem is the # of players vary each time they play. There might be 12 one day and 51 the next. We have to form teams into 4 somes and 3 somes, based on the total number of players we get.
I have a worksheet that has 8 activex listboxes. Each listbox is tied to the sames list of values (identified as a named range). The named range is a list of countries. Each country should only be selected once, therefore, I would like the selected country(ies) to not show up as a choice when the user makes a selection from another listbox. If this is too hard, maybe we can get a msgbx to appear anytime the users tries to select a country that has already been selected.
I have been working on a spreadsheet to manage my players in a virtual sports game. I have worked out that the optimum skill scores for all the positions and want a way to compare a player to the optimum.
For example:
1st2nd3rd4th5th6th7th Position 147.1737.6742.0533.8313.6711.3317.33
These are the averages for Position 1
How do I find the player who closest matches this optimum. Players have scores in the same 7 skill areas.
I'm trying to figure out a simple spreadsheet that can spit out tournament payouts based on a flexible number of players (we might have 55, 60, 100) and flexible percentages based on the pot size (if we have 100 players, we would like to pay more players than if we had 50).
Something like [input number of players] [input pot size] [input # of payouts] [input percentage of each payout] it would just save a ton of time as we're trying to calculate payouts on the go.
I am trying to calculate players ranking based on their weight categories and attempts total, e.g. Category (50kg, 69kg etc..) Rank should be calculated automatically the highest total value of cat. 50kg is 1st second highest is 2nd etc. However, if tow players or more within the same Category have scored same point ranking will be calculated based on Body Weight less comes first and if both have similar weight calculation will be based on Start # first player comes first etc..
Table: Start # Name Body Weight Team Category Total Point Rank
I'm fairly new to using excel and have been trying to create a simple spreadsheet that keeps track of scores and automatically displays the names of the players in descending order. Anyway I have gotten to the point of using hookup to match a value and return that players name. But when two players have the same score it will only return the first found value. I sort the number scores using a LARGE function and it works great. Then I use something like this =HLOOKUP(Y2,B27:K28,2,FALSE) to match that value with the players name. How to return the other players name when the scores are the same?
I want to be able to rank players only if they meet or exceed a specific number of rounds. I have been able to get close but I would like to have the ranking start at "1" instead of "0" (see sheet).
I am using this code to hide or unhide rows of text on another sheet:
VB: Sub ProcessSheet1ChangeOnCellJ7(ByVal Target As Range)
Dim sAddress As String Dim sValue As String
'Get the address of the cell that changed without '$' signs sAddress = Target.Address(False, False)
[Code]....
When the "Not Pursuing" list box option is selected (in cell "J7" or "J8" in Sheet 1) I need to add (or over-write) "Not Pursuing" to the range of cells in column "B" (in the "Tasks" sheet), but only for that particular Goal, meaning a limited range of cells in column "B". If the "Pursuing - Show All Tasks" option is selected for a Goal then these same cells need to be blank so that the appropriate person can enter their name into the cell.
The purpose for adding "Not Pursuing" automatically to these yellow highlighted cells is that it will facilitate filtering of tasks by individual in the "Tasks" sheet..
Again I have tried several times to upload a sample file and am unable to, which I know makes it more difficult to solve. (Is there some common mistake people make? I know it's an allowed format and is very small in file size....)
Code solution can be entered directly beneath:
VB: If Target.Value = "Not Pursuing" Then ActiveWorkbook.Sheets("Tasks").Rows("29:29").EntireRow.Hidden = False ActiveWorkbook.Sheets("Tasks").Rows("30:48").EntireRow.Hidden = True
If a user selects certain options from a drop down list created by cell verification (from list), is it possible to display an input box and have the resulting input populate on another worksheet in the workbook? I have an attendance template I'm working with and if a user selects OT (Over Time) then a input box is displayed prompting for how many hours. The overtime is then tracked on another worksheet.
I tried very hard to design a leave roster for user to mark their leave application. The criteria are as follows:
1. 4 applications per date 2. a region of worksheet (i.e. "A2 to H20) will be defined for users to "click" on the cells (within the defined region) to mark their application. 3. once a cell is clicked (i.e. marked), it cannot be altered. 4. each click will automatically increase the total by 1.
I got the following code to deal with the situation but user can still click on any cell outside the region (in fact I fail to define the region).
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim m ad = Mid(ActiveCell.Address, 2, 1) m = Range(ad & 24).Value 'here a formula "CountA(A2,A20)" will be place in the cell (24, c).......................
I have attached a portion of an excel file I am using at the moment. What I require is a piece of VBA code which will allow me to copy selected data based on a combo box selection. What needs to happen is this :-
If the selection in the "Index" worksheet combo box related to "Month" in cell G19 is for instance "December", I would like the macro to compare this cell value to the cell values in cells C96, C124, C152, C180, C209, C236, C263 and C290 in the "Tech Services" worksheet and where the values match.......copy the commentary (Range C126:Z147 in December's case) to the range C34:Z55.
Basically it is a if statement saying that if the selected cell falls between 1/01/06 and 31/01/06 then Jan would be selected. The end part is not a problem; I’m just not sure how to write the one line of code that would test if the cell falls between the two dates. I attemped to create it as shown in the code attached below but wasn't successful. I used an else if statement to test the other 11 months.
Sub test() Dim SelectDate As Range Set SelectDate = Range("SelectedDate") If selectedDate >= 1 / 1 / 2006 And selectedDate <= 31 / 1 / 2006 Then ActiveSheet. PivotTables("PivotTable1").PivotFields("PnLDate").CurrentPage = _ "Jan" ElseIf selectedDate >= 1 / 2 / 2006 And selectedDate <= 28 / 2 / 2006 Then
I am working on a project where user has to select an item from a listbox, however there is a condition that if user select an item, other items of listbox should be disabled so that he/she can not select any other item.
I want to have a drop down list in a cell so that the value in the cell can be only selected from two columns of data. Additionally once the data from the first column has been selected I want to be able to limit the inputs the user can select from in the second column.
e.g. In cell C115 I want to have the value BDS05.
I want to be able to select the value BDS from a drop down list of values and once that value has been selected I want to be able select 05 from a list of values from 01 to 14 If I select BCS as the first value then I want the second set of values to be limited to 01 to 02 etc.
I have read about combo boxes and list boxes and I'm a bit confused about the best way to achieve this (or even if I can).
