ActiveWorkbook Returning NULL Error
May 17, 2009
I'm developing an excel addin using Visual Studio 2008. At the moment i'm trying to display a popup showing the value contained in cell A1. However, i'm getting a runtime error saying that xlWorkBook is null. I've been able to get this to work if i open a workbook but i want to be able to execute my code on the currently active workbook. I thought that ActiveWorkbook (also tried ThisWorkbook) would let me do this but i'm having no success.
using Excel = Microsoft.Office.Interop.Excel;
using Office = Microsoft.Office.Core;
...
...
Excel.Application xlApp;
Excel.Workbook xlWorkBook;
Excel.Worksheet xlWorkSheet;
xlApp = new Excel.ApplicationClass();
xlWorkBook = (Excel.Workbook) xlApp.ActiveWorkbook;
xlWorkSheet = (Excel.Worksheet) xlWorkBook.Worksheets.get_Item(1);
MessageBox.Show(xlWorkSheet.get_Range("A1", "A1").Value2.ToString());
View 9 Replies
ADVERTISEMENT
Nov 27, 2008
I am receiving the error message Run Time Error '94' Invalid use of null when running my program.
here is the code where the error is being caused:
View 10 Replies
View Related
Jan 27, 2009
I need a formula that will use the account number in Column A (My consolidated Spreadsheet) to search for the same account number in column A (My Individual Unit Spreadsheet) and return a value in the corresponding column. I know I can use VLOOKUP to do this but if the account number value does not exist in the Individual Unit Spreadsheet I do NOT want the #N/A value to show up in the cell, as it will then not calculate totals. Solutions please?
CONSOLIDATED
GPCLCCGCLPSILVRConsolidated
Assets :
Current assets
100100
Daily Depository - Union Bank
425 425
100300
Plant (A/P) Checking Account
(680) -680
100350................................
View 9 Replies
View Related
Oct 29, 2009
I'm trying to copy an ELOOKUP formula down a column in a sheet. The formula is losing part of the table array when I carry it down and returning an N/A error. Interestingly, it will work when I copy it across a row.
View 9 Replies
View Related
Feb 27, 2014
This macro keeps returning and error. It does it on all pages, except one. It works perfect on one page. This is a snip of the macro. if more info is needed. Let me knowMacro error.PNG It is supposed to Auto fit will filling in cells.
View 10 Replies
View Related
Mar 9, 2009
I have the following code that opens a series of workbooks on a given day, However, if one of the workbooks has been renamed or is missing the code gives a "400" error and stops, is there a way of having the code retry the next workbook if it comes to an error?
View 2 Replies
View Related
Sep 5, 2007
I am getting a compile error, the "+" sign is highlighted and the error is named argument already specified, if I remove the "+ vbExclamation", I receive the same error.
What I want to do is if the appropriate sheet is not active, the response will force the sub to end sub, if the proper book is active workbook, then continue on.
Dim Ans As String
Set oWss = ActiveSheet
Set oWsSNBD = Workbooks("TGSProductsAttrib.xls").Worksheets
Ans = MsgBox("Make Sure the ""TGSItemRecordCreator Workbook"" is the Active Workbook", _
"Correct Workbook?", Buttons:=vbYesNo + vbExclamation)
If Ans = vbNo Then
MsgBox """Select the TGSItemRecordCreator Workbook"" & Re-Run Code."
End
End If
View 9 Replies
View Related
Mar 23, 2008
I have come up with the following array UDF to help me split a large list of values into list of smaller groups.
The function takes the 3rd input argument to to understand how many smaller lists it needs to split the bigger range.
The 2nd argument simply specifies a seperator, either "," or ";"
On using the same on a worksheet I'm getting a #VALUE! error and for the life of me am not able to pinpoint the problem area.
Public Function CBOList(Rng As Range, App As String, OutRng As Range) As Variant
Dim Func As WorksheetFunction, UniqueVals As New Collection
Dim cnt, who
Dim ctr As Long, lst As String
Dim myarr() As Variant
Set Func = Application.WorksheetFunction
CBOList = ""
Application.Volatile...........................
View 9 Replies
View Related
Jun 15, 2009
I have a function that works out which is the last column containing data on a worksheet, but for some reason it is alwys retuning 0.
View 14 Replies
View Related
Nov 25, 2009
I have a userform that finds any instance of the user inputted search and tells you which sheet its in and allows u link to them. I also have a number of text boxes that I want populated with the information found on only the activesheet, not both. Currently I get a type mismatch error, and whilst it populates the information in debug mode I also get a Error 2042 on the following
TextBox5.Text = Cells(rngFind.Row, 2)
Option Explicit
Sub locate(Name As String, Data As Range)
Dim rngFind As Range
Dim strFirstFind As String
Dim Find As String
With Data
Set rngFind = ActiveWorkbook.Sheets(1).Cells.Find(Name, LookIn:=xlValues, LookAt:=xlPart)
If Not rngFind Is Nothing Then
strFirstFind = rngFind.Address
Do
If rngFind.Row > 1 Then
ListBox1.AddItem rngFind.Value.....................
View 9 Replies
View Related
Apr 14, 2007
I am trying to read Formula1 from the the Validation object. If the cell does not contain a Formula1 - I get on object error.
In:
http://www.ozgrid.com/forum/showthread.php?p=95521
Derk suggested "That error occurs when the activecell has no validation. Some of the properties return as "codes" so you will need to figure out what say -1 means for alertstyle." I do not know how to test for this.
View 5 Replies
View Related
Apr 27, 2007
My problem is that I am getting the N/A error in cell M3 if L3 is empty. I would like the forumla to 'ignore' cell L3 if it is empty. I do not want a zero put in there. I have looked up information on ISBLANK function but the more I read the more confused I am getting
View 6 Replies
View Related
Feb 7, 2007
A client has a registration workbook for each student which contains 3 types of worksheets, A) Transcript B) Registration and C) Grade sheets. Each file has only 1 Transcript sheet and 1 to many pairs of Registration and Grade sheets.
I have a GPA user defined function which obviously can only be used on a Grade sheet. I would like to return an Error if the user trys to use the udf on a non Grade sheet.
Currently I am just returning 1/0 but the smart tag returns #Name. Can I control the text displayed somehow?
View 9 Replies
View Related
Jan 25, 2013
What is causing this to error. Basically I'm just trying to highlight cells, and create a pivot table out of that. Here's my Code:
Sub Macro1()
'
' Macro1 Macro
Dim myRange As String
myRange = "Sheet1" & Selection.Address
Sheets.Add
[Code] ..........
When I debug, the value of myRange is something like Sheet1$A$19:$K$37 with the actual cell values being whatever I highlighted. I get a Runtime Error 5 Invalid procedure call or argument. I'm assuming it's something with my sourcedata variable, but I'm not sure what.
Also, I did try commenting out the Sheet.Add and Sheets("Sheet2").Select Cells(3, 1).Select lines, but it still produced the same results.
View 9 Replies
View Related
Dec 31, 2009
For some reason get a type mismatch error on when I try to determine the rth member of summation range. I have highlighted the relevant part of the code in bold. It is strange as I can obtain the address.
If ((All_nurse_names(r, 1) = nurse_name) And (All_status(r, 1) = status)) Then
Debug.Print "test " & r & " " & summation_range(r).Address & " " & val(summation_range(r))
total_hours_in_shift = total_hours_in_shift + (summation_range(r))
End If
View 9 Replies
View Related
Feb 20, 2014
I am, and have been using several sum- and count-ifs formulas for a time, but when the new year rolled around, decided to improve some of the sheet.
That all being said, the issue started after this. A specific set of my count and sum if functions started returning error values.
I analysed them, they seemed fine, and then selected them and hit enter. Problem over in that cell, as suddenly the correct value is returned.
But that's just it, I know the formulas are correct and working, as, if I select and hit enter on them individually, they return the right value. However, every time I close the sheet and re-open, all the values are showing error again.
I am perplexed. Did I inadvertently change a setting somewhere when I rebuilt the worksheet that is preventing the formulas from resolving correctly? As, like I said before, the formulas are fine, the data they are resolving, is fine. Just does not seem to calculate when I open the sheet.
View 2 Replies
View Related
Jul 3, 2009
I noticed all the code that i have on a userform using activeworkbook will relate to whatever the last active workbook was "who would have guessed hay" Seeing thisworkbook used a lot i decided to go through the whole project and change all activeworkbook too thisworkbook.sheet1 During this i also made a few other changes that i was confident in, When i run it now it errors on the thisworkbook.sheet1.
Is this the wrong way of using thisworkbook to make sure the code always deals with the correct file. (will this ever be affected if the file goes through a Save As)
Or is it during my over conifedents that i have made a error somewhere else and the debuger is point me here cos it hates me.
View 2 Replies
View Related
Jan 2, 2010
I have a userform that presents the user with 4 choices and once they click on one choice a macro runs that filters and formats the data and when the user clicks on the button start over it will reopen the file they were just using prior to the changes occurring. The reason for this is the same spreadsheet is printed up to 4 times with different information (remember the part where the data was filtered?). So basically the user clicks on option 1 the macro runs formating the page and then the user clicks start over (different userform then the first one) and the spreadsheet closes and reopens before the changes.
The way I have excel reopening the file now is by having the user input the file name into a text box and clicking OK this passes the file name to the open code in VBA. How can I tell the code the name of the sheet after the sheet is no longer active (because a userform was made active)? Basically the end goal is for the user to click over and excel will just reopen the file without any user input.
View 3 Replies
View Related
Feb 16, 2009
how I can make the following work no matter which worksheet I might be on?
ActiveWorkbook.Worksheets("Sheet16").sort.SortFields.Clear
View 9 Replies
View Related
Apr 8, 2009
I have the below code,
But i want to adapt the "ActiveWorkbook.Sendmail" so I can attach my current workbook as it is, to the email.
Private Sub CommandButton10_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "you@email.com"
.CC = "me@email.com"
.BCC = ""
.Subject = "Testing send to multiple emails."
.Body = "Please review." & vbCrLf & vbCrLf & ActiveWorkbook.FullName
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Dim Msg, Style, Title
Msg = "E-mail has been sent " & Chr(13) & Chr(10) & "Press OK to continue."
Style = vbOKOnly + vbInformation
Title = "Open Issues List"
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
End Sub
View 9 Replies
View Related
Nov 17, 2009
I run the macro on a currently open workbook (name could be anything) and open another workbook (name known) and step through the sheets copying various blocks of data across to the first workbook. I need to Activate the 2 workbooks alternatively as I move data back and forth and move from sheet to sheet. What I can't work out is how to determine in code what the "unknown" workbook name is so that I can make sure I activate the right workbook in the code.
I tried Activating the workbook with the "unknown" name and setting a variable = ActiveWorkbook.Name. However the value of this variable changes during the code run when you activate the other book. Is there any way to collect this value and "freeze" it so it won't change as the code runs? At the moment I have got round it by ensuring the "unknown" book is the only one open before I start and refer to it as Workbooks(1) in the code.
View 2 Replies
View Related
Jan 21, 2009
I have the following code that is going to trigger an export macro and an import macro allowing the user to upgrade the version of their report;
Sub Upgrade_SLA_Report()
x = MsgBox("Is the file you wish to export from open?" & vbCrLf & vbCrLf & "If it is click yes" & vbCrLf & "If its not click No" _
& vbCrLf & "If you need to abort the macro click cancel", vbYesNoCancel)
Select Case x
Case 6
MsgBox "Please use the Windows menu in Excel to ensure that the file" _
& "you wish to export from is the ActiveWorkbook!", vbInformation
' Missing step
If ActiveWorkbook.Name = ThisWorkbook.Name Then Exit Sub
ExpWb = ActiveWorkbook.Name
Case 7
On Error GoTo Handler
.......................End Select
Problem is, I have a missing step within Case 6 which allows the user to ensure that the file they are exporting from is the ActiveWorkbook.
View 9 Replies
View Related
Sep 25, 2009
I am trying to build a macro to be placed in a blank spreadsheet for use as a template.
My development platform is Excel 2003 on Windows XP SP2. The script was initially recorded as a macro against a single data file with absolute range references and worked both on my develpment platform and on the production platform (Excel 2000 on Windows 2000). However, I have been having fits trying to convert it to dynamic addressing for the PivotCaches.Add. I develop Excel solutions a few times a year and this pivot table is the deepest I have dug into OLE code, so I am not an expert and could have a simple problem. I included the entire macro because I am unsure if there are sideeffects to what some of it is doing. I am getting a 1004 error "The PivotTable field is not valid. To create a PivotTable report, you must use data that is organized as a list with labeled columns. If you are changing the name of a PivotTable field, you must type a new name for the field."
Since I do not get this error with the absolute references, I am puzzled as to what to fix. That is another reason for supplying the entire macro: ...
View 9 Replies
View Related
Jun 23, 2006
I have a workbook that is used by many people on a network- I am editing and saving data throughout the day, and the other users are constantly having to close and re-open thier file in order to have the most recent data. today i came across the '.UpdateFromFile' command in the help file, which would be perfect, if i could only get it to work. im guessing the problem is the expression, which would be the active workbook, but' ActiveWorkbook.updatefromfile' is not working. The file is on the network, remember, im guessing this is the problem. So, im also guessing i just need to get the syntax right for the filename.
View 4 Replies
View Related
Jul 3, 2006
How can I tell if a Sheet is protected (via VBA) ? (Excel 2003)
Something like: "If IsProtected. ActiveWorkbook.Sheets(1)..."
Returnig True or False will be fine.
View 3 Replies
View Related
Jun 29, 2007
I have used a code to find the character "-" and replace it with nothing ("") from several named worksheets across my workbook, which OzGrid helped me with before, and it worked fine. Now I've added the code into my module (at the bottom) it doesn't work. The rest of the code works fine, and it doesn't come up with any errors when I run it, but it just seems to ignore the 'find and replace' part of it.
Sub split1()
Dim fromSheet As Object
Set fromSheet = Worksheets(1)
Dim fromRow As Integer
Dim toRow As Integer
Dim lastRow As Integer
Dim errCount As Integer
Dim thisSectionName As String
Dim i As Integer ' loop counter
Dim rng As Range 'found range
Dim emptyCellAbove As Range
Dim rng1 As Range
Dim arng1 As String 'Address of 1st hit rng1
Dim ws(7) As String
Dim ii As Integer '2ND LOOP COUNTER
Dim iii As Integer '3rd Loop Counter
View 9 Replies
View Related
Jul 4, 2007
This piece of code successfully replaces a module in a range of workbooks -
Sub CopyOneModule01()
Const strModName As String = "Module1"
Dim FName As String
Dim vWbkNames As Variant
Dim lLoop As Long
vWbkNames = Array("CFADS01", "CFADS02", "CFADS03", "CFADS04")
With Workbooks("CF266") 'copies from here
FName = .Path & "code.txt"
.VBProject.VBComponents(strModName).Export FName
End With...........................
View 2 Replies
View Related
Apr 15, 2009
i'm tring to count how many shape in the activeworkbook are ovals like so :
View 3 Replies
View Related
Oct 15, 2009
i am creating an add in that will allow me to display all pivot tables in a workbook, their name, sheet location and source data in al listbox (called LBPivot) on a form (called FrmPivot)
My problem is that i am not sure how to make sure it points the focus to the activeworkbook and not the actual add in workbook?
View 6 Replies
View Related
Mar 21, 2008
I recorded the following macro to select all the worksheets in the Activeworkbook by clicking on the first worksheet and then hitting Shift Tab and selecting the final worksheet (thus '[Group] selecting' all worksheets in the active workbook).
Sub Macro1()
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Sheets("Sheet1").Activate
Range("A1:B2").Select
End Sub
How do you generalise the Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select if the number and names of worksheets varies from workbook to workbook?
View 9 Replies
View Related
