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 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 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 RelatedOne 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] .....
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 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 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 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 trying to run a macro that i have copied from another workbook (which works fine) and when i try to run the macro i am getting a 'compile error' which says "Can't Find Object or Library" and takes into VB editor which highlights the word "Trim", which is part of a formula. What does this mean? I can't understand why the same macro will work in another workbook but not in this one. Below is the full code, I would have attached the workbook but it would not work for you as it opens and saves files that you would not have. Hopefully someone can understand from the code.
View 10 Replies View RelatedI 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
It 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] .....
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] .......
is if I F8 through the code it works fine. But when I run the code through the button on the spread sheet. It stops at the Format comand. And says "Can't Find Project or Library." Has anyone ran into this issue or know how to solve it.....
View 2 Replies View RelatedI am getting a complie error that I did not get when the code was written. Earlier versions of the same workbook still work fine without error. I hope thie workbook is not corrupted.
The error happens with the None command in this code for a button in a user form.
I have written a program in VBA. When I run this program on other computer VB showes "Can't find project or library" error and all of the the common function like "Str" and "Left" and... are not known by BVA. I think I know the reason I have a missing references in my program.
first , can I check it before runing the program by a macro?
second, How can I solve the error?
I have some project that works on my computer and doesn't work on other. When I run it on other computer it fail on functions right and mid, and throw "Can't Find Project Or Library". What the problem and how I may be sure that my project will run on other computers?
Fail on row:
ext=Right(sel,1)
My computer: Windows XP, Excel 2003
Failed computer: Windows 2000, Excel 2000
I am trying to use the Find function within some VBA code but keep encountering a compile error. Code works fine on it's own as below but doesn't work within the VBA code. I can't figure out what part of code needs to be modified.
The desired result in J2 = "Jim"
the value in cell I2 = "Jim |Anderson"
Working Function as follows:
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] .....
I have got an issue. in MSE 2003, this beginning of macro worked:
Sub Consolide()
MYFOLDER = "D:DATAMypath"
In MSE 2010, it gives me an error: "Can't find project or library"
I really know that my path is defined fine, because it worked perfect before MS update.
I developed a program which uses Date function in several places. Problem is that on some machine this function is not working and I'm getting compile error.
What is the reason for that. Is this a system setting??
I have created a calculated column in PowerPivot and inserted a formula that worked in a normal excel spreadsheet however, this formula does not work in PP anymore.
=find("green",Table1[Name],1)
Name column:
NAME: Bag green
it should find "green" in the name and return the position. Hoever it alway returns the error, that the find function could not find the string.I have attached an example spreadsheet.
Is it possible to see why this code returns a date that is almost correct? Searching for 01.01.2005 I get 01.11.2005 as result. I would like the code to only show the correct date, and if it doesn't exist it should end up showing "nothing".
Code:
Set fstdate = wsOBX.Range("B1:B" & lr1).Find(what:=startdate, _
LookIn:=xlFormulas, lookat:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
I am having some trouble getting a formula to work. I am building a report that pulls figures from a pivot table in another workbook. I am using a vlookup with match function to get the column index to find the relevant data I want. Where I need to add two columns together I am using sum, with the vlookup & match formulas nested in them e.g.:
=SUM(VLOOKUP(F13,'[PIVOT 156.xlsx]PIVOT'!$C:$AQ,MATCH("FAID",'[PIVOT 156.xlsx]PIVOT'!$C$6:$AQ$6,0),FALSE),VLOOKUP(F13,'[PIVOT 156.xlsx]PIVOT'!$C:$AQ,MATCH("COMM",'[PIVOT 156.xlsx]PIVOT'!$C$6:$AQ$6,0),FALSE),VLOOKUP(F13,'[PIVOT 156.xlsx]PIVOT'!$C:$AQ,MATCH("BPCM",'[PIVOT 156.xlsx]PIVOT'!$C$6:$AQ$6,0),FALSE),VLOOKUP(F13,'[PIVOT 156.xlsx]PIVOT'!$C:$AQ,MATCH("COMD",'[PIVOT 156.xlsx]PIVOT'!$C$6:$AQ$6,0),FALSE))
Where:
F13 = Employee number
Column C on the pivot 156 workbook is where the employee number is based.
The Match formula is then getting the column index from the column headings of the pivot table ie. "FAID"
This in itself works fine, as long as it finds a match in the column headings. This is where i get the error as in the above function "COMD" is not in the pivot table. However I need to keep it included as it may appear on a future pivot table. Is there a way of getting the sum function to complete even though later in the formula it can't complete the vlookup? So it will ignore it, or assume the value is zero if it can't find it? The formula probably needs to do this for all the vlookups as some headings may drop off in future pivot tables.
I am trying to run create a simple macro that copies and paste special values - something I have done 100's of times but for some reason I keep getting an error message - even though I recorded the macro and didnt write it by hand - see below:
Sub Macro6()
Cells.Select
selection.Copy
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
For which I get 'Compile Error - Expected Function or Variable'
Trring to use function edate() in VBA macro, I've activated atpvbaen.xls in Tools/Register but get compile error:"Sub or function not defined".
View 5 Replies View RelatedHave two worksheets in same workbook. First worksheet is "ReArrangedAddr" Which basically has a command button to click to run a "Sub" behind the second worksheet "Orig SH Register". When I click on button on first worksheet, I get error "Compile Error: Sub or Function not defined"
* * * * * code behind command button * * * * *
I have a two set of Macros in a workbook. One is to create a command button on a sheet and other macro will run onece the created commond button is clicked.
Macro runs fine. Command button gets created, but when I click the command button to run another macro it gives error "Compile Error: Sub or Function not defined" highlighting the code "Call Add" at the code entered for sheet. This code is added by macro in the sheet1. I am attaching a sample file as well as codes.
Sub CreateButton()
Dim Obj As Object
Dim Code As String
Sheets("Sheet1").Select
'create button
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=600, Top:=30, Width:=100, Height:=35)
Obj.Name = "InsertInvoiceButton"
'buttonn text
[code]....
Why do I get the below error when I open my workbook? The highlighted function is below.
Private Sub CommandButton1_Click()
Dim myText As Variant
If TextBox1.Value = "code" Then
UserForm1.Hide
Else
Me.Label1.Visible = True
Me.Label1.ForeColor = vbRed
End If
End Sub