Im doing a year nine maths project and need a little help with excel. This is my first time using macros/VBA. I have been playing around and have figured out a few things. I was asked to produce a game using excel, i am doing a kind of "racing" game with betting, i have the racing and most of the betting all working fine. I need to know how to get a message box to appear when the total of a cell reaches 0.
View 5 Replies
I ma going to have a couple of tricky (to me at least) table/range look ups, so let me start with this one:
.......a........b...................c.....................d....................e
1............Dive 1......................................School Grand Totals
2..team.....diver nr......... points...............Boys...............girls.
3 md b.......1..................3.....................md b...8..........md g...4
4 md b.......2..................3.....................jb b....7
3 jb b........3..................3................
6 md g,......4..................3
7
8..............Dive 2
9..team.....diver nr......... points...
10 md b.....1..................1...........
11 md b......2.................1...........
12 jb b......3.................4
13 md g......4................1
Notes about above. The naming is like this. "md b" is "martin county boys". "md g" would be "martin county girls". "jb b" is "jensen beach boys".
I need to add up each school grand totals for all the dives, and break them down to boy or girl for each school. this score will eventually go into another total which totals 11 swimming events by boys or girls.
So, in essense, thre are going to be several totals for the meet:
1 Diving (6 dives) by School by Boy (note: only showing 2 dives here)
2 Diving (6 dives) by School by Girl
3 Swimming, (11 events) by School by Girls
4 Swimming, (11 events) by School by Girls
5 Grand total by school (boys and girls scores combined)
Texaslynn (I believe that was her handle) helped me previously with totaling a grand total. However, now I discovered I need the total by boys and girls and then the combined (boys and girls) school total.
when i tries to run the macro, it display the following error message. I have attached the screenshot of the error message. The details of the system:
OS - windows vista Business, SP1
office - Office 2007
excel Version - Excel 2007.
I am working on a time table worksheet and I need to insert a time Offset that can range from 5 minutes to an hour with 5 minute increments. The message box or user form will prompt, "How long is your Offset:"
The problem is that I only know how to do make a drop down list that is populated from cells on a sheet. Do I have to use a user form?
I have a table of projects with 1) duration in year, 2) time window (number of years of our planning cycle), and 3) start year of the project. I want to generate a list of project parts of all projects where they may take place. This will serve as an input to an optimization program.
So a project of 2-year duration should have 2 parts over any year within the time window. I am including the "impossible" ones for my developer to tag them as "0" when we run it through his code.
My task is to consolidate 4 Excel Project Lists (Workbooks) to a Master Workbook. The Project Lists has a different structure and almost different content. The relevant information is always on Sheet1 but it has completely different ranges. The only constant is the Project Number, which should be used to sort the information. Every Project should be listed only once with all the existing information.
I found a code written by Ron de Bruin which has already some components that I want to have in my VBA but I think there are still a lot of necessary adjustments to do.
Code:
Sub MergeSelectedWorkbooks()
Dim SummarySheet As Worksheet
Dim FolderPath As String
Dim SelectedFiles() As Variant
Dim NRow As Long
Dim FileName As String
Dim NFile As Long
Dim WorkBk As Workbook
[code]....
The Master Project List should has the headers in Row1 and the information listed below. The Macro should automatically places the correct information to the correct column. Some of the information are in 2 or more of the lists but they should be listed only once in the Master List.
Project Number
Project Description
...
1111E.000000001
[code]....
I guess a problem is that the structures of the Lists are quite different so there must be a kind of sorting process.
In the end I want to have an Excel File with the Macro and a Command Button and by clicking the Macro creates a new Workbook with the Master List.
It would be better if there is a variable range instead of a defined. Like the Macro searches the last row and starts at this row and column.
I am trying to get excel to open a MS Project file and then run a project macro on it.
What is happen is that when I run my code it works, and then excels VBA window freezes up and the run arrow goes away, and if I try to open project I just get a chiming noise and it won't open.
For now I have to select the MS Project file from a directory, but in the future I would like it to go through the folder and open all of the file in the folder
EXCEL CODE
Sub ImportMSProject()
Dim FileToOpen
Dim mpApp As MSProject.Application
Dim prjmacro As Object
'Identify the File to Open - START
FileToOpen = Application.GetOpenFilename("Microsoft Project Files (*.mpp), *.mpp")
If FileToOpen = False Then
Exit Sub
End If
'Identify the File to Open - END
[code].....
I have tried to record macro to protect VBAProject / lock project for viewing. But can not success by that way.
View 9 Replies View RelatedI need to write a couple of functions. Firstly I want to do a count on column B (project $) depending on the criteria on column A (project description). For example a total count of all values in col B if project description is "P" or "A". [I can do sumif functions but this is a countif and I cannot get this right].
View 4 Replies View RelatedHere's how my project will need to work. I need to transfer text files(.txt) to the same workbook, but 1 worksheet for each text file. In here, I can choose multiple files. After that, I need to delete WHOLE rows that has a blank cell(except 1st column), starting from row 4. Then the last requirement would be to fill the 1st column, a portion of the text file's name.
First, I need to click the command button in order to choose the files I want to load. first.png
And then, if I chose two .txt files. It will also load two text files. In here it is, CLASS 2014 and CLASS 2013 second.png
What I want to happen next is for "2014" to be inputted in columns 1, rows 5 to 15. And then delete rows with blank cell, in which here is rows 8, 10, 11, 12 and 15.
I work as a data administrator in a high school in England. I've only been doing the job for about 8 months but a lot of the processes we go through could be better automated via the use of macros in Excel and Word.
Basically we have school grade reports that come from our MIS database that are stored as a Word template, which are then exported into Word as an .xml file. However, they don't come with the photographs of the students on the reports, so we have a Word List Report with every student photo (split into year groups) and run the following macro, which allows you to pick a folder where the reports are stored and match the photo to the report via the school admission number. It is then inserted into the report using a Word bookmark to place it in the top left corner.
VB:
Sub InsertPhoto()
Dim myFile, myFileNewName As String
Dim PathToUse As String [code]....
This works fine but I would like to be able to automatically format the photos so that they have 'In Front Of Text' wrapping, which we need to keep the templates from messing up. It would also save me accessing nearly 1000 school reports and manually editing each photo.
Anyway, here's what I'd like: I have a spreadsheet with every student in the school listed. If they have signed up for my after school programs, they also have a 3-day schedule. Each program has a specific initial, so if a student is in 1st grade Art on Monday, they have a "1A" in the Monday column. I've attached a sample spreadsheet with a simplified version of my setup.
At this point, I'm filtering by each initial and highlighting names to print a roster for the day. Is there a way to have the names of each child in a particular program automatically populate an (easy to print) formatted roster on another tab? Each student does have a unique student ID, but I wouldn't want that private info to be printed on the roster. I'd like to just be able to enter kids' schedules as they come in and that automatically adds to the program's roster, then go to the "Monday Rosters" tab and print the whole thing, cut it up, and hand out to teachers.
i was looking for some assistance in regards to a formula i have used for ranking. i have attached a sample spreadsheet of what i have done so far but struggling to work something so thot id try here.
(Sample WB) Currently i have managed to rank in accordance to column E but as i have alot of 0% i would like to be able to rank the 0% in accordance to the number of work done (column C).
For example i have 62 0% answers and Username Q has actioned 316 jobs with 0 Failures so should be ranked 1st as he has the highest number of jobs.
Is it possible if 0 cells are filled with the word “out” in a column D7 thru D15 In work sheet team matches. To run a macro that will look up a column in another sheet A2 to A10 in work sheet Random Picks. And fill column D7 to D15 In sheet team matches with the contents of them cells.
If 1 cell is filled with the word “out” in a column D7 thru D15 In work sheet team matches. To run a macro that will look up a column in another sheet B2 to B9 in work sheet Random Picks. And fill column D7 to D14 In sheet team matches with the contents of them cells.
If 2 cells are filled with the word “out” in a column D7 thru D15 In work sheet team matches. To run a macro that will look up a column in another sheet C2 to C8 in work sheet Random Picks. And fill column D7 to D13 In sheet team matches with the contents of them cells.
If 3 cells are filled with the word “out” in a column D7 thru D15 In work sheet team matches. To run a macro that will look up a column in another sheet D2 to D7 in work sheet Random Picks. And fill column D7 to D12 In sheet team matches with the contents of them cells.
If 4 cells are filled with the word “out” in a column D7 thru D15 In work sheet team matches. To run a macro that will look up a column in another sheet E2 to E6 in work sheet Random Picks. And fill column D7 to D11 In sheet team matches with the contents of them cells.
If 5 cells are filled with the word “out” in a column D7 thru D15 In work sheet team matches. To run a macro that will look up a column in another sheet F2 to F5 in work sheet Random Picks. And fill column D7 to D10 In sheet team matches with the contents of them cells.
If 6 cells are filled with the word “out” in a column D7 thru D15 In work sheet team matches. To run a macro that will look up a column in another sheet G2 to G4 in work sheet Random Picks. And fill column D7 to D10 In sheet team matches with the contents of them cells.
When speaking with parents I want them to enter in their child's birthday i.e. 12/1/1998 in one cell and then automatically generate what grade they should be in the next cell. If the grade year cutoff date is Sept 1.
View 2 Replies View RelatedI only grasp the basics of loops and not any experience w/ formulas in VBA to date.
For each item in col "I" run this formula (the cell references are relative)
=RIGHT(I6,LEN(I6)-FIND(" ",I6))
I am only at this point so far:
Sub ItemName()
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer
Dim LRow As Long
Set ws = Workbooks("TGSItemRecordCreatorMaster.xls").Worksheets("Record Creator")
LRow = ws.Cells(Rows.Count, 9).End(xlUp).Row
For i = 6 To LRow
=RIGHT(I6,LEN(I6)-FIND(" ",I6))
End Sub
The basic function of the loop is to Delete the first term of each cell in the range including the first space.
example:
Enjoi Barletta Deck
Resulting in:
Barletta Deck
The will eventually end in a series of pivottables. I am currently at the step where I need to add vlookups. This is for an inventory management report that averages 20,000 rows and 20 columns of data. I add a few columns (using vlookups) to increase visibilty to the operations dept.
The first thing I need help with is creating the VBA language for using a vlookup table from another workbook that pastes the vlookup formula every cell to the bottom of the data
Then I need to utilize an IF formula for one column that says IF c2 is blank use vlookup-formula1, and IF it is not blank use vlookup-formula2, and then paste at every cell all the way down.
I hope someone can help, and I hope I didn't write too much to where everyone will skip pver this thread.
I am currently to this state, and ready to continue.
--------------------------------------------------
Sub OHRTODDI1()
'
' OHR1 Macro
' Macro recorded 7/22/2009 by iahopbxm
'
' Keyboard Shortcut: Ctrl+o
'
' Sort and Add column Headers
Cells.Select
Selection.ColumnWidth = 9.43...........
Need to write a formula that would assign a letter grade (in row W) to the average in row V, based on the school's scale. So, row V contains my averages (in % form) and I want row W to have the letter equivalents.
93+=A
85-92=B
75-84=C
67-74=D
<66=F
I get a "#value" error message when I utilize the formula noted below. I seperated it into distinct sections so that it is easier to view. Basically, what the formula is doing is determining whether if two values are the same, then take the absolute difference of the average of other values ,excluding one of the previously noted values, and compare that difference to a different parameter. If the difference does not exceed the parameter, then calculate the difference; otherwise the ending result is zero. Pls. note that the error seems to occur when I input the fifth section into the formula.
=IF(K23="","",IF(AND(K23=E23,ABS(B23-AVERAGE(F23:J23))>B20),B23-ABS(AVERAGE(F23:J23)-B20),
IF(AND(K23=F23,ABS(B23-AVERAGE(E23,G23,H23,I23,J23))>B20),B23-ABS(AVERAGE(E23,G23,H23,I23,J23)-B20),
IF(AND(K23=G23,ABS(B23-AVERAGE(E23,F23,H23,I23,J23))>B20),B23-ABS(AVERAGE(E23,F23,H23,I23,J23)-B20),
IF(AND(K23=H23,ABS(B23-AVERAGE(E23,F23,G23,I23,J23))>B20),B23-ABS(AVERAGE(E23,F23,G23,I23,J23)-B20),
IF(AND(K23=I23,ABS(B23-AVERAGE(E23,F23,G23,H23,J23))>B20),B23-ABS(AVERAGE(E23,F23,G23,H23,J23)-B20),
IF(AND(K23=J23,ABS(B23-AVERAGE(E23:I23))>B20),B23-ABS(AVERAGE(E23:I23)-B20),0))))))))
I am trying to use excel to forecast budget expenditure for the fiscal year, using actuals from months past + unknown (future months).
I have this formula in cell G2: =IF((worksheet A!G70>0),F2,IF((B2
>D2),(B2-C2)*F6+F2,IF((B2
Current Formula
{=IF(AND(G144>0,F144:F173
the scenario is a spreadsheet for adding call centre operators evaluations (1 being worst and 5 being best) from the clients. in the spreadsheet, i need to create a function to add a quick evaluation based on the operators score from the client
so if the score is 4 or higher it would read "good - improving"
and if it is less than 4 "poor - improving"
i think this is just a simple IF question...but i have forgotten how to do it
I'm trying to produce a spreadsheet for tracking pupil's progress through a year at school (Targets/Predictions etc) but am having some problems with creating a summary of data gathered for each pupil. I have attached the file for your perusal; On the data entry sheet staff will fill in the appropriate data, and on the summary sheet I am looking to generate summaries for each pupil (I have set up how I want it to look). This may sound easy, (and probably is); the issue is that there are around 30 subjects in total, but pupils will only have be doing 5 of them, I need the summary sheet to show the information for subjects they are taking only (It should come up with the subject name under the headings subject1/2 etc and the appropriate grades to go with them, missing the blanks out. Obviously I could do this by cutting and pasting for each pupil...But there will be almost 2000 pupils in the list!!!
View 4 Replies View RelatedI was wondering if someone could help me generate a Macro to do the following:
I have a sheet with the following characteristics.
Column A, rows 8-15 contain headers
Column A, rows 17-24 contain headers
Column A, rows 26-40 contain headers
Column B to CV, row 6 may or may not contain an "X"
Column B to CV, rows 8-15 & 17-24 & 26-40 may or may not contain the various data
I need a macro which does the following on the press of a button located somewhere on the sheet:
Generate a .TXT file in the folder C:Test with the name "Test_YYYY_MM_DD_HH_MM_SS_Full.txt" which uses the system time and date to fill in the values In the TXT file the following data should be created: ....
i try to lock cells in the area the VBA code affects. My goal is to actually have affected cells by this VBA code lock immediately after anything is entered in the affected cells. Area needing Debugging is in the If - Else portion. My worksheet will be protected.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LLoop As Integer
Dim LTargetRange1 As String
Dim LDestRange1 As String
LLoop = 10
While LLoop <= 1000
'Link column B to A
LTargetRange1 = "B" & CStr(LLoop)
LDestRange1 = "A" & CStr(LLoop)
If Not Intersect(Range(LTargetRange1), Target) Is Nothing Then
If Len(Range(LTargetRange1).Value) > 0 Then
Range(LDestRange1).Value = Date
Else
Range(LDestRange1).Value = Null
End If
End If
LLoop = LLoop + 1
Wend
End Sub
I'm trying to do a few things actually. I am somewhat a newb at programming, although I do understand how C++ and the coding works within Excel. To me, it's like the English language...knowing all of the vocabulary and formatting it right is important. If I don't know the vocabulary, I don't know what options I have.
This tool is being used in the call center I work in. It is to help eliminate repititious information used to notate accounts. I have attached a picture of what the tool looks like so you can have a better idea of what I'm working with. Here are a list of things I'm trying to do which I have searched and not found answers to:
1. I am trying to use a middle mouse scroll to scroll through validation list. This list information is located on a different locked tab. Basically, I have a few rows where a drop down selection can be made and it would be easier to scroll rather than manually moving the slider within the validation list.
2. As you can see, this "tool" an employee and I have created has many buttons. What I would like to do is to be able to click a button on the right and have it "stack" text within a single cell. In other words, if I click the button once, the text may be entered into the "actions taken" cell. If I click another button, I can have the option (or maybe a little "+" next to the button) to add this button's information to the end of the information already entered within the "actions taken" box. I've tried recording and using the keyboard and selecting "end" and then having the text added, but it didn't work. I've seen "loop" VBA code, but I don't want something to repeat, I want it to stack in the cell when clicked manually.
I'm sure there is a way to make the tool much better using VBA code and not use Excel, but I don't have an extensive knowledge of Excel to do something like that. I'm a very fast learner and understand how the coding works, so if you have an idea which may help, and you understand what I'm trying to do here, please provide your .02.
Basically, it's used so the Customer's name and phone number are entered manually, and then just about everything else is automated by the use of the buttons on the right. If I could get the 2 above options to work, it'd be perfect. I just figured out I could eliminate screen flicker and hide the macros working by using:
I have an excel 2003 sheet that collects data from Infopath forms. The forms are to record students who have broken school rules, when, where, repercussions etc. One column shows their class and there is a separate column for each rule broken.
I want to create another sheet to show each class down the rows and the columns to show each school rule. Therefore, each cell would show the number of each particular rule broken for each particular class. I have tried to do countif and sumproduct (if on sheet 1, column B the class is KA and on sheet 1, column M, the rule is bullying = how many times this has occurred).
=ROUND(SUMIF($C$26:$C$106,D126, $F$26:$F$106)/COUNTIF($C$26:$C$106, D126), 0). the formula is from a sheet which is used as like a questioning/ skills matrix.
The reference of d126 is a category eg: complaint handling and there might be 4 questions on complaint handling each of the answers being displayed as a number between the cells f26-106. If any of these individual cell results are equal to 0 or 1 then i want the overall answer for the formula to default to "training required" rather than the value it would give.
I need to create a formula that looks at 2 adjacent cells. If both cells show 'YES' then I need the 3 cell to show 'YES'. If either/both of the 2 adjacent cells are blank then the third needs to be blank.
View 2 Replies View RelatedHow do you add icons into a message box. ie a warning triangle etc.
View 3 Replies View Related
