I form a string and put that string into a selected cell as a comment. Mostly it works fine but as the string gets over a certain length (255 characters?), the string gets "truncated" in that only the characters over that length get put into the comment.
View 7 RepliesI need a nudge in the right direction with how to amend the below code so that it :
1: cycles though all cells in a workbook, and sees whether the text reference of the cell contains a picture filename (i.e. searches for .png or .jpg in the cell contents)
3: if (1) is correct, it retrieves the picture from "C:/Users/jeff/Documents/Standards/" and pastes it as a cell comment background in the cell to the right (and overwrites any comment backgrounds that might already exist there)
The code below does something a bit different: it looks in a defined range, then adds a comment with a background picture retrieved based on the text in the cell to the left.
I'm sure this is a pretty basic change, but my VBA skills aren't up to it...I've only just started reading though Walkenbach's Power Programming! I'm using Excel 2007
Sub InsertComment()
'www.contextures.comxlcomments03.html
Dim rngList As Range
Dim c As Range
Dim cmt As Comment
Dim strPic As String
On Error Resume Next
Set rngList = Range("A1:A5")
strPic = "C:/Users/jeff/Documents/Standards/"
On Error Resume Next
For Each c In rngList
With c.Offset(0, 1)...................
I am trying to plot data that I have read out of a PLC (via csv file) . The date/time data shows up as follows: 2007-05-14T02:15:00.020-07:00
In this example, the suffix .020-07:00 is extra information and causes problems with graphing the info. Also, the cell is a not a number value, and I can not force it to be a general, number format.
I would like to truncate the cell or extract the time out of it such that I can plot the PLC data in a meaningful "parameter vs time" graph.
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 have an address file containing a few hundered thousand rows of data. The max character lines for my lables is 60 and unfortunatly a large number of the fields exceed this limit. I need to create a string somthing to the effect of:
delimination
if len(A2<60) end
if len(A2>60) then
if character 60 isblank then deliminate = 60
if character 60 not isblank then deliminate at blank < 60
I am using the code below to export my data to a new workbook, it creates a new workbook and copies the data into it except not all of it, strangely it seems to truncate the text from some cells ..
View 6 Replies View RelatedSomeone gave me a spread sheet that lists o-ring sizes. Each field has a measurement followed by a +/- range. I need to split the +/- range out into a seperate field. The full sheet has over 400 rows of data. Is there an easy way to automate this? I attached a sample of the sheet.
View 2 Replies View RelatedWe have had a few instances where Excel 2013 is truncating a filename when saving for example "MF Not Settled - Dec 13 Rental A.." the filename includes additional characters than this but has replaced them with .., I initially thought it could be a file path length issue but the files in question the total length is less than 150 characters including the server name.
This is also happening with links inside excel files to different tabs in the same workbook and well as macro names causing them to have to be ran manually as it has truncated the name to .. at the end.
find some examples below:
Full filename: MF Jan 2014 vols Smart churn sensitivity
Truncated filename: MF Jan 2014 vols Smart churn...
Also if you try to link to the truncated workbook whilst open it displays the formula as:
='[MF Jan 2014 vols Smart churn...sitivity.xlsm]Input c!$E$13
My work around is to save the file to another folder, without closing it, and then it works fine. However, in doing this it will try to save as the truncated name, so I first have to select the correct name of the file in the existing folder, before saving to a separate folder. However, if the file is closed, and then reopened the problem returns.
I have a spreadsheet with 4 columns of information, then a column for a primary name, and then many columns of secondary names (with a different number of secondary names for each row).
For rows with more than 1 secondary name, I need to create a new row with a copy of all the columns up to the secondary name for each secondary name in the row.
A row in the spreadsheet looks like this:
data data data data PrimaryName SecondaryName1 SecondaryName2 SecondaryName3... SecondaryNameN
I need this row to be replaced by the following set of rows:
data data data data PrimaryName SecondaryName1
data data data data PrimaryName SecondaryName2
data data data data PrimaryName SecondaryName3
...
data data data data PrimaryName SecondaryNameN
I have a macro that copies long decimals (11 places) from an Excel file to a CSV file. However, the long decimals often get truncated from 11 places down to 3 or 4. I've tried a number of different coding methods to combat this, the most recent and most successful of which is shown below
Application.Workbooks.Open Filename:="C:...2008_alldata.csv"
Cells.Select
Selection.ClearContents
ActiveWindow.ActivateNext
Application.Goto Reference:="AllDataTable"
Selection.Copy
ActiveWindow.ActivateNext
Application.Goto Reference:="R1C1"
Selection.PasteSpecial Paste:=xlPasteValues
Range("R2:BI5000").Select
Selection.NumberFormat = "#,##0.00000000000"
ActiveWorkbook.Save
ActiveWindow.Close savechanges:=False
However, sometimes this method also fails. Is there a better way anyone knows of to ensure that the entire decimal is copied?
I am moving data from Sheet2 to Sheet3.
View 5 Replies View RelatedI want to import a excel file in the current sheet but want that few of the starting lines are not imported. Suppose i have a file with 500 rows but i dont want to import starting 39 rows.
View 9 Replies View RelatedI'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
Where Commenta is the string value I want to add.
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..
(using excel 2010)
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 copy a cell content to a Comment into another worksheet in
the same cell ref.
sheet1
A1 = apple
A2 = orange
Sheet2 - target
A1 = comment (apple)
A2 = comment (orange)
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.
View 8 Replies View Relatedmake 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" ?
View 5 Replies View RelatedWhen I insert a comment in a cell, my corporate version of Excel displays my employee number. How can Code a cell to populate this employee number.
View 3 Replies View RelatedI'm using a function at the moment to copy the comment text from cells, but would like to Change it a Little. At the Moment I have:
[Code]...
There are 3 Basic Groups that the comments refer to, eg: If a comment is a 1,4,11,14 it's Group A. 2,5,12,15 are Group B, etc...
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.
View 3 Replies View RelatedI'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 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
With activeCell...........
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?
I'm using this formula on Sheet2 to populate a cell (copied across and down)...
=IF(COUNTIF(Master!$F$1:$F$300,$A2)>=COLUMNS($B2:B2),INDEX(Master!$B$1:$B$300,SMALL(IF(Master!$F$1:$F$300=$A2,ROW(Master!$F$1:$F$300)-ROW(Master!$F$1)+1),COLUMNS($B2:B2))),"")
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.
View 2 Replies View RelatedI 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.
View 3 Replies View Related