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 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].....
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 View RelatedI have one line of code that I need an error message for:
View 2 Replies View RelatedI 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 cannot figure out how to get my error handler to work, or actually, not work. It seems to work fine when there is an error, but the code still gets read even when there was not an error. Basically, I am trying to open a file, which may or may not be there. When it is not there I want a message to pop up informing the user. However, when the file is there and it opens, the error handler still gives the message box. Any ideas what I am doing wrong?
Private Sub btnOK_Click()
Application. ScreenUpdating = False
Dim LCSfile As String
LCSfile = frmSelectFile.Listbox1.Value
On Error Goto ErrHandler
Workbooks.Open Filename:=sPath & sDate & "" & LCSfile & "QUANT.CSV"
ErrHandler:
MsgBox ("File is not quantitated. Please select another file.")
Application.ScreenUpdating = True
End Sub
I have a workbook that is used by a number of different users accross the company. Some people have PC's running Windows 2003 SP3, some have terminals with either
- Windows 2000 SP4 with Excel 2002 SP3
or
- Windows 2003 SP2 with Excel 2002 SP3
on the server.
On the "Windows 2003 SP2 with Excel 2002 SP3" example the code below won't run.
Saying "Compile Error in hidden module." I unlocked the code and re-ran the "Workbook_Open" event but I keep getting "Compile Error: Can't find project or library". I have then checked the references but none have the "Missing" prefix, so I don't know which to look for. Does anyone know what DLL i need to load or should I just get IT to updgrade to SP3?
Code: ....
I am using the calendar control on a form of mine, which i believe requires ms access to be installed to use(from what ive read). This is fine as most of the PC's it will be run on have this installed. However if it is run on a PC that doesnt have ms access it gives me the "Could not load an object because it is not avaliable on this machine" and then "cant find project or library error". How can I trap this error ? Ive tries whe the workbook opens, and when the form initializes but it just brings up that error
View 2 Replies View RelatedI am working on a form in VB and when I try to enter data into Textboxes (which all have either a currency format or date format) I get an error that says "Compile Error - Can't find project or library". I think the problem may be that I need additional references uploaded onto my VB but am not sure. Any Ideas?
View 6 Replies View RelatedI have currently written a macro in excel 2003, it doesn't run on excel 2007, or some versions of 2003, I realize this is due to missing references, I was curious if there is any way to write code to actually prompt or install these references using VB. This way novice users can use the macro by themselves.
At the moment it fails on code such as
ans = MsgBox("??", vbYesNoCancel, "Title")
saying ans is not found
"Compile Error: Project or Library cannot be found"
I can avoid these errors by dimensioning everything as a string or variant. BUt doing this will use more memory which is not desired at the moment as it sometimes exhuast available memory on some machines.
I am looking for a more efficient way to write a macro (a sample from the macro is below). This is just the first part of the macro. I need to repeat these same steps (seen for row 5 below) for rows 5 to 50. My script worked until I hit row 35 and then I got the "compile error.." message. There must be a way to use "loop" to write this more efficiently, no?
View 14 Replies View RelatedIt works fine with several versions of Excel (2003, 2010, and 2013). But the problem arises when I move from Windows XP to Windows 7 or 8.
I use a scanner to scan barcode serial numbers into a textbox, and then populate these serial numbers with other associated data into a spreadsheet. The serial numbers are supposed to be separated by each line and placed into an array.
I get a compile error "Cant find project or library" with CHR highlighted in blue from this line of code...
SNs = Split(Str, Chr(10))
Once again, it works fine on many machines with XP, but not on Win 7 or 8.
[Code] .....
One of our employees has wrote a VB project in excel 2010 which works on some machines and not others, it comes up with the below error message.
I have checked VB and there are no missing references.
Compile Error: Can't find project or library
Private Sub UserForm_Initialize()
'Empty ClientCodeComboBox
Me.ClientCodeComboBox.Clear
[Code] .....
I have the below code which was working at work using Excel 2010. We have upgraded to Office 2013 and it no longer works
Error: Compile Error. Cant find Project or Library
It does highlight this : If Right(varFile, 4) = ".xls" Then
Code:
Sub PropertyName_SAVEAS()
Sheets("Menu").Select
Range("I27").Select
Dim varFile As Variant
Dim strFileNameDefault As String
On Error Resume Next
[Code] .......
If cell K6= "ERROR" I need a message to pop up on screen with the message "Wrong Entry click OKAY to find, Click CANCEL to ignore". Clicking OKAY would simply go to worksheet named "MONITOR". Clicking Cancel would just clear the pop up from on screen.
View 5 Replies View RelatedWhen i try to run the code below i get the error message - object variable or with block variable not set-
Sub REFRESHXX()
'LIST
Cells(Sheets("POINTS").Range("DD801").Value, Sheets("POINTS").Range("DD800").Value).Select
Selection.AutoFilter Field:=1, Criteria1:="1"
'SET RANGE
Dim sFormula1 As String
Dim sFormula2 As String
Dim sCell1 As String
Dim sCell2 As String
Dim sSheet1 As String
Dim sSheet2 As String
Dim r As Range
Dim MyRange As Range 'for testing
With Sheets("Points")
sFormula1 = .Range("CY1").Formula
sFormula2 = .Range("CY2").Formula
End With
'FORMULA IN R1C1 STYLE
strFormula = "=IF(ISNA(VLOOKUP(RC[-1],MASTER!R4C3:R17908C7,3,FALSE)),0,VLOOKUP(RC[-1],MASTER!R4C3:R17908C7,3,FALSE))"
'ENTER FORMULA IN ALL CELL RANGES
r.FormulaR1C1 = strFormula
'REDUCE TO VALUES
Dim ar As Range 'an area is a range
For Each ar In r.Areas 'areas are discrete, contiguous ranges of cells
ar.Value = ar.Value
Next ar
'UNLIST
Cells(Sheets("POINTS").Range("DD801").Value, Sheets("POINTS").Range("DD800").Value).Select
Selection.AutoFilter Field:=1
End Sub
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 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 have tried to record macro to protect VBAProject / lock project for viewing. But can not success by that way.
View 9 Replies View RelatedFor some reason my form won't open when the workbook is opened. I get an error message "run time error '424' object required" (which happens when I have Form1.show in the BOTH workbook_open event and the userform_initialize event (oops)). When I removed form1.show from the userform_initialize I don't get an error but I also get no form. I recall having this issue before but I can't recall how to fix it.
Can I call the userform_initialize event from the workbook open event to get around this successfully and properly?
I am using Mid function in my program. During execution, i am getting the waring message of "Complier Error: Cann't find project or library".I am not able to find the what is the reason behind on it. If really the library file missing.
View 3 Replies View RelatedI do hit the SCE (Shift-CTRL-Enter) keys. The formula does work in one workbook, but not the other. The only difference between the two workbooks is this formula has a larger range.
New Formula- doesn't work (ERROR- #DIV/0!)
{=AVERAGE(IF(Sheet1!A3:A1094="MONDAY",Sheet1!E3:E1094))}
Old Formula- works
{=AVERAGE(IF(B6:B451="MONDAY",E6:E451))}
When I input the formula : =(G9+G16+G23+G30+G37+G44+G51+G58+G65+G72+G79+G86+G93+G100+G107+G114+G121)/17
I get the error message #VALUE!
HI everyone I modified my code alot and now it is erroring out on me. This button in question basically saves the information collected to a new spreadsheet. But it errors at right at the start. Compile Error: Can't Find project or library.
View 3 Replies View RelatedBelow is a string of code that used to previously work in my excel workbooks. Currently, I have been receiving the following message: "Compile error: Can't find project or library" when it reaches the SolverReset. Solver has been added to my excel version, but I still can't figure out why it isn't working. I have looked through the references and noticed that the Solver is missing within VBA, unfortunately, I cannot seem to add the reference back in, it is no longer on the list of references.
Sub Macro1()
Dim myNum As Long
Dim answer As Byte
Sheets("Data Sheet").Select
For myNum = 2 To 42
SolverReset
SolverOk SetCell:="$C$" & myNum, MaxMinVal:=3, ValueOf:="0", ByChange:="$E$" & myNum
answer = SolverSolve(True, "ShowTrial")
SolverFinish KeepFinal:=1
Next myNum
End Sub
For some reason, I'm getting a "Compile Error: Can't Find Project Or Library" error on things that I shouldn't. So far, I've gotten this on Left(), Right() and Format(). I downloaded an example form from somewhere, and I noticed that it uses Format() without any problems, but if I use it (even if I just copy and paste they're code into my project file) it gives the above error. What I'm wondering is if there is a fix, or some reason why I'd have this problem on one file and not another. Then, more importantly, is there any kind of work around, for example I happened to read on another unrelated thread that xl97 doesn't have a Replace() function, but you could use the worksheet function: application.worksheetfunction.substitute(text, " ", "_") instead. Is there anything like this for Left(), Right() and Format()?
View 2 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 RelatedI get spreadsheets sent to me with hours and minutes in decimal format. Frequently a quarter of an hour or three quarters of an hour are posted as 0.15 or 0.45 instead of 0.25 and 0.75. Other odd fractions can also appear.
I want an error message if the value when divisible by 0.25 is not a whole number.
I am trying to run the macro and I get this error:
Compile Error! Sub or Function not defined
for the following
RFQnum = VLookup("RFQ Number", CPARSdata, 2, False) 'RFQ# should be same for each supplier
CPARSdata is a named ranged with 25 columns and 338 rows