Does anyone know code to bring up a comments box automatically when a certain word is entered into a cell? I have an If statement but I just don’t know how to open a comments box in the same cell.
View 4 RepliesNeed automate a process that I would like to implement into my spreadsheet,
It involves inserting comments,
I want to be able to select a particular cell anywhere in my spreadsheet, and then click on a command button and have a comment automatically inserted into the active cell, I tried to record the macro by hand but I do not know how to state that it is the active cell the comment should be added to
Public preValue As Variant 'Declares a variable to be used in both macros
'This is the first line for a macro that runs when a cell is changed.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'Limits the change to 1 cell only
If Intersect(Target, Range("$A$1:$M$42")) Is Nothing Then Exit Sub
Target.ClearComments 'Clears any existing comment
Target.AddComment.Text Text:="Previous Value was " & preValue & Chr(10) & "Revised " & Format( Date, "mm-dd-yyyy") & Chr(10) & "By " & Environ("UserName") 'Adds a new comment with the text. CHR(10) is a return.
End Sub
'This code sets the variable preValue when a cell is selected
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'Limits code to 1 cell
If Intersect(Target, Range("$A$1:$M$42")) Is Nothing Then Exit Sub
preValue = Target.Value 'Set the variable preValue to the selected cell's value
End Sub
How do I take the changes made from the first work book and insert them in a cell on the second work book. Where in the code above do I Put this command.
I searched for a code to add pictures to comments with VBA.
I only found this:
I have a worksheet that has user fillable cells from B11-AR53. I want the user to be able to attach comments to cells and then to be able to print them on secondary sheet. I know that excel already can perform this function, but it references the cell address and I don't like that method. I want to have the comments on the printout indexed and tied to an index number in the cell. Creating another worksheet with the comments only is perfectly fine. I am currently using this formula (below) to index the comments on the worksheet that they are attached to.
Ideally my report/second worksheet would list-
1 - Comment that is indexed as 1 would be here
2 - Comment that is indexed as 2 would be here
....and so forth
Sub CoverCommentIndicator()
Dim ws As Worksheet
Dim cmt As Comment
Dim lCmt As Long
Dim rngCmt As Range
Dim shpCmt As Shape
[Code] .......
I use excel 2002 but some of my office are on 97, i want to add a small workbook open event code which works for me but debugs for the others?? The code is basically, go to a tab, on that tab and that range sort..
View 2 Replies View Relatedhow to create a function in VBA that works exactly as SUMIF, except it will also add a comment in the cell that references the formula, where the comment would be a list of the individual cells being added? Basically the comment would read "2+4+5+6" or "2,4,5,6" or something along that.
View 1 Replies View RelatedAmong many attempts to insert and autosize a comment using VBA manually, which errored, i recorded the following bit. When running the macro, it does format the cell - text, not the comment - text and errors in the line highlighted in red.
Range("A14").Select
Range("A14").AddComment
Range("A14").Comment.Visible = False
Range("A14").Comment.Text Text:="Ladida"
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = True
End With
I just want to add
.AutoSize = True
or something to that effect to the bit below. Any suggestions?
Range("A14").Comment.Text "Ladida"
Every time I open my excel spreadsheets the "Getting Started" window opens automatically. How do I turn it off so it does not open automatically
View 3 Replies View RelatedI have a few 2007 workbooks that are set up to track and compare individual budgets over time. The majority of the cells are referencing workbooks that have yet to be created.
On opening these workbooks the users are confronted with an informational window informing them that "This workbook contains one or more links that cannot be updated", to which they are instructed to choose "Continue". Is there code I can add to these workbooks that would automatically choose "Continue" once a user enables the security warning for Automatic updates of links? I believe this would be the same as an On Open event.
The background is that I only use macros for a few limited files to save me some time spent on monotonous clicking. Well, yesterday I made three little macros that clear the info in three weekly files and save each with a new date (in preparation for me adding the new info). When I left yesterday, the macros worked as intended. I come in to work this morning, and each of those files now open automatically whenever I open any other file in Excel (just for the first one, nothing happens if I open a second).
View 3 Replies View RelatedI have a presentation that I open from a short-cut. After the "Welcome Page" is opened, I want to open a second workbook in a new instance of Excel after 4 seconds.
I think that I can open the new instance of excel, but I don't know how to activate the macro after 4 seconds.
I'm sure there is a function someplace for this that can be used in a macro.
Then, after the second Workbook is opened, I want the Welcome Page "Workbook" closed, leaving the second Worbook open.
i have a validation list of about 100 items. Is it possible that on tabbing into the cell the validation list can automatically open and as I start to type, it will take me towards the right list item?
View 1 Replies View RelatedIs there a way to automatically open or close all grouped rows on a specific worksheet or for specific rows?
View 5 Replies View RelatedIs there anyway I can schedule an excel workbook to open up at a certain time; I have some code attached to the Workbook Open function; so when the workbook is opened the code will run; but I need the workbook to automatically open at say 17:00 everyday so the code can run.
View 9 Replies View RelatedI have been trying for the past four months now to get my workbook to automatically open a new worksheet every 1st of the month.
but I have failed each and every month. I have asked others to assist but to no avail.
this is the code in my workbook as it looks now.
Dim strValue As String
Dim Sht As Worksheets, foundSheet As Boolean, TEMPLATE As String
Dim rng As Range
Dim irow As Long
Dim myDate As Date, newDate As Date, oldSheet As String, newSheet As String
Dim ws As Worksheet
Dim strName As String
Dim wsh As Worksheet
i keep getting an error on the activesheet=newsheet.
i need vba code to Automatically Click on "Yes" button. Actually i download excel file from website, it seems display security alert box before open the excel (ie:" Verify that the file is not corrupted and is from a trusted source before opening the file, Do you want to open the file now? "), i need a code to automatically click on "Yes" button in the Alert box.
View 4 Replies View RelatedI have a spreadsheet where we calculate lost time of machinery and how much money is lost. Every day someone enters the hours that the machines were down and then enters comment in that cell stating what happened or what the resolve was. So for example Machine A runs 24 hours a day, but 12-19-08 it had mechanical issues and was down for 2 hours, so the entrant will enter 22 in that cell, then have to right click back in that cell, go to insert comment and enter "need to change belts." Then if he finds out later that they were down another two hours he would have to change the hours, right click in the cell and edit comment. What we have been coming across is that after awhile he just enters the hours and not the comment. Besides firing a lazy operator I would like to make it more user friendly and ensure that the data entry person is entering the comment.
I would like after the hours are entered in the cell for the comment box to automatically open. I figured there has to be a formula to do it, but i am not at an advanced level. Can you help me?
I have an excel sheet with lot of URL texts. I have to check these URLs by opening them.Is there any way to automatically load these URLs in browser?
View 3 Replies View RelatedDoing Inventory on my excel sheet.
Every week I do inventory on my excel sheet, I have a link for every row and for the past months, I have been clicking through every link as I do my inventory. It's all fine and well until my inventory grew and now clicking through every link every week becomes frustrating.
I am looking for a code that when run will automatically open any hyperlink in column B if the value in column A is less than 0.
I am trying exactly the same things stated in here Open two workbooks at the same time as stated in the other thread's answer I would love to "just use the Workbook name IF both Workbooks are in the same folder." both files are in the same folder and this is the code that I am trying to use
Private Sub Workbook_Open()
Workbooks.Open ("toto1234.xls")
and it does not work any one explain me what I am doing wrong?
I have attached an example sheet : LATEST.xlsm
To sum up - need a drop down box - that when "flange" is selected - It opens a file automatically - no clicking etc. just when that option in the drop down box is chosen.
[Code] .....
But doesn't work, plus means I have to click on something.. etc
I am using this code to get me to a path then I click on the file I want and it opens it and makes it a .csv file. Then my code does stuff with it and closes it. My question is, do I even have to click on it? Can I get the macro to automatically open the file. Note the "NewestFolderInThePath" is a function that open me up to the "newest" created folder in the path. From there I double click file.
NewestFolderInThePath = ReturnNewestFolder("\datawhse
ootLAW81LAWSONprintRBLEVINS2anrvwfins1")
Path = "\datawhse
ootLAW81LAWSONprintRBLEVINS2anrvwfins1"
TheFile = Path & NewestFolderInThePath
CreateObject("WScript.Shell").CurrentDirectory = TheFile
TheFile = Application.GetOpenFilename("Excel Files (*.*), *.*", , "Open Balance Sheet File FRPMBSDTL")
If TheFile = "False" Then
continue = MsgBox("Do you want to Continue to IS Download?", _................
I want to make Excel show page breaks automatically when I open a new file. Please tell me how to do that. I tried changing the book.xlt and sheet.xlt files, but to no avail. I am using Excel 2003.
View 9 Replies View RelatedI use the code below to check and see if a sheet exists or not when a workbook is opened. If it does not, continue. If it does I need to run a different sub on it.
Twist, I need to check for a hidden sheet. How would I chg the code to do this?
Private Sub Workbook_Open()
'Also need to check the code in the userform. Has On.Time command.
'SplashForm.Show
Sub Sheet_Test_1()
Dim sh As Worksheet
On Error Resume Next
Set sh = ActiveWorkbook.Sheets(" total")
If Err.Number <> 0 Then
MsgBox "The sheet doesn't exist"
Err.Clear
On Error Goto 0
Else
MsgBox "The sheet exist"
End If
End Sub
I have a problem with one of my files. Each time I open it up, the listboxes keep getting smaller and smaller. I have no idea what is causing it.
View 9 Replies View RelatedI have 77 excel workbooks that are created each week, they are all in the same directory. I have to open each one and copy the data into a single workbook. The file names change slightly each week.
example: DIST_91124_GROWTH_PRODUCT XXX _07072006.xls The 07072006 is the week ending date and will change. Each of the 77 files has a different DIST_number.
Is there a way to automate this process, it takes me about 4 hours to do it manually.
How would you prevent the copy/paste of cells that have comments?
Also, how would you allow cells with comments to be copied and pasted without pasting the comments?
I also have an aside question about the forum advanced search. When searching for multiple search words, how would you type the search to include all words, for example, "prevent" & "paste" & "comments".
I need to error check to see if a worbook is open or not. if it is not open i need it to open it. i supplied the code i am trying but it is not working. I keep all my workbooks in XLSTART.
View 2 Replies View RelatedI could need a code (WS code I assume) that open the sheet in 70% zoom every time I open that sheet. For now I get in 75% every time I open it. I guess that WS code will bypass that default setting, or bug, or what ever resets it 75%.
View 9 Replies View Related