Attached is a spreadsheet wherein I'm trying to extrapolate project costs across various months based on working days in a month subject to start and end dates of the project. Need an accurate formula to spread the cost.
Days & Cost Allocation Example.xlsx
I have the following
Private Sub Workbook_Open()
Worksheets("Sheet1"). Range("L5").Value = Date
End Sub
When i try and run the code it returns an error saying: "Compile Error, Cant Find Project Or Library" and it highlights the word "Date"
I need to make an automated way of extracting a list of IDs and the associated cost by a date range, say 6/1/2015 to 12/31/2015, plus the starting letter of the ID. I need the data to then fill a form where it can be sub-totaled. There are several additional columns of data that are not relevant so I know I can create a pivot table and then filter the data, but then I need to copy and paste the filtered data into the form. Is there a way to do this without me copy and pasting everytime?
I added a test worksheet to show the data and form.
I will post my code and point out where the error occurs.
Sub GetProd()
'Averages Daily Production over the month
Dim WellRange, MonthRange As Range
Dim Month_ As Integer
TotWells = Sheets("R").Cells(1, 2)
TotMonths = Sheets("R").Cells(1, 4)
Month_ = Sheets("R").Cells(2, 4)
For Flag = 1 To TotWells
Set WellRange = DefineWellRange(Flag)
WellRange.Select <-----Used this To check If Range gets passed back properly.
For c = 1 To TotMonths
Set MonthRange = DefineMonthRange(Month_, (WellRange)) <---Error Here
Next c
Next Flag
End Sub ...
So the error occurs in the main "GetProd" Sub at the point when it calls the DefineMonthRange Function, its a 424 "Object Required" Error. Just before this is called I have a "WellRange.Select" which I was using to make sure that WellRange is in fact a range, and it does select the appropriate area.
So My question is of course, why I get an object error even though I am passing a range to a function which is expecting a range?
I am creating a spreadsheet that will display the subject mentioned. I need a chart that displays project deliverables as labels along a year long date range. I want to be able to change the date range to any period of time by entering a start date and an end date and having the chart automatically update to that date range and display the project deliverables due during that range. I have used the following links and have been able to accomplish each of them individually, but have not been able to combine the labels of the project timeline link with the dynamic date range described in the second link.
[URL] .......
[URL] ......
How to achieve the spreadsheet I described using the two ideas presented in the link?
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].....
Excel 2003
I have a macro and want to allocate it to a "button" . The macro is all ok.
So I make visible the FORMS floating toolbar / icon set.
There are 16 icons on this floating toolbar / icon set.
But the icon for button is missing, in that it is just 100% blank.
The other 15 icons are all ok, such as "Group Box".
Normally I would click this "button" icon, then draw my button, then allocate my macro to it.
I am trying to utilise the color function code i have previously asked for help with on this site in a new spreadsheet i have included the code below for your reference. I am utilising the following formula to total the numbers in the cells coloured =colorfunction(J1,E1:E26,True)
Excel keeps returning the following error 'cant find project or library'
Option Explicit
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function
This was my attempt, it says 'Object required'
Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, cancel As Boolean)
If Target.Column = 16 Then
Select Case Mid(Target.Text, 1, Worksheet.Function.Find("to", Target.Text, 1) - 2)
Case "CAS"
MsgBox ("Cashiers")
i have attached the spreadsheet
basically I am trying to total this spreadsheet up to work out a sum for the month by customer number. some customers made a payment in jan 2012 and paid again in jan 2013, some paid twice in one month.
what needs to happen is
it needs to have customer number going down and the month/year going across the top with a summary paid for that month
i have attached the spreadsheet.
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.
I am trying to compare values of an item one year vs the other in excel 2010. So my spreadsheet would look like:
A B C D
028042$500,000.00028042$500,000.00
028349$300,000.00028349$300,000.00
028390$300,000.00028390$300,000.00
028498$100,000.00028498$100,000.00
029477$135,140.00029477$135,140.00
030374$452,865.45030374$452,865.45
030375$452,865.45030375$452,865.45
What I am trying to do is compare A and B vs C and D to see if the cost associated with the number in A is the same as it is in C(which is obvious it is in this example but I have a spreadsheet with thousands of entries). Additionally, the AB value might be anywhere in the CD columns not just in the row next door.
I have a list with 8 columns. In the majority of instances, Columns A & B will have duplicate information. I need to be able to search columns A & B & return the information from them PLUS all info contained on the same row's from columns C/D/E/F/G & H. EG:...
My column headings are as follows...
Type Region Contact Phone Email ADD1 ADD2 ADD3
In column A (type) would be the type of contact eg:business/personal/family etc.
So... If looking for family I'd need excel to show me the region, contact, phone, email, add1, add2 & add3 for each family record. Hope this makes sense!
There are over 1000 records i need excel to search through & return matches.
I'm an intermediate excel user at best so finding it complicated. Tried vlookup but that stops when it finds a match & anything else seems over my head.
I have project start date in cell C2((MMDDYYYY format).In cell D2 I have put the total days needed to complete the project.In cell E2:E6 I have got the scheduled Holidays.
I need to calculate the project completion date in F2.We work from Monday to Saturday,Sunday being off day.
The detail is as follows:-
Kindly help me with the attched file.
I am trying to divide the months into weeks so I could easily identify if a particular date of a month falls on 1st,2nd,3rd or 4th week of the month.
I have tried to record macro to protect VBAProject / lock project for viewing. But can not success by that way.
View 9 Replies View RelatedIf i have a table full on excel data, date, names etc, and I have a userform where someone has filled all that in. On that particular userform I was wondering if their's a way I can get it to write each column over to a sample MS project document.
To save me having to manually change it over?
so on clicking a button, what ever's in sheet1 say it writes out out to specific ms project strips, e.g. start date(excel) written out to data(project)
I have a project with over 600 steps which we are trying to track when each part progresses by having 52 weekly columns. Their are 8 users which we have allocated a colour so when they complete one of the steps they select which step they have completed and which colour they are. This works well but I would like to put the date that the change was made in a separate cell in that row.
My question is can this be done with a formula as I am in favour of doing this as soon as someone changes a cell in the week range. If not I will need to nut through a VBA sub routine.
I know that this formaul does not work but it is along the lines of what I am testing for: =if(sum(T55:BM55)>" ",Date(),0) where if any of the cells in the range T55 to BM55 have any value or letter in them then put todays date in cell L55 else do nothing.
I am trying to use a date range as a criteria in a SUMIF function. Below are the data and formula I am using.
Forecast
6
4
15
8
Week
1/12/2014
1/19/2014
1/26/2014
2/2/2014
Formula =SUMIF(G2:J2,">L1",G1:J1)
G1:J2 - raw data shown above. L1 = 2/2/2014. Desired result = 8. Result obtained with formula above = 0 how to make this work?
I am trying to an If statement but the first part of the IF statement needs to be between a specific date range. Here is the formula I have:
=IF(AND(Sheet1!A4>=1/1/2008,Sheet1!A4
I need to develope a macro for Excel to calculate desired profit margin depending on our cost of each item. Here's the scenario.
A1: landing cost
If 0
I would like a lookup that takes multiple criteria and that is not an array formula! Unfortunately I decided to use array formulae and my spreadsheet went to over 45mb!! Not good. I've searched the forum for an answer to my questions but couldn't find any! I've attached a spreadsheet as an example. The examples I am using have {Sum(IF)} formulae in it (array) and I would like to change those to others that will not increase the file size so much and will not take too long to calculate.
Basically, I would like a lookup that will return me the Amount Paid and Full Cost based on the person's name and the date. the data and the results table are both on separate sheets. It would be nice to bring that file's size back down to less than 4mb!!
Attached is a print screen. I'm struggling with using the min function in vba. I want it to find the minimum cumulative cost in week 0 out of the first three, and the copy the permutations of it (1,0 or 1, 1 , e.t.c.) to Week one column C & D of the model.
View 3 Replies View RelatedI am working in excel 2010. I have a tracking document that lists free tickets and their expiry dates. In the adjacent columns we track redemption details of these free tickets. What I want to do is return the oldest expiration date from A only if the ticket has not been used (i.e. B is empty). This will allow me to see the date the upcoming tickets about to expire so we can make sure they are used.
A________________B
Expiry Date________Redeemed by
15/08/2014
15/02/2014
15/08/2014________John
15/02/2010________Marc
15/02/2011________Bob
Uses excel 2010 to track the project in the form of project status report. Basically it has to look simple yet tracking should be in the form of progress bar etc.. Our aim is to track a 3month project.
View 1 Replies View RelatedWriting a macro in excel where you can use the data in your excel file to copy data to microsoft project.
I have an excel file of task name, deadline, time remaining, and assigned to and I want to copy those 4 columns to a correlating column in project. So basically I would loop through these fields on each line til I reach a blank which could be entering a varied amount of tasks.
The full macro would change ms project start date to today's date then copy the 4 columns from excel to project to add a new task for each line in my file and then save the project file.
I've seen some links on macro with project but most are more advanced then this or are exporting data from project to excel.
I'm a basic user of excel 2003. I recorded a macro that copy a teacher absent schedule to a daily cover schedule as follow:
Sub ABS_M1()
'
' ABS_M1 Macro
' Absent teacher monday 8/29/2012 by Oscar
' Daily cover schedule
'
Range("A65:J67").Select
Selection.Copy
Sheets("Covers").Select
Range("B5").Select
ActiveSheet.Paste
End Sub
Using the same VBA: What function should I use to make the Sub ABS_M1 move down 4 rows to a new range on the cover sheet if the first Range ("B5") is already used and so on?
Why does this code no longer work? It gives me the error code Cannot find project or library and MyMsg = is highlighted in blue. This worked in 2003, but does not seem to like 2007 version of excel.
Sub Send2()
'This is the "Send to XX" button
MyMsg = "Did you remember to name and save this file to your computer?"
Response = MsgBox(MyMsg, vbYesNo, Attention)
Select Case Response
Case Is = vbNo
[Code] .....
Is there any Software / Excel Add-in to provide VBA Project Documentation? I'm looking for something that can tell me which code does what? Which codes and functions are related. What are the references (with Other MS Office products / foreign-objects if any). How many codes and code names
View 8 Replies View Related