UDF Returns #Value! Error After Opening Another Workbook
Dec 18, 2007
Having a problem with a simple udf to calculate values across multiple sheets using the calling cell as a reference point. It works great until you open another workbook and then switch back. At that point all cells calling this udf return a #value! error. If I type anywhere on the sheet all of the values will recalculate but this is less than ideal for the end users here. below is example of concept
Function TestMe()
Application.Volatile (True)
Dim strCallAddress As String
Dim intSubTotal As Integer
strCallAddress = Application.Caller.Address
intSubTotal = Worksheets(2).Range(strCallAddress).Value
intSubTotal = intSubTotal + Worksheets(3).Range(strCallAddress).Value
TestMe = intSubtotal
End Function
whats happening to my workbook. On a worksheet called Data, i'm pulling in a lot og data from a database. Then on another worksheet i'm looking for certain things on the data sheet and counting how many there are.
This all goes along find until i close the workbook, and then re-open.I click the automatically update button that appearsand once it finishs updating all my values are replaced with #Value.
I do not understand why my code returns a Run Time Error"9" Subscript out of range. With the following code, I opened a workbook and then wish to close that same workbook without saving. Eventually I will be pulling information from the workbook but for now I just want it to open and then close right away.
Private Sub cb_NewDate_Change() ListIndex = cb_NewDate.ListIndex
If ListIndex = 0 Then
Application. ScreenUpdating = False
Workbooks.Open Filename:="I:JoeNetwork Conversion FactorsNetworkConversionFactors_Ver_2_0_0.xls" Application.Workbooks("I:JoeNetwork Conversion FactorsNetworkConversionFactors_Ver_2_0_0.xls").Close False End Sub
I am getting a runtime error 32809, Application-defined or Object-defined error when I try to open my workbook. I remember someone posting code to set the VBA References when the Workbook is opened and I think this is what I need, because the file will run on Excel 2000 and not on Excel 2003. I know the References are different, but I don't know how to change them.
I have a list of workbooks on a sheet that i am trying to open with vba one by one. If a workbook in my list does not exist or was deleted then excel displays a runtime error. Is there a way to bypass this error and have the code skip the non existant workbook and open the next one?
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
Suddenly when I open a ExcelWorkbook Microsoft Visual Basic shows a messagebox stating: "Runtime faillure 9 Subscript out of reach" only the closebtn is enabled. After closing the box the workbook opens normally.
I have a need to open a file from my companies intranet. My current method was to open said file via the method that the recorder gave me. However, I would like ot be able to open a said file without having to start open another workbook.
This is the path: [url]
So the command is this: Workbooks.Open [url]
Links are not actual links
So what I need to know. Is how can I open this file without opening a workbook. I haven't been able to use the VB "Open Statement" to open a file and I don't believe that I've been successfull using the Filesystem object either.
I am using the below code (i have combined different bits of code which i found on these forums) to open a new workbook, copy all the data in it and paste it into Sheet2 in the active workbook . Also, i want the data to be pasted on the next empty row as there is already data in Sheet2. The data that is being copied and pasted has the same format and it is going to be repeated many times.
The problem i am having is that it is not offsetting the data to the next empty row - i think it is a simple change but i can't seem to get there :s
Also, the code is currently selecting all of the data from the workbook that i open - is there a way i can select all of the data, excluding the first row (the first row contains the headings which i already have in Sheet2 in the active workbook).
I have created userform and it works fine. Following code assigned to 'SUBMIT' button in userform - works fine. I am trying to include code where certain data from userform is also copied to workbook2 ( of course without opening it)- as marked in red...below
I have this code that only returns a #NAME? error. I'd love it if someone could take a look and let me know what you think might be going on. If it factors into it, D1:D4 each contain one of the following: USD, AUD, GBP, MX and E1:E4 contain the corresponding exchange rate. Also, J7:AJ41 contain a function that returns a number. Let me know if you need more information. I just can't figure why this is not working.
Sub newtabs()
Dim x As Range Dim Curr As String Dim Rate As Double
For Each x In Sheets("Cash Flow Detail - WkCount").Range("D1:D4") Curr = x.Value Rate = x.Offset(0, 1).Value Sheets("Cash Flow Detail - WkCount").Select Sheets("Cash Flow Detail - WkCount").Copy After:=Sheets(2) Sheets("Cash Flow Detail - WkCount (2)").Name = Curr Cells(7, 10).Select ActiveCell.FormulaR1C1 = "=IF(activecell.offset(RC7)=" & Curr & ",('Cash Flow Detail - WkCount'!RC*" & Rate & "),0)" Selection.Copy ActiveCell.Range("a1:aa35").Select ActiveSheet.Paste Next End Sub
My formula =IF(OR( FIND("Bugs",E2),FIND("Daffy",E2)),"/wkly",0). Always returns #VALUE! error. I can understand if neither value occurs in the string, what confounds me is if one of the two does occur in the string If I shorten to
I'm not sure what I'm doing wrong with this formula in Excel 2003. I figured out how to do it in Excel 2007 using the SUMIFS statement, but alas Excel 2003 won't take a SUMIFS statement.
I have data in a column, J of Worksheet B that I need to add based on 2 conditions. The first conditions are in cells AJ6 to 8 on Worksheet A. The second condition must be matched from Column A of Worksheet B to the same condition in Column F on Worksheet A.
Basically, if B36 is yes, use If Statement B, otherwise IF Statement A. If I write Yes, I get a "Value" error, if I change the yes to 1, I get a FALSE error.
I'm using the formula below to count the distinct number of values in the range, many values are repeated so this formula only counts each one once, it works sometimes. For some reason I get a #Div/0 error once in a while.
The entire range might not always have a value, when I get the error if I add text to the remaining cells of the range the error is cleared.
I do not want to use a If (iserr(myformula),0,myformula)) because there are still values that need to be counted even if the range is not totally populated.
I am using MS Query to join 3 worksheets together.
I need to calculate one field but it keeps returning an error. the 2 fields are part of the same table calle "Trades"
The fields are : Quantity and USD Price
USD Price is calculated initially in the worksheet using the current exchange rate. I can display each fields separately (no problem) but when I try to multply the 2: I get a syntax error.
Things i have tried: I tried to multiply Quantity by 2 and it works. when I try to multiply USD Price by 2 I get the syntax error.
I also tried to copy the values (not the formula) into a new column called USD Price2 and: - Quantity*USD Price2 : syntax error - USD Price2*2: Syntax error
Private Sub Workbook_Open() 'Application. ScreenUpdating = False ' Turns off screen updating Dim Filename As String Dim nFam As Integer Dim cRow As Integer Dim i As Integer ws As Worksheet
Filename = "O:BVRMusers_sharedJCIntraday ToolFamily List.xls" Workbooks.Open Filename 'Opens Family List
'Count the number of rows (Families) in Filename (Family List) Set ws = ActiveSheet With ws . Cells(1, 1).Select cRow = .UsedRange.Rows.Count End With End Sub
i cannot get ws to be set as the ActiveSheet. i receive a run time error 91 each time and cannot figure out what is wrong. i've used this code before under subform functions, but this is the first time i've placed it in the "ThisWorkbook" area.
I'm trying to sum cells in a column that meet the following criteria: If the first character of the cell = "V" then sum the last two characters in the same cell. I.e., if A4 = "V12" and A6 = "V10", then I need the formula to return the total 22. All other cells, whether blank or starting with a different letter need to be ignored. My attempts have failed, including this last one that returns a #VALUE error. =SUMPRODUCT(LEFT(A1:A10,1)="V")*(MID(A1:A10,2,2))
I have a spreadsheet that data gets exported to from a software program. There is information such as customer name, part number, inquiry number, etc that I'd like to use to develop a log of all my estimates I create for parts. I'd like excel to take the cells I select and insert them into certain cells in the other workbook and automatically save that workbook. This will create a log of all my estimates where I can then link the full estimate to the log. The information will have to go in the next available row. Is there any way I can accomplish this without having to open the other workbook and save the work book each time?
When I open my excel file and go to the VBA editor there is a pop up telling me that there is a dll error. So, I can't access none of my code or run any of them.
In the tools menu and references it says : "MISSING : Microsoft PowerPoint 14.0 Object Library". When I unchech this box and close the menu, it checks itself back.
Edit : I have Microsoft PowerPoint 12.0 Object Library also in my references list.
Sub OpenCalendarForm() frmCalendar.Show vbModeless
End Sub
When I run this I get this halt "System error&H80070057 (-2147024809). The parameter is incorrect. I havn't been doing VBA in a while as I am retired now but I have used this particular statement many times in the past and never had this error before. I have made sure there no typos. I open another workbook which has forms opening and copy pasted the the routine into my other workbook but I get the same error.
I am working on a worksheet with quite a few advisors who will be using the sheet, because of this reason I am trying to cover my back with as much error handling with my VBA script as possible. Where I am struggling is the following line:
Code: Set cb = Workbooks.Open("wilm-dchome"UserName"DesktopCurrent projectPipeline Grouped.xlsm")
I want to have an error handler that says if this file cannot be found use the following line of code instead:
Code: Set cb = Workbooks.Open(Application.GetOpenFilename())
It may even be just a simple if statement instead but I cant seem to find the answer.
However, is there a way that I can get Vlookup not to return N/A when I have a blank cell on the report (not in the data table). I want to be able to calculate the progressive grade average of a stduent as the year progrsses.
