if i run my macro that saves a sheet as a certain name and then prints it, it works, but if i run my macro and the file already exists it asks me to overwrite it. If i select yes it prints it and carrys on with the rest of the macro, (good). If i select no the macro fails. How can i get it so if i hit no, it runs the rest of the macro after the print command?
View 2 RepliesI am trying to create a macro which copies the data of one column every time I click on it. However, every time I click on it I overwrite the data I already copied. What do I have to do, that instead of overwriting my data it copies it to the next free column.
See example attached. Macro example.xlsx
I am trying to set up a macro in excel that will include a save as. This should overwrite an old file. The problem is that I can't get the macro to overwrite. Instead the popup "Do you want to overwrite?" appears and I have to click "OK" manually. Can this be done automaticaly? What is the VB code for it?
View 9 Replies View RelatedIs it possible to overwrite an existing .csv file with
The command :
ActiveWorkbook.SaveAs FileName:=fName, FileFormat:=xlCSV
Or does it need to be Killed first ?
Plus do I need any of the options such as Create Backup, AccessMode As etc.
I can't get the Displayalerts = False to work as it's supposed to when analyzing data running the correlation add-in. (ATPVBAEN.XLAM!Mcorrel)
For each loop the alert is displayed which I don't want it to.
The code below is just an example. I have several rows which I will loop through and therefore the Displayalerts=False must work.
Sub test4()
With Application
. ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
End With
I have a macro that sends a sheet via email when the engineer has completed it and clicks a button. I added a filter to some of the results to remove blank lines and now the macro will not work. The problem is that if I remove the filter so that the macro does work, I end up with blank lines again.
View 4 Replies View RelatedHow can I let the Sub carry on to next instruction if Macro1 fails?
Private Sub Workbook_Open()
Call Macro1
' If Macro1 Fails go to next macro
Call Macro2
'If Macro2 Fails go to next macro
Call Macro3
'If Macro2 Fails go to next macro
Call Macro4
End Sub
I have a workbook which I need to give shared access.
The workbook has macros which make sheets visible and VeryHidden and also give certain sheets protection. Also a filter runs on one sheet.
When I give the workbook shared access, the macros error?
how I can give me workbook shared access but still allow the macros to hide/unhide sheets, filter and protect worksheets?
I have a workbook with macros that run on my laptop, but when I email the workbook to another user and the macro is executed I get a subscript out of range message?
Both Excel versions are the same.
Environments are the same.?
I have used the following piece of code to stop error checking in my excel spreadsheet:
Option Explicit
Private Sub Workbook_Open()
' Application.ErrorCheckingOptions.BackgroundChecking = False
End Sub
The problem is - works fine on my computer, but when distributed on the server the folloeing error is returned:
Run-time error '438':
Object doesn 't support this property or method
I am currently using a macro to copy a sheet from a closed workbook in to my current workbook. However this copying is based on the sheet name. At present when I run the following code
View 11 Replies View RelatedI have a protected worksheet containing an SQL query. I have two cells on the worksheet unlocked so that users can enter fresh parameters to feed the query.
Because I have to use MS Query to interrogate our SQL server (current IT decree), the query won't support parameters directly when the query cannot be represented graphically - so I have to manually edit the sql command text and then refresh the query - or at least that was why I wrote the code below
The problem: My macro won't unprotect the sheet before it calls the SQL.it therefore won't update the sheet to detail the DSN, command text and number of parameters (latter should be 0) - info just used to verify queryit won't run the query / return the data as the sheet is still protected Comment: I have had to remove sheet protection in order to allow the sql to execute and return data. If protection is removed, the query does execute and return data ( changes in the "parameter" cell contents do cause the query to be correctly modified)
I could comment out the debug info but the query still doesn't return data if the sheet is protected.
Activesheet And worksheets(ndx) where ndx has been defined As ActiveSheet.Name
I apologise If my post Is difficult To follow - especially the code.
Sub AgedStockParameters()
nmb = ActiveWorkbook.Name
ndx = ActiveSheet.Name
Workbooks(nmb).Activate
Worksheets(ndx).Activate
ActiveSheet.Range("A1").Select
WkshtQryCon = Workbooks(nmb).Worksheets(ndx).QueryTables(1).Connection
ActiveCell.Value = WkshtQryCon
Range("A2").Select
WkshtQryFld = Workbooks(nmb).Worksheets(ndx).QueryTables(1).CommandText
ActiveCell.Value = WkshtQryFld.......................
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
End Sub
I presently have a macro that, when run, takes to conents of C4 and C6 and saves a new version of the file being worked on into a folder on my desktop. I love the macro with the exception of one part: I don't want to be prompted to overwrite the file if it already exists. How can I change this macro so that, when pressed, it overwrites the file without prompting the user and waiting for their answer?
Here is the current
Sub SaveIt() ...
I've been using a macro successfully for the last couple of years, but this morning when I went to use it, it decided to fail. I have a workbook which contains various spreadsheets. The macro that has failed performs the following tasks:
1. It copies a list of email addresss from an external workbook to a sheet in the current workbook (still works)
2. It copies the referral sheet I want to send to a new file, and saves it with an appropriate filename to an appropriate folder (still works)
3. The macro then creates an email with a standard subject line, attaches the new worksheet and emails it to each of the addresses as above (broken)
The error message is from Microsoft Visual Basic. "Run-time error '1004': Mail system failure. Check your mail installation."
I'm guessing there is a setting somewhere in Excel that has changed as part of an update.
I've been through a number of the options in the developer menu to remove any obvious restrictions (& reopened excel afterwards), but so far it hasn't resolved the problem.
For what it's worth, here is the macro code.
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Run "PullInSheet1"
Dim oldbook As String
[Code] .......
In case you're wondering about the pullinsheet code, I'll add it below - but I probably grabbed it from this forum a couple of years ago (like some of the above) & just made some changes.
Code:
Sub PullInSheet1()
Dim AreaAddress As String
'''''' Sheet11.UsedRange.Clear
Dim ClRange As String
ClRange = "= 'L:ADMINEMPLOY SERVICES" _
[Code] ........
There are a couple of things I've wanted to do to improve the macro, but I couldn't justify the need to spend time working it out (since writing spreadsheets isn't really my job). Since it's broken at the moment, I can...
1. I'd like to create a subject line that reflects the name of the person being referred. For some reason though, anything other than text in the cell reference caused an error for me. eg, I tried using concatenate to create my subject line, but it didn't work.
2. I'd like the copied sheet to contain all of the formatting of the original sheet. Presumably there is a paste option that will do this and I just picked the wrong one.
The mailsystem we use is Groupwise 8. I couldn't find any settings in that program that have been changed, or that I could change.
I should change the extension from xls to xlsx in the code since I'm using Excel 2010 (but changing it doesn't fix the problem).
I was trying to use Sheet1 (data input sheet) to collect 33 values and write them to Sheet2 as a row. I wanted the user to be able to make changes/corrections. So if the set of data with same date and shift number is entered for a second time, my macro should be able to over-write the existing row in Sheet2. Have been digging for days yet with no avail.
I'm using Win XP pro and Excel 2003.
Just wondering if it is possible to have a formula in a cell but over write it with other digits while preserving the underlying formula?
I can lock the sheet/workbook but cant edit the cells once this is done?
I'm hoping to be able to delete what ever I have overwritten and for the formula to then take effect again.
in cell A1 i have the balance. i would like to record the balance every time it reaches a new high in cell B1. how would this be possible please using excel 2007
View 9 Replies View RelatedColumn A (Plan Date) and Column B (Date Recieved) contain date value. If B2 is blank, A2 will maintain the date entered in it. However if B2 has date (either earlier or later than A2) it will supersede the date with the date value in B2.
View 9 Replies View RelatedI've struggled to find the code to unzip files using VBA but I finally found it and it works (using Shell).
The problem is that I want to unzip all zip files in a folder but my zip files contain 3 files:
1 csv file that I want to keep and 1 xml and 1 txt file that I want to delete.
I can't just unzip everything and deal with the txt and xml later because the xml and txt files all have the same name. So if I don't do anything, I have a series of overwriting messages prompting me to click yes or no. So what I want is either to delete xml and txt one by one after they are created or get rid of the overwriting prompt. I've tried to put a kill or delete file just after the unzip command but it doesn't work - it's telling me that the txt file doesn't exist (should I add some sort of refreshing command ?) and I couldn't find anything on google about overwriting text or xml files.
I've just written a bit of looping vba script that generates an overwrite alert (i.e. "Output range will overwrite existing data. Press OK to overwrite..."). This is fine and was purposely built into the script, but I want to be able to automatically ignore these alerts and loop through the script unhindered.
View 4 Replies View RelatedI have the following code which copies a sheet to another workbook and renames it with the current date. However I need it to check if there is a sheet already existing in the other workbook with todays date first. If there is then it should delete the old sheet and copy the new sheet or just overwrite it.
View 4 Replies View RelatedI would like to code a Userform Command button to save data by overwriting a specific row of data. The specific row is to be based on data matching in column A and column B. I'll give an example
Worksheet = "Failures"
Row 1 - Column A - Column B - Value
Row 2 - 12/3/2012 - FOX ------ 23
Row 3 - 12/3/2012 - CEF ------ 24
Row 4 - 12/3/2012 - COT ------ 23
Row 5 - 13/3/2012 - FOX ------ 56
Row 6 - 13/3/2012 - COT ------ 23
Row 7 - 14/3/2012 - FOX ------ 26
I would like the code that would search for the specific row (e.g Row 5 discovered by searching for 13/3/2012 and FOX) in the "Failures" Worksheet and then overwrite it with the following data values from a Userform called "QC"
(TextBox1) (TextBox2) (TextBox3)
13/3/2012 --- FOX -------- 24
i have searched this and can't find exactly what i'm looking for. I am hoping some one can alter a piece of script i am using. See script below. Currently it adds a comment in a text box to a new row and i would like it to add it to the end ( cell 15) of the last row used, not a new row. I am a newbie to VBA and am self teaching so the obvious is not really obvious.
Private Sub cmdErrorButton_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Log Book Data")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(x1up).Offset(1, 0).Row
'copy the data to the database
ws.Cells(iRow, 15).Value = Me.txtError.Value
ws.Cells(iRow, 14).Value = Now()
End Sub
I have a spreadsheet where there is an option to either select a pre-priced item from a drop down list or type in manual entries. If the data is entered manually, I have included a formula to obtain cost data. For example, column A has the number of labor hours and column B multiplies Column A by $500. However, if a person chooses to select a pre-priced item from the drop down menu, can the pre-entered data from the VLookup list overwrite the formula? I do want it to overwrite if it is possible for it to do so.
View 2 Replies View RelatedI have a spreadsheet that's generated from a download. I need to modify one column of cells based on multiple criteria. Started to try with a nested If statement, but soon passed the limits allowed. Not sure if some kind of VLookup or VBA formula. To summarize what I'm looking for: If column A has a value of any of the following (10D, 11Z, 10Z, 2CS), then I need to change the Rate in column D based on the Years left to maturity in column B. The Rate percentage to be used is based upon the table shown in the attached spreadsheet. In addition, there is an exception if Column A has a value 2CB and an inventory # of 9300276 or 9300277 in column C, then I need to change the rate in column D based on the table as well. Otherwise the rates stay as originally imported.
View 3 Replies View RelatedWhen I use a macro to refresh all pivot tables, I get a whole bunch of messages popping up, asking me if I want to overwrite the existing cells. Is there a way that I can say no to all of these messages automatically?
View 6 Replies View RelatedI have an Excel sheet that I convert to PDF --here is Example of the name after PDF creates"Morning Report_08.16.14" , When it runs it just overwrites the file automatically if one was already on that date - I would like it to prompt to overwrite & if they choose 'yes' to overwrite the file and if not they can change the name If the new one is in addition to the one that already exists and I want it to save the new file with in the same folder.
Also when the current code is run if the PDF was left opened it stops the macro - Is it possible to see if that file is open and if so close it down so the code will work or is it possible to overwrite the file when open.
[Code].....
I want to be able to enter a value into a cell (within a specified range) and have it automatically multiply by a set value and overwrite the original entry with the result so making it all happen within one cell. The set value would be another cell on that sheet.
So the range for example is "H17:H74" and the value I want to multiply by is "D8"
Is this possible?
I've looked at another forum but it wasn't working when I wanted to define the set value as a cell.
I've attached a model with my problem highlighted in COLUMN S of the REPORT tab. The model is an example of what the output should be, but if you run "Full Report" (Command Click 1) you'll see that when the VBA code gets to the penetration operation, it fails to paste the value. The identical code works perfectly in the "Subs Report" (Command Click 2). This is the code in question as part of a for loop:
View 2 Replies View Related