I have the code below, and it works perfectly on my Mac. But... on my PC it does not.
The cell comment does not resize horizontally when I enter text. So if I enter a long comment I get a comment box that extends far to the right to fit the contents in. Vertically it is fine, nothing cut off and no extra space.
Any ideas why this would be? Any ideas how I can force the text to wrap in the cell comment box?
Code is below:
Sub AddCom()
Const USERNAME As String = "Greer:"
Dim strCommentName As String
Dim cmnt As String
Dim NoMore As Boolean
Dim Pos As Long
cmnt = InputBox("Please enter a comment")
strCommentName = cmnt & vbLf & Now
On Error GoTo 0
my macro processes a lot of data and puts a comment in certain cells (several thousand of them). I would like to autosize the comments so that the text can all be read by default.
Among 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?
I have a spreadsheet in which double clicking on any of the cells in the range A4:C17 changes the contents of cells F4:I33. The following code tells me which is the active cell and then pulls the values for F4:I33 from a lookup table based in this.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Range("B100") = ActiveCell.Address() Cancel = True End Sub
code to stick in this (probably after the third line) that autosizes rows 4 to 33. There are no merged cells involved.
I'm trying to automatically resize the width of a combo box based on the width of the longest item in the combo box. The data in the rowsource of the combo box is dynamic.
how to copy the contents of multiple comment boxes and paste in a single comment box.
The big picture is that I have a number of cells with numerical values in and text in comment boxes. I want to be able to click a button to copy the contents of the comment boxes and paste them, along with the numerical value from the cell, into a single comment box, ordered by highest to lowest value within the comment box, then delete the original cells and comments.
I am quite new to VBA but have been coping quite well so far with information of the web and analysing recorded macros.
I'm wondering if it is at all possible to have a cell comment automatically update depending on what data is input in the cell (via user input, VLOOKUP, etc.)?
For example, if cell A1 contains the text "CHARLES" with a comment saying "Employee of the Month", and is then subsequently updated with the new text "JOHN" (again, via direct input, a VLOOKUP, data validation, etc.) is there a way to have the comment automatically update to say something else, such as "Team Lead" for example?
I've considered using VBA to accomplish my goal, but am unsure how to compose an effective code to do so. I've also considered perhaps creating a named table filled with all the different comment possibilities I would like to have used in this cell and then inputting a formula in either cell A1, or the comment contained therein, that would then call the corresponding text from that table based on the data in cell A1. Honestly, I'm not sure that what I'm trying to do is even possible;
I have some code that finds the appropriate string for a comment from another sheet. I then want to add the string to the appropriate range selection but am encountering an Object Variable or With Block Variable Not set on this section of
Range("C" & i).Select ActiveCell.Comment.Delete <== Here Or the Next line ActiveCell.AddComment (Commenta) ActiveCell.Comment.Shape.TextFrame.AutoSize = True
How, via VBA, would I add a comment from a userform (text box name: txtReason) into a cell that may already have a comment in it? I would like to keep the comment that is in the cell and then have the program add a "/" and the next comment from txtReason..
I am working on a database and trying to remove duplicates. When there are duplicates, I want to take the contents of one cell and copy them as a comment on the cell above (or below).
I tried to work on a small macro to do so, but the contents of the cell cannot be copied (it comes out as a blank).
The long way is to 'double click' in the cell, Ctrl+A, cut, click the cell above, Ctrl+F2, paste. This way is very long as I have thousands of duplicates.
What is the best way to reference a cell in another workbook and return the cell contents and the comment on that cell. I would like the comment to come across as a comment in the new workbook becuase the comment is actually a picture.
Hope this makes sense. I did find a macro through googling but I couldn't get it to work? I don't really want to copy and paste because eventually I have hundreds of sheets & thousands of cells to refer to.?
I have a spreadsheet with some cells which return values using INDEX and MATCH to bring back the entire details of a person based on there membership number. However I require the comments to be attached with the returned values. The comments have there image in, rather than just text.
I have found some answers with vba, which do the process, however you had to manually enter the cell, from which the comment was to be copied from, into a pop up box. This involved finding the box myself to then select the box to take the comment from. In doing this I had found and read the comment, which is the is the process I'm trying to bypass.
i need to have a way to link a small picture/thumbnail to a cell. so that there is a way to preveiw it. Ideally like what happens with the comments where you hover over the cell and the comment would pop up. or failing that may be a cell linking to the image.
make the contents of the cell comment box dependent on the cell contents? eg if the cell contents = 2 and a seperate table says 2 is "poor" can it automatically populate the comment with "poor" ?
Is there a way to insert a pdf into a cell comment? I found how to insert an object but when I do that it covers the entire spreadsheet. I would like to be able to add pdf's to cell comments.
I've some code to add a comment with the value of the corresponding cell 9 columns across:
For Each rCell In rRng.Offset(0, 0).Resize(rRng.Rows.Count, rRng.Columns.Count) On Error Resume Next rCell.AddComment On Error GoTo 0 rCell.Comment.Text "Previous value was " & Cells(rCell.Offset(0, 9).Value) '(rRng.Row, rRng.Column).Value
I have a set of data with text in one cell and images in a cell adjacent the text to illustrate the text. I am trying to figure out how to add a comment to the cell containing the text and take the image in the adjacent cell and put it in the comment.
Is there a way to do this, or do I have to write a macro that saves the images as their own files and then insert the image files into the comment?
In cell B2 Sheet2, I would like to have a cell comment that is populated by the data in Master! that is alongside the data looked up in this formula, this principle would apply to every cell in my range... Sheet2 B2:AC100.
So on Sheet2 B3 is populated by B11 from Master!, I would like the comment to be the value of A11 on Master!
I want to select any cell on a spreadsheet, then run a macro that inserts a comment to the selected cell with the inserted comment text being the selected cell entry (value/text/ date). Primarily to insert a cell date value to comment before overwriting it with a tick to represent completion. The comment then contains the date for archive info purpose.
I have a worksheet with about a dozen cell comments in one column. I am able to add and edit cell comments to other cells throughout the worksheete, but I can not edit any of the existing comments. I've tried all of the usual ways to edit the comment (Shift/F2, Insert-Edit Comment, etc.), but nothing opens the comment in edit mode.
if choose a cell then the code works fine, but when i choose a selection of cells (ex. A1 A2A3 A4) then the code fail to excute in this line: Invalid proceduer call or argument error
.AddComment "hmk :" & Chr(10) & " value was " & ActiveCell.Value
and then fail to excute in this line: typr mismatch error
Selection.Value = (Selection.Value) * r
now here, does have to be loop to solve
here is the full code
Sub test() Dim r As Integer ActiveCell.ClearComments
i need to have a way to link a small picture/thumbnail to a cell. so that there is a way to preveiw it. Idealy like what happens with the comments where you hover over the cell and the comment would pop up. or failing that mabe a cell linking to the image.
I'm trying to do something with pictures that have been inserted into cell comments. I'd like to be able to copy a picture that had been inserted into a cell comment, and save as .jpg with file name and file location designated by other cells in the spreadsheet. For example A1 contains "monkey" and has a picture of a monkey inserted into a comment on the same cell. B1 contains "zoo". I'd like to copy the picture from A1's comment and save as monkey.jpg to location c:zoo. Is this kind of thing possible in VBA?
-I have two sets of data in two different sheets. The data is similar, but it is taken in two ferent times, so there are some cells, which content has changed.
-I want to make a macro that identifies the changes in the latter (newer) sheet compared two the older one and to:
a) Highlight the cells (this works)
b) Add a comment to each cell that has changed so that the content of the comment is the content of the "older" cell. (so that one can easily see from the newer sheet that highlighted cells have new values and the old values are in the comment) (this is not working)
Here's my code so far. Like I said I can't make the comment work. I tried it with the same text in all comments ("test comment") and it worked but I can't make it to go and get the data from my older sheet.
OLDER = my sheet with old data NEWER = my sheet with updated data NEWTABLE = my table on the NEWER sheet where I want to check the changes
being able to setup pics within the cell without setting up the pics in comments. I need the pics to be visible as day so when I save them in pdf form they can be seen by my clients without them having to click and go reference other files. Also if this is possible, is their a way I can load the pics using no more than 3 steps to get the sheet to start loading the pics, I am needing to minimize some steps just for saving time. I plan on using this setup for inspections and can't spend a lot of time changing the pic size and opening different files.
