I have workbook that has questions on column K and L that NEED to be answered. When the user closes the spreadsheet I need the macro to create a pop up that says "unfinished Workbook"
So I need a macro that tells the user to finish answering the questions on K and L -
I have code in VBA that takes a source Excel file and parses it to multiple re-formatted worksheets. Each formatted worksheet is different depending on a variable in the source. There are n of each type of data (1:n Water Sources, 1:n Water Treatment, 1:n Water Storage). Each item needs a copy of a blank re-formatted worksheet appended to the end of the existing data-type worksheet. For example: Water Source #2 is appended to the bottom of Water Source #1 on the same worksheet.
Currently, I am opening the blank re-formatted workbook each time an additional variable of same type is found in the source file. Meaning, if there are 8 Water Sources, I am opening and closing the blank re-formatted workbook 7 times to copy a blank Water Source to the bottom of the Water Source worksheet and then populate the data. AND if there are 3 Water Treatment, I would open and close the blank formatted workbook 2 more times to copy a blank Water Treatment to the bottom of the Water Treatment worksheet. The same goes for Water Treatment.
Obviously, a huge waste of resources and performance. I would rather open the blank re-formatted workbook once (first time an additional worksheet is needed), use the worksheets as needed, and close it at the end.
Attached is my current, working code of the above.
How should I re-write it to check if the blank workbook is already open use it, if not open it?
Code:
Sub Add_Facility(ByVal Worksheet_Name, Copy_Range, Max_Limit)
Dim Last_Row As Integer
Dim Source_Range As Range
Dim Dest_Range As Range
Dim wkb As Workbook
Set wkb = ActiveWorkbook
[Code] ........
i am using the following code to close my userform and work book,this disables the exit button on the userform but i can still close the workbook by using the exit buttons on the sheet. can i disable the exit buttons on the sheet so the only way to close the workbook from the userform
Private Sub CmbClose_Click()
Dim ans As Variant
ans = MsgBox("This will close XL, save current file?", vbYesNoCancel)
If ans = vbYes Then 'save book and quit XL
ThisWorkbook.Save
Application.Quit
ElseIf ans = vbNo Then ' no save and quit XL
Application.Quit
ElseIf ans = vbCancel Then 'no save, no close , back to userform1
Exit Sub
End If
End Sub
At the moment, there is no compile error or runtime error, but if I manually attempt to open the file (that was successfully read from), I get the message that the file is already open and is locked by myself (the user) and that multiple Excel processes are still running (I checked the task manager).
How do I close this Excel file (no changes to be made since I only read from the file) and quit Excel from running ?
Here is what I have at the moment :
Dim FirstName, Surname As String
'file path and name for the Excel file
Dim FileNamePath As String = "C:UsersMRCDesktopMRC FilesVisual Basic FilesSwimManager 2014CurrentSeasonDATASquadData.xls"
[Code].....
The Macro asks the user to point at the location of a report, it then copies information out of that report and pastes it into a master sheet. The part I am having trouble with is closing the file that data has been copied from.
I have tried different things to close it such as
I'm making a workbook which I want to distribute widely. It will have a lot of changes to the menus which happen 'onOpen'.
I am keen to not spoil peoples special menu setups on closing the workbook.
If I understand correctly, on closing, Excel writes the current menu settings to the .xlb file. Does anyone know of a way to prevent it doing this so that peoples setups are left unchanged?
Presumably there is code that will do it but I've searched a long time and found nothing.
I close an existing excel file I need to automatically save it to another folder as the same name. I don't want any prompts or save as boxes to appear when this happens.
I need to do this as I use the file all the time, but need to save it on to a network where others can view it.
I am trying to fix the width of a column everytime I open it but I can't. After I have fixed the column width and saved it before I close the file, when i reopen it, the column width will expand. The data source of that column is a real time query. I tried to lock the cell but when i locked it, I can't refresh the data from the query as it is locked. So, is there any way for me to achieve that?
View 4 Replies View RelatedI want to close a tab delimited Txt file that is open in Excel, thru' a macro, without the save changes dialog box appearing.
View 2 Replies View RelatedCan I stop the displaying of the name of the named area when I am zoomed out of a worksheet? I can not see an option on the Tools > Options > View menu.
A workaround, found by accident, is to make the named area have more than one area.
I was wondering if there is any code using an on-click method. When clicking a button i need excel to exit the file/sheet without saving (no prompts) and then re-open the exact same file/sheet once it has closed.
In a way this is like a refresh button.
I recorded a Macro to open a workbook, copy and paste data from one excel workbook to another, and close the workbook which was opened. Everything works fine except:
because of the amount of data that I am copying, I get a message box saying "There is a large amount of information on the Clipboard. Do you want to be able to paste this information into another prgoram later?" with a Yes/No button.
So now I have to click the "No" button before my macro closes the excel file. Is there a simple line of code that will by-pass this?
I am assuming it has to do with the following:
Windows("Book1.xls").Activate
ActiveWindow.Close , savechanges:=False
I want to delete some unwanted rows on closing my excel file. the blank rows are between set of datas. so it has to check all the blank rows, delete it until the last one. example
data
blank rows
data
blank rows
data
blank rows
data
I am using MS Excel 2010.
What I want to Hide two worksheets and leave one worksheet open when I close out the file.
ws TOC will remain open when closing out the file
ws Rqmts will hide when closing out the file
ws Planning will hide when closing out the file
Looking forward VBA coding for:
If input is entered into column C (range C2:C100), then row cells for columns D, E ,F, H or I must NOT be blank upon save.
Could be that one or more of these row cells are left blank by mistake.
An error msg pops up upon attempting to save, stops the save and colors each cell yellow that needs info entered into.
Using Excel 2010.
The code down below counts all cells from column A2 to I11. The problem; the code should stop counting if there is a blanc cell in a column and go to the next column to countinue. My query; how should the code be modified so it will stop counting if there is a blanc cell.
View 4 Replies View RelatedI have a master sheet and 20 sub sheets. I input data in the master and it filters through to the 20 subs and calculations are done. the problem is that on the master there are blank cells, that need to remain blank cells until i put the data in. This data is copied to the subsheets using a =sheet1a1 type of formula. what happens is when a blank cell is copied it appears in the new location as a 0. I need this to remain blank as the 0 causes calculations that I don't need and mess up a lot of the data I need. Is there a way that when it copies the new location remains blank until the data is inputed in the master sheet?
View 7 Replies View RelatedI tried to reduce the size of the printing area by deleting the blank rows. To achieve this I entered VBA code that appeared in the newsletter issue 3 after slightly modifying the code suiting to my need. But, while exeucting the code with all the parameters, xlCellTypeBlanks, xlCellTypeFormulas,xlErrors, the error as shown as a screen shot herein is populated. But, with the parameter,""xlCellTypeBlanks"" all the Blank Rows only got deleted and similarly only those rows containing Formulas are deleted, while the parameter is""xlCellTypeFormulas".
I want all the cells that contain xlFormulas, xlErrors and xlCellTypeBlanks as well be removed while executing the code given herein. But, if the range contains "xlFormulas" and "xlCell TypeBlanks", the rows containing blank cells are not removed and vice versa.
the following macro works great if there is data below cell O4. but is there isn't any (e.g., at the beginning), then the cursor runs down to 65,536. ?if no data exists, how can i stop at cell O5...
Range("o4").Select
'Range(Selection, Selection.End(xlDown)).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
i am creaing a chart in excell but i have a problem. i would like to have a chart like this one http://shrani.si/?screenshotow31.jpg. but when i create my chart it looks like this http://shrani.si/?screenshotow2t.jpg. first chart is created with some macro so i dont know how is it working but i think the problem is in blank cells because if cell is blank the chart line will go to 0 but i dont whant that :s
View 2 Replies View RelatedI have a VBA code that when activated it copies 6 cells from sheet1 to the next available row in sheet2 - A2:F:2.
alerting and stopping the routine if any one of the cells in sheet1 are empty so the user has to input into all cells before the routine will execute.
does it need a check cells for content if error highlight empty cell.
I need a macro to go through one column until it hits a blank cell and stop... the criterea of the loop:
if cell = "Multi" then **Move to X tab** else **move to X2 tab**
I have an Excel workbook that I do not want deleted. Is there any VBA code I can do to the document to stop this from happening? which Ic ould turn on/off?
View 4 Replies View RelatedI have a userform which opens when the workbook opens. Ideally Id like to have the userform open without the workbook coming up and have the workbook close when you close the userform. If thats not doable then is there a way to just close the workbook when the userform is closed?
View 3 Replies View RelatedI have a file that is 40,000K...is there anyway to decrease this file size without having to delete data or break up the spreadsheet?
I couldn't think of anything but wanted to double check.
I've got the following vba code: (not sure if im in the right forum? )
ActiveWorkbook.FollowHyperlink Address:="http://blah/blah/blah/Pipeline Submissions/" & CountryOnly & "/" & useronly & "/Published Reports" & "/Pipeline_" & DateOnly & ".xls"
And use this to open country workbooks in turn, and get the info out of each and paste into one big, 'consolidated' report. This is all done in a loop.
My question is, how can I stop the dialog box that comes up asking a user to OK the opening of the file? I used to have workbooks.open("\....") way of doing it and turned off display alerts, but I had to change due to moving server, and now I've got it popping up again.
Is there any way to stop it (or an alternative way of opening)- as if you have 7 or so message boxes like this is quite annoying.
I have a code that creates a zipped file that saves to the desktop. The macro works fine except it repeats itself and doesn't stop. How can I change the following code so that it only creates one zipped file?
View 2 Replies View RelatedI'm having a little problem working with some CSV files that are sent to us by an outside party. There is a field for an invoice number. This number should be a string since it sometimes has alpha characters and sometimes has dashes. But the field is not delimited to indicate this, so when opening these files in Excel, Excel will sometimes convert the numbers to dates. Once they are converted to dates, there is no going back.
The way we have gotten around this is to change the csv extension to txt, then open as a txt file and convert that particular column to a text column. This causes a lot of additional work as the file ultimately needs to be converted back to a CSV.
Ideally, the people creating the CSV files should create them so the invoices column is properly delimited. But that doesn't seem to be possible right now.
Is there a way to create a macro that would make the modification while opening the CSV file, before Excel has a chance to modify those fields?
I already have a macro that on opening the workbook checks to see if the workbook has been renamed outside excel in windows and if so closes the workbook. I need a macro to intercept the save as command and prevent the user from saving the workbook as another name. I would however still like the user to be able to save. I would also like them to be able to save the workbook in another directory but only with the same workbook name.
View 4 Replies View RelatedTo have other users open a workbook on the network without having to click button to open it as read only.
I have been trying to get rid of the "File In Use" message for the other users since they only need a read only copy. I am the only one who needs to know if it is in use because I will make changes to the workbook tools and have to save them.
I have set the Save As preferences so that it requires a password for modification and checked the read only checkbox. But that dialog box is popping up for the users. I am trying to eliminate any file in use dialog box for users other than myself.
Here is my workbook open procedure...
Private Sub Workbook_open()
Dim wBook As Workbook
Dim UsrName As String
UsrName = Environ("username")
On Error Resume Next
Set wBook = Workbooks("Excel_Tools.xls")
