My co-workers and I have excel files on a drive. When one of us is in the file, and it opens read only we just see the name of our company. How can we change it to be able to see each other's names? Its the "file in use" message that pops up. It states the name of the file and by: X when we open the file.
View 2 Replies
I want to create a pop-up message for two of the cells that contain a formula. Cell A10 counts dates entered in column A for the current calendar year. E10 totals the hours and minutes in column E. I was able to create the following code:
Private Sub Worksheet_Calculate()
If Range("A10").Value > 3 Then MsgBox "Employee has reached the tardy threshold. Contact HR Coordinator."
If Range("E10").Value > 2.667 Then MsgBox "Employee has reached the 64-hour threshold for sick leave. Contact HR Coordinator. If employee provides medical verification, enter hours over 64, using calculator on the right, in a new row under the Pre-Approved and Authorized Absences section."
End Sub
I would like it to pop up when the total is => a certain value. I would not like it to pop up if data in other cells outside that column is entered (right now it seems to pop up once the condition is met everywhere on the sheet). If the user deletes rows and it makes the total < the certain value, I would not like it to pop up, but if the user adds more data again to make the total => the value, I would like it to pop up again. This is a dynamic, ever-changing sheet, but I am not sure how to make it work this way.
In VBA I use this command, which runs *.vbs file that is used as a message box:
View 3 Replies View RelatedIs there a way to have a select function where user select a file but the file is not open. I just want to get the directory of the selected filename without opening the filename? is that possible?
View 2 Replies View RelatedIf it is possible to do, how do I change this message format to html so that I can paste an image into the message?
View 5 Replies View RelatedI have the following code that should pop up a message when column E is left blank when "other" is typed into column D. But I cannot get it to work.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, LastRow As Range
Dim x As Integer
If Target.Count > 1 Then Exit Sub
Set rng = Range("F:F")
If Intersect(Target, rng) Is Nothing Then Exit Sub
If Target = "" Then
For x = 1 To 5000
If Cells(x, 4).Value = "Other" And Cells(x, 5).Value = "" Then
Answer = MsgBox("If other, please state", vbOKCancel, "CONFIRMATION")
End If
Next x
End If
End Sub
I'm trying to attach an Excel file but I keep getting a message stating it's an invalid file. I don't remember having trouble before attaching here, but I am now. What must I do?
View 9 Replies View RelatedI want to change the format, design & background color of the POPUP Message.
How to Change format of warning / message / popup window which appear after giving the data validation or Macro criteria.
I have bit of code that:
(1) opens another spreadsheet
(2) updates that spreadsheet
(3) saves that spreadsheet
(4) closes that spreadsheet
If the spreadsheet that requires updating is open by another user, I display a message indicating the file is open and no updates occured. There are about 20 persons within the organization that may have this file open? Is there away to display the username of the person who has the file open?.
I am trying to write VB code that upon opening an excel spreadsheet a message box appears that the user must read, than select yes or no. If select yes than the file will open, if no the file closes or does not open. Here is what i have tried - it doesn't work.
Sub Auto_Open()
YesNo = ("Are you sure you want to open?",vbYesNo + vbExclamation,"Will")
If_vbYes Exit_Sub
If_vbNo_Close
End Sub
I have attached the file I am working on. I am attempting to create a link to an external file based on the value of cells in column A. Then I would like to simply copy the formula down, lets say in Column B, the rows and as I do the external file reference will change depending on the value within the cell in Column A. I hope that I am making sense.
I am using Windows Vista with Excel 2007. The files will all be within the same file folder, however, there are hundereds of files so I won't be able to open them all for the indirect to work.
I am trying to attach a speadsheet to an inquiry about another problem. I used to be able to do this. No known changes to my system in between.
Currently get error:
"Your submission could not be processed because a security token was missing."
No one here knows what to do. Is my problem local or at the website? What should I try?
want a way to find out any special character in text file (.txt).
The .txt file I use is very large about 100 mb to 1GB. I need to find a way to write vba code that asks for input text file and the validates it and gives the message that following special characters are present in the file. Also, it gives their column number and row no's, where they are located.
The characters which needs not treated as special characters are numbers (0-9), alpha (A-Z) and special characters (@,-,%,$,+,=).
I am having with Excel 2007.
When I hover the mouse over a cell with comments, the status bar displays a message; for example "Cell A12 commented by A satisfied Microsoft Office user".
I only get this message for one column. The cells in all other columns give my first and second name as the author of the cell comment.
Why it is only effecting one column. I have been unable to change the annoying "commented by A satisfied Microsoft Office user" to my own name.
Is there a macro that can do this? I tried two macros I found online, both from a few years back, but neither of them worked.
I'm using VBA to upload the open workbook to app.box URL which is working great! Since I'm pretty new to VBA, I can't figure out how to get Excel to display the sucess/failed message from the server to the user. I used the VBA POST upload module from this awesome tutorial, but I can't figure out how to return the message to the user. I did figure out that on the website there is an "id="after_upload_message", not sure if that works. My code is below.
[Code] ......
I can't open a file anymore. On opening an exclamation mark message appears telling me the file contains "Too many different cell formats". After clicking "Ok" Excel doesn't continue the opening proces. However I need the info in the file. how to retreive the info in the file?
View 2 Replies View RelatedI have about 20 files that all have separate passwords. When I enter the password for six of the files, I receive the "Unable to Read File" error message.
View 5 Replies View RelatedI use the following macro to save my worksheet. However, if I click cancel when the save box is open, then I am presented with an error. How do I get it to skip the error and show a message box instead that says "File not Saved!".
View 2 Replies View RelatedI have a workbook save as "file1.xls" All the macros and stuff work great. I want to use this a template. The idea is to open this book at the beginning of each year and save it with the year in the name. This way I have a file for my business stuff for each year.
I have been saving along the way so I have it named "file1.xls, file2.xls, file3.xls.......up to file 7 right now."
When I save the name, the macro stop working. It seems like they are attached to the original name of the file. I will eventually save this file with a new name for my company and transfer it on to a different computer.
How do I fix this so that they will work with whatever the book is saved as?
Is there a way to have the macros save with my current workbook and transfer to my other computer when I get this project done?
is there a function to change the file after it prints?
here is my issue, im printing out P.O.'s at work (purchase orders) and i have to put the P.O. number in manually. so i put in say 1601 then i arrow down till i hit the second p.o. number box (2 p.o.'s per page) and then enter 1602 then hit control + P to print then click back at the top and repeat but changing the number to 2 more than the number previously in the box.
is there some what to do this automatically so i dont have to do it my self?
I am working on a spreadsheet that will be referencing approximately 20-30 separate workbooks which all have identical sheet / column structure and have a consistent file naming convention. ("###-YYYY") Since, this is referencing separate files and not sheets with this workbook, I cannot use INDIRECT. However, I should be able to use index / match referencing provide instructions for users to copy a set of cells down and the globally change the file name. The problem is that the file directory pops up with each instance and the user has to manually select or confirm the file.
There would be approximately 15 cells with a formula similar to this example and would want to change the two instances of "403" to a new 3-digit code, say "444". Then as each year cycles over, we'd want to change all instances of 2014 to 2015.
=INDEX('C:Users
lagraffDownloads[403-2014.xlsx]Forecast Budget'!$D$15:$D$48,MATCH($P$2,'C:Users
lagraffDownloads[403-2014.xlsx]Forecast Budget'!$B$15:$B$48,0))
Any settings in Excel, or known tricks, so the user won't have to continuously click on the file and the find/replaces executes at each instance?
Basically, at month end, my company will create a new folder with the name as YYYY_MM (e.g. 2012_11). In this folder, a new file will be created as: earnings_YYYY_MM (e.g. earnings_2012_11).
What I want is to automatically update the link to the most recent file: earnings_YYYY_MM, whenever it is available. For example, next month there will be a new file earnings_2012_12 created in the new folder 2012_12, then the new file will be linked with.
I want a .wav file to be played on change in A column.
View 12 Replies View RelatedI have an Excel workbook which operates as a template. When it is opened, it runs an OnOpen routine. When it is saved under a different name, is it possible to ignore the OnOpen routine if that file is re-opened? I suspect it could be done by testing the name of the file, but I can't figure out the code.
View 2 Replies View RelatedI am trying to turn off DisplayCommentIndicator when anyone opens this one file. I started with this not sure why its not working.
Private Sub Workbook_WindowActivate()
Application.DisplayCommentIndicator = xlNoIndicator
End Sub
also after anyone closes the file turn the comment indicator back on.
I have a CSV file contain many fields and all fields have value (positive & negative values). I have 3 questions here:
1) This file is created on Friday. So the date in Field1 is Friday's date. I want to change the date to Saturday date. How can i change it using macro?
2) I want to set the value for fields 24 until 26 to 0. I want the script to force the field value to be 0. How can i do that by using macro?..and fyi, my CSV file have header in the first row. Below i illustrate my original csv file and the expected output.
3) How can i automate the macro to run every Friday afternoon?
Original csv
Field1, Field2,....,Field24, Field25, Field26, Field27
"20120803","ABC",...,9.032,24.52,-6.325,21.12
"20120803","ABC",...,5.242,-1.53,7.005,21.12
Expected output csv
Field1, Field2,....,Field24, Field25, Field26, Field27
"20120804","ABC",...,0,0,0,21.12
"20120804","ABC",...,0,0,0,21.12
I have a 2 columns.
A: Current location Ex(C:UsersDesktoplabelsA02FAA.jpg)
B: Future location Ex(C:UsersDesktopoxes98300SA02FAA.jpg)
I want to move jpgs from location A to B
is there a way to execute this with a macro?
I understand that all the If's and Then's are bad form so if you can show me a better way to do that, then great, but I am having a problem getting it to work and I don't think it has anything to do with the If Then. I get Run-Time Error 52, and it highlights the following line:
wbExists = Len(Dir(FullFileName)) > 0
Function wbExists(FullFileName As String) As Boolean
'returns TRUE if the file exists
wbExists = Len(Dir(FullFileName)) > 0
End Function
Sub RoutingSheet()
Path = "S:SharedFundingRouting Sheets"
File = Sheet1. Range("E4") & ".xls"
Sheet2.Range("H1") = "1" ............................
I have a file here that already has macros in it. The file is basically a excel document generator.
When you click create sku, the document will generate multiple documents based on the user inputs.
Two things in this file
1) In the generated documents the original "generator" file creates, I need generated files to have column B and D formatted to TEXT, currently all the generated files are formatted to general. (This code is in module 1, line 84 col 34.)
2) The other problem is I need to append the value in Cell N1 in the "sku data entry" sheet to be appended to the generated file names. (this part of the code is is in module 1, line 150 col 28.)
Set FSO = New FileSystemObject
Set FSOFile = FSO.OpenTextFile(textfullname, 2, True)
FSOFile.Write ("xx")
FSOFile.Write ("02022012")
FSOFile.Writeline ("Next line")
I am getting this in the text file:- xx02022012Next line
I want this: xx02022012 Next line
How to change line when writing to a text file?? the writeline is not changing line.
