I try to unload my Addin, but i got this msg:
Thisworkbook is currently referenced by other workbook and can not be closed
Each time when i want to remove it from the main menue, I have to go to toolbars > customize and remove it.
before it used to be unloaded normally by unchecked the addin from the addin window.
When I unload userform2 it also unloads userform1. I need userform1 to be showing after unloading userform2.
View 3 Replies View RelatedI have an Add-In installed on multiple computers. When I update it I update them all at the same time so that everyone is on the same page. The Add-In is always in the same location for all computers.
C:- Global FilesVF MacroVF Macro Add-In.xlam
I use the Add-In to format a sheet and one of the formats is to display the "last author" & "Last Save Time" This is the code used:
Code:
Function DocProps(prop As String)
Application.Volatile
On Error GoTo err_value
[Code]....
The same situation occurs with cell Z8 as well. It appears it is looking in the wrong location. If I change the E to a C in the formula bar it fixes the issue but I cannot rely on my users to do this every time. We keep the WB's in question on an external drive and pass it around as needed. So they will run into this problem on a regular basis.
I also get a "Security Warning - Automatic update of Links has been disabled" message only when run from the USB drive.
My SUMIF function only works when the workbook that I'm referencing to is open. When it's closed and I open the file it shows #VALUE!. How do I fix this problem?
View 2 Replies View RelatedI am getting the error from the title of the thread when I try to change a worksheet name.
This worksheet name doesn't already exist in the workbook and I don't have any other files currently open.
I'm not entirely sure what is causing this, but I do need the sheet to be the name I am trying to change to.
I have three CheckBoxes and I use the UserForm Initialize event to set them to False. I thought that Unload Me would reset them. It does not matter except I do not want to ahve problems later. If UnloadMe in any way resets them then I suppose the variable in the main code would have to pick up the values before the UserForm gets unloaded.
View 9 Replies View RelatedI 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.
I use several different userForms at different times in my macro. I am having an issue where soemtimes Excel will be stuck (not frozen) after I close a form. Its almost like the form is being hidden but Excel thinks that it is still visible, so execution halts.
I've tried leaving the form with both me.hide and unload me. My code is pretty lengthy, so I don't think submitting it is appropriate. I believe my problem is my own lack of knowledge on hide vs unload.
Can anyone help me out here?
I have made a macro that displays a textbox containing the contents of a cell once the cell is clicked. The macro is written in the 'ThisWorkbook' module in the Sub 'Worksheet_SelectionChange'.
Now I want to convert this macro into an add-in so that it works on all the Excel workbooks I open. Is it possible to do this? Or is there a way in which we can automatically put the code in the 'ThisWorkbook' module of any open worksheet (doesn't seem feasible).
If you have any ideas, please let me know?
I use a code in ThisWorkbook to always open on sheet 1 when opening up the excel spreadsheet.Is there a code that I could put in to ThisWorkbook that would do a check that the workbook was e.g. "WorkbookA". If it wasn't then the start up code would be cancelled/ignored.The reason for this is that I am copying this workbook whenthe user has entered details in to it and so I do not want this code to run in the saved workbook, that will have a different name.
Workbook A is the master copy or template
Get a code to take the autofilter of every page within Thisworkbook.
Something like the following (but doesnt work)
Sub FilterOff()
Dim ws As Worksheet
Dim i As Integer
i = 1
For Each ws In ThisWorkbook
Worksheets(i).AutoFilterMode = False
Next ws
End Sub
Attached I have kind of a score card, when you open the tab named TEAM1 a userform pops up and I pick the partners that played together, then I can pick an option button labeled 0,1,2 or 3, when it unloads, is it possible to make it put the corresponding number by their names in the empty row (W) of the week they are playing?, and not just the 1st open row available?
For example, if I pick the names Ryan and Stu the number will go under week 10 (X3) and not find the empty cell in (J3)?, I have no clue how to make this happen, but I made a userform to use, to try and make it work.
POOL LEAGUE TEST.xls
Using VBA I have used "LoadPicture" to load a picture to a picture frame on my userform. The actual file name is driven from a label. I now want to unload it so the value is None.
Example:
I have a userform that after some operations won't unload. It executes subs from other buttons on it but it won't unload. I use ScreenUpdating but I always set it to true.
View 9 Replies View RelatedI'm trying to copy all the sheets into a new workbook but the following code does not copy the workbook object called "ThisWorkbook", it does copy ALL the other sheets however.....
ActiveWorkbook.Sheets.Copy after:=Workbooks(fileDst).Sheets(1)
The "ThisWorkbook" object appears at the end of the list names "Microsoft Excel Object" after all the sheets are listed in the VBA project explorer, like this.....
Microsoft Excel Object
<icon> Sheet2(Sheet2)
<icon> Sheet2(Sheet2)
<icon> Sheet2(Sheet2)
<Excel icon> ThisWorkbook
I have code in there that is needed such as Workbook_Open() so it's needed when I copy to a new file or I have to hand copy it everytime.
What is the difference between Form1.Hide and Unload Me?
View 2 Replies View RelatedI do not want ThisWorkBook to close prematurely whenever the specified Activeworkbook is closed without saving because there are other tasks to complete. The Workbook_BeforeClose dun seem to fix it for my case below.
Here’s my situation. I want to copy data from a range of a particular protected sheet in 5 (password-protected) workbooks of a similar format, to 5 worksheets(unprotected) in ThisWorkBook, which is the Master Workbook. The password of the protected sheet is common to the 5 workbooks. The passwords of the 5 workbooks are contained in a sheet in ThisWorkbook. After copying the data from Workbook1 ( 1 of 5), ThisWorkbook are prompted for closure, when Workbook1 is closed without saving. Responding to the prompt to save or not to save, forces ThisWorkbook or MasterWorkbook to break the For-Next loop. By setting Cancel = True in Workbook_BeforeClose, I can stop Thisworkbook from closure, but I will still break the For-Next loop. I have considered the method of copying data from a closed workbook, but I dun think VBA allows copying or referencing a closed workbook which is password protected at workbook and worksheet level.
Here’s my coding :
Sub UpdateMaster()
Dim MasterWB As Workbook
Dim TempWB As Workbook
Dim Source As String
Set MyWB = ThisWorkbook
For i = 1 to 5
Set TempWB = Workbooks.Open (Filename:=WB(i), Password:=password(i) )
TempWB.Sheets("ProtectedSheet").Unprotect Password:="SheetPasswd"
MyWB.Sheets(i).Range(XXX).Value = TempWB.Sheets("ProtectedSheet").Range(YYY)
TempWB.Close False ‘dun want to respond toclose ThisWorkbook else it breaks for-next loop
Next i
Application.Quit.
End Sub
When in a ThisWorkbook macro, I want to call a sub/macro in a Module. Usually you can just do a CALL MACRO1, and it will find it. But my MACRO1 is Private as I don't the users to be able to do a Tools, Macro, Macros and see it. So I don't want to make it a Public macro. So how do I call the private sub/macro from within ThisWorkbook?
Can I proceed the sub/macro's name with the name of the module, kind of like CALL MODULE1.MACRO1? Or do I have to make it public?
i have a userform which has txt boxes in it which when the data is put in to it goes onto a sperate worksheet.
would like to click on a command button to view the worksheet that the data has gone onto
have tried
unload me
sheet1 show
unload me
sheet1.show
and also with the worksheets name as well
I'm using a series of user forms for data entry to a workbook, some of them open next stage user form on completion (OK cmd button).
All that is working fine, but I'd like the initial form to close on showing the next one. I've tried adding Unload and Hide commands following the frmInsertEntry.Show (Next stage form), to no avail, but I'd like this user form to close or hide at the end of the sub.
Private Sub cmdContinueType_Click()
ActiveWorkbook.Sheets("Records").Activate 'Select starting cell in record sheet
Range("N3").Select
Do
If IsEmpty(ActiveCell) = False Then ' Search for next empty cell
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
If optDrillType = True Then
frmDrillEntry.Show
Else
frmInsertEntry.Show
End If
End Sub
I am trying to figure out the correct way to copy the "ThisWorkbook" module from one file to another. I have looked at Chip Pearson's website page on the topic but am still confused. If its only this one component that you wish to take to the new file.
View 9 Replies View Relatedif I put my code to Word or Access or PowerPoint, is there some global version of "thisworkbook"? I mean, something like "thisapplication" or something?
View 9 Replies View RelatedPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Application.ScreenUpdating = True
Unload Me
RestrictedOptions.Show
Else
Cancel = True
End If
End Sub
Trying to use above code to unload active userform and show new userform when red X (close) selected by operator. With the code as is, the Unload Me leaves the form on the screen and displays the RestrictedOptions form. If i remove the Restrictedoptions.Show, the Unload Me does remove the original form.
In cell A1 I have a number representing a column and in cell A2 I have a number representing a row. In A3 I wish to obtain the value from the cell referenced by these two numbers.
ie
A1 = 3
A2 = 4
A3 = value from cell C4 (column 3, row 4). How do I write a formula in A3 to look this value up?? I know about the range function in visual basic but I just want to be able to do this using a spreadsheet formula.
Here is a google doc of my issue: [url]
An Excel sheet is also attached.
I believe you have permissions to edit.
In H1:H4 I have 4 different functions. When the user specifies which function to use in E1 (add, subtract, multiply, or divide), I would like C1:C4 to evaluate the values in Columns A & B.
My problem is that the formula only uses the values in A1 and B1. When I copy the formula down the column, it still evaluates for the values in A1 and B1, not in A2 and B2, A3 and B3, etc...
I had posted earlier and felt I had solved my problem, but I have not. What I am trying to do is use code to change directory when the save menu is activated.
I want to be able to open from one location and then it defaults to another. I have tried "chdir" , but I can't seem to get it to work. Even when I change the DefaultFilePath, the "save as" location defaults to the location where the file was opened from. I want to default all "saves" in a specific location without using the menu to select.
I have a vlaue referenced from a sheet 2, and I need to put this value (Same value) in a cell, say O3,and then O4, O5... six times counting from O3. i.e O3=150, O4=150, O5=150....
150 is coming fr4om "Worksheets("Interest Calculations").Range("F4")"
For x = 1 To 6
Range("O3").Value = Worksheets("Interest Calculations").Range("F4")
Next x
I have a matrix of numbers that is 6 columns (A,B,C,D,E,F) by 200 rows. The number 4 randomly appears 83 times in this matrix. My objective is to setup a cell outside of the matrix at cell location H1 that will be referenced linked to all of the cells where the number 4 shows up in the matrix using a formula like: "=$H$1" inside all of the 83 separate cells where 4 shows up. I am doing this manually, and it is a drag.
Is it possible to make Excel do the linking for you automatically? I'm talking about selecting any region of numbers and then instructing Excel to find all occurances of a number you are looking for and then have Excel setup a link for you by inserting "=$H$1" automatically where that number shows up? Therefore, when I go to cell "=$H$1" and type in 7, all of the 83 locations where 4 is contained automatically change to 7. Again what I'm trying to avoid is having to manually setup these links. I want to know if Excel can find the occurances of the number 4 (or any other number) in any region I select and then have it do the referenced linking for me to any cell I specify that is outside the region I select.
I have 15 files in a folder and need vba code which would open every file from the specified folder and add that file name in the row starting cell "D1" in the "Master File". Below is the code which opens the file from the folder, but need the updated code which will add the opened file name. Also can u pls update this code to not open the "Master file" which is in the same folder when it loops..
VB:
Sub Login_summary()
Dim MyPath As String, FilesInPath As String
Dim MyFiles() As String
Dim Fnum As Long
[Code] ....
I'm looking to set up a table in Excel (or possibly Access that is then referenced through Excel). But end goal would be to be able to type in an Item Number and then Excel automatically fills in the Description, weight, price and other information about that item number. That way, I don't have to type in "11108.1" and "Computer Mouse" and "$15.98". I want to only type in "11108.1" and it knows to fill in the other information. Is this possible in Excel? I've searched through many functions and haven't found it so I'm thinking it may require a combination of formulas.
View 1 Replies View Related