Adding Comments To A Range
Apr 27, 2007
I need to identify any cells in a range that do not contain text then colour and comment them. I intended to use the following code, however it doesn't work as I expected it to.
With rRange.SpecialCells(xlCellTypeBlanks)
If .Count > 0 Then
.Interior.ColorIndex = zErrorColour
.AddComment "This cell must contain a value"
End If
End With
The blanks cells are coloured OK but only the first blank cell gets a comment. Is there a reason why I can't add comments to all the cells in the range? And if there is a good reason, then I guess I'm going to have to write a loop to add the comments.
View 2 Replies
ADVERTISEMENT
Feb 20, 2009
I have slight problem with an OnChange Event by Target.
I am looking to be able to change a cell value from one to another, create a comment block that says "person B for person A" , change the color and be done.
If the cell is empty then the code should exit the sub (not working). If the cell has already been change once then I want the comment box to show a second line of who changed what.
What I tried in the comment box, thinking it would keep the value:
View 12 Replies
View Related
Mar 8, 2012
I have the following code which deletes the specified value from each cell in column B that contains that value, (note it only deletes the value from that column and not all in the row).
Code:
Sub delete1()
Dim lr As Long, i As Long
With Sheets("Database")
lr = .Range("B" & Rows.Count).End(xlUp).Row
For i = lr To 2 Step -1
If .Range("B" & i).Value = 1 Then .Range("B" & i).ClearContents
Next i
End With
End Sub
Now what I need is to adapt it slightly so that it also adds a comment to the cell in Column I and the current date in Column L, (on each row where the deleted value was).
The comment would be something like "old data archived" and the date in any format, preferably dd/mm/yyyy.
View 9 Replies
View Related
Feb 15, 2007
Is any way to add automatically comments in VBA
Some combination of "ctrl" with something else.
View 3 Replies
View Related
Oct 8, 2009
When adding a comment I check for an existing comment, if exist then delete and add new comment and some text in that cell. This works as long as the cell has an existing comment; other wise it advances to the "Else" where I thought I would be entering a comment and text in an empty cell. Why does my macro treat an empty cell as if it has a comment?
View 4 Replies
View Related
Jan 20, 2010
I have (several) worksheets that have protection enabled. I have unlocked all the cells that users need access to and locked all the column and row headers/labels.
When I enabled protection on the sheets, the ability to add comments was taken away.
Is there a way to add comments to an UNLOCKED cell in a PROTECTED worksheet?
View 5 Replies
View Related
Oct 23, 2012
Excel 2007
I have a few dozen pictures created when a macro runs. They all have unique names. I'd like to add comments to cells, where the cell.value decides which picture to pull. All the examples I've found online show how to do this if you have pictures saved on your hard drive by referencing the file path "c://mydocs/...blahblah/"
Is there a way to reference the pictures I've created/named with my macro?
Here's the snippet of code that creates the pictures and names them:
Code:
For i = 2 To Application.CountA(Sheets("Allocation").Rows(1))
Sheets("Allocation").Activate
Set rInput = Sheets("Allocation").Range(Cells(1, i), Cells(10, i))
sPicName = "_" & Sheets("Allocation").Cells(1, i) & "_"
sSheet = Sheets("Allocation").Cells(3, i)
dDate = Sheets("Allocation").Cells(5, i)
[Code] ......
Here are some examples that are close to what I'm looking for.
VBA Popup Pictures - 1108 - Learn Excel from MrExcel Podcast - YouTube
VBA Express : Excel - Add pictures that float like comments.
View 4 Replies
View Related
Apr 3, 2014
I have a form that has three fields (1. Comments (TEXT), 2. Legacy_Comments (TEXT), 3, Comment date (DATE))
Now my users need to keep adding comments to the comment text box, and when they do it automatically adds the date they entered the comment in the Comment date box. Now my problem is that since they keep adding comments to the comment box, I need to keep track of these comments in the Legacy_Comments (Text box).
For example, the First time a user enters a comment into the (1) comment text box it auto populates the date in the comment date box, and then adds the comment and date to the Legacy_Comment box. the end result is (comment,4/3/2014 now lets say a user needs to add a comment to the comments box tomorrow - I want the legacy_Comment box to then read (comment, 4/3/2014; comment2, 4/4/2014, ...., comment(n),date(n)) OR it can be vice-verse, because I just need to keep track of the comments, I am not worried if the new comments are before or after older (yesterdays / the day before yesterdays comments)
How can I write a VBA code that will always add the new comment to the legacy_comment field, without deleting the comments that were entered previously?
Code:
If isnull(me.comment.value) Then
Exit Sub
ElseIf me.comment.value = true Then
me.comment_date.value = date
me.legacy_comment.value = me.comment.value & "," & me.comment_date.value & ";"
me.legacy_comment.value = me.legacy_comment.value & "," & me.comment_date.value & ";"
It adds the comment only the first time, but it does not concatenate the string from yesterday to the string to today. I do not care which order the comments are, meaning if I added a comment today it can be before OR after the comment from yesterday.
View 1 Replies
View Related
Apr 10, 2008
trying to speed up run time of legacy app, learned that setting a range = an array is a better strategy than manipulating cells one by one, no problem with this approach on cell values but getting errors trying same approach with comments as follows:
Range(Cells(lRow, lOrigCol), Cells(lRow, lCol)).Comment = aRowComment
I get the runtime error "Object variable or with block variable not set". When I try to append .Text to .Comment, I get a compile error.
aRowComment is an array of comments. I saw a post on doing this from range to range but cant find anything on array to range.
View 9 Replies
View Related
Jul 12, 2007
Reference the archives at:
http://www.mrexcel.com/archive/VBA/17448.html
How can I modify this sub to skip cells that are empty? I only want cells that are populated within the range to actually display the comment indicator, with the cell text transferred to the comment.
Ideally, I'd also like the text to be moved (not just copied) to the comment and leave an 'X' in the cell, in place of the text that was transferred to the comment, but I'll settle for the action above.
View 9 Replies
View Related
Feb 4, 2014
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".
View 7 Replies
View Related
Mar 1, 2007
every month i download a sales list of which there are about 200 transactions.
each day there is a different amount of sales ie
feb 1st 9.99
feb 1st 14.99
feb 1st 7.99 (3 sales)
feb 2nd 8.99
feb 2nd 16.99
feb 2nd 14.99
feb 2nd 8.99 (4 sales)
"" "" "" ""
etc throughout the month
at the moment i am using the SUM to maunually add the sales per day
feb 1st 32.97
feb 2nd 49.96
as i need a daily record of income, however this is very time consuming
is there any way i can request the worksheet to add say column b for the 1st feb and show total
column b for 2nd feb and show total, thus saving myself hours of work ??
way to add up the total for each day
View 11 Replies
View Related
Nov 20, 2008
Per attached I have a range of columns (variable) which I need to sum, the number of rows are also variable. I have defined the variables:
firstrow
lastrow
firstcol
lastcol
I have tried the following code which isnt quite working.
View 3 Replies
View Related
Dec 1, 2012
I've got a range of cells that I'd like entered into other cells, followed by _SheetName.
For example, I've tried the following:
Sheets("AllData").Range("D6:J6").Value = Sheets(1).Name & "_" & Sheets(1).Range("D6:J6").Value
But it runs a run-time error '13', type mismatch.
However, both
Sheets("AllData").Range("D6:J6").Value = Sheets(1).Name & "_"
and
Sheets("AllData").Range("D6:J6").Value = Sheets(1).Range("D6:J6").Value
Do their respect parts of the process so I'm not sure why the combined version doesn't work.
View 4 Replies
View Related
Jan 11, 2007
how I would get the top 5 highest values from a group of 20 and add them together?
View 9 Replies
View Related
Jan 19, 2007
I need to add times of employess over a 2 week schedule.I have used a string variable to select the rows and columns as employees change.How do i add the times in this case.Sample code is below:
j = 12
k = 20
For i = 16 To 276
row_str = "A" & i & ":B" & i
Windows("TimeSheet.xls").Activate
Range(row_str).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Report.xls").Activate ...................
View 9 Replies
View Related
Aug 13, 2014
I'm trying to add a range to this email code that will then paste the information into the body of this email however instead of getting the data I need i'm getting "-1" in the body instead.
I've tried defining the range below and adding that line to the main code but it doesn't work, the code will run but i get "-1" in the body.
View 13 Replies
View Related
Nov 13, 2011
adding an second range (J1089:AI1147) to the follwing code.
Code:
Sub Clear_Range()
Application.EnableEvents = False
With Range("H3:AL1058")
[Code]....
View 2 Replies
View Related
Sep 19, 2013
I'm looking to easily drag the sum of certain cells in a different column BUT keeping a specific range, it's hard to explain so i'll show an example...
A1
A2
A3
A4
A5
A6
A7
A8
B1=SUM(A1:A4)
B2=SUM(A4:A7)
B3=SUM(A8:A11)
And so on...
Is there any way I can do this by dragging down the cell formula from B1 and it remembering the range of 4, so I don't have to manually select each range...?
View 1 Replies
View Related
Jun 23, 2007
I am trying to add the highest 4 or
View 9 Replies
View Related
Aug 4, 2008
We have a client that has to total the number of days that people received medical care (for insurance purposes). BUT...they can't count duplicate days. Some of the dates show a range of days, others only one day. They've asked for my help. (We're actually a computer services firm, but I'm pretty good with Excel...until now!)
In column C I have placed the correct totals for the date ranges, according to the payment policies. But I can't figure out how to write the formula that accommodates all the variables (mostly since all the unique dates aren't entered--only ranges).
Each line is a different medical charge, so line 1 might be 22 days of hospital stay. Line 2 is for a different charge, but covers the same dates, so it can't count. Lines 3, 4, and 5 all occur within the previously calculated range, so they don't count. The date range in line 6 is six days but 4 of them have been counted already, only 2 days fall outside an already calculated range.
It would be easy enough to do this manually for a small list, but this patient has 1367 entries in 4 months of care! And there are others that are much larger.
Fortunately, all the dates are in calendar order. Also, fortunately, they don't need line-by-line totals, just the grand total at the end of all the unique days in the range. So if I can figure out how many unique days are in the columns ....
View 9 Replies
View Related
Mar 14, 2009
I'm trying to come up with a formula which will add the cells in a date range. This date range may be within the same month or span several months but will always be within the year.
On the results page, Cell A3 will be the Employee Number, Cell B3 will be the From Date, Cell C3 will be the To Date. I need to find a for cell D3, the sum. For example, if A3 had 123456, B3 had 1/2/09, C3 had 1/3/09, then D3 would need to have 17.48 (8.88+8.6)
The way I'm currently looking at is adding a row between C and D on the data table below which contains the row number, then doing a VLOOKUP and a few indexes to pull the data but I'm concerned that pulling data from 7 different tables (for different types of employee hours) for 250 employees would make this take forever to recalculate.
Note that the table below has 12 rows for the 12 months of the years and the columns go all the way to 31. It can be counted on that if a date doesn't exist (for example, 2/30/09, the value in the cell will be 0 which means we can use ranges through the end of the month if needed) ......
View 9 Replies
View Related
Sep 24, 2009
i'm using a formula to derive some data in a column of an excel tab. it is -
=IF(H2=5,(CONCATENATE(YEAR(E2),(0),MONTH(E2))),CONCATENATE(YEAR(E2),MONTH(E2)))
how can i add a dynamic range to this so that it updates automatically when the number of rows expand?
View 9 Replies
View Related
Jul 12, 2009
I have a spread sheet I use to track tools. One tool may be checked out / returned several times a week. When I do custom sorting I end up with the Tools listed neatly by date and number. EX: ...
View 10 Replies
View Related
Dec 16, 2009
My macro adds a sheet to an existing Excel workbook. However, this only works the first time. If I delete the added sheet and run the macro again I get the above error. The macro below call a second macro (see later )
View 2 Replies
View Related
Jan 4, 2009
I have a named range on a hidden sheet which populates data validation lists on 'sheet 1, cells b5-b55. My question is this...Is it possible to, upon entering a new item in b5 (for example), to have that item automatically added to the named range? (preferably through a button on a pop up form that opens w/ the question 'would you like to add to the list?, similar to an access form)...I've seen one example in the past which I found with a link from this site, but couldn't make it work. If the answer to my question is yes, could you also suggest a location of an example if you know of one?
View 14 Replies
View Related
Oct 24, 2012
I'm trying to create a sum that gives the output with the currency format but also change column D from from D2 to the Total the currency format. (it changes based on how many customers). Here is the code
Code:
Windows("Test1.xls").Activate
Dim rng As Range
Set rng = Sheets("Sheet1").Range("D65536").End(xlUp).Offset(1, 0)
Range("D" & lastrow + 4).Select
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(lastrow + 1, 4).Formula = "=sum(D2:D" & lastrow & ")"
rng.Select ("D" & lastrow)
Selection.NumberFormat = "$#,##0.00"
I know it has to do with the rng.select statement but I'm just not sure how to make it work for all of Column D from D2 to the Total/Sum.
View 2 Replies
View Related
Jun 14, 2013
I am trying to allow a user to select a file and have the only sheet from that file added to the workbook they are working in. When I run this code I get a "Subscript Out of Range" error
Code:
Sub importRawData()
Dim rawDataSheet As String
MsgBox "Please select the unmodified AR Aging Report exported from PFW", vbOKOnly
rawDataSheet = Application.GetOpenFilename(FileFilter:= _
"Microsoft Excel Workbooks, *.xls; *.xlsx", Title:="Select File")
Sheets.Add(Sheets("PWF AR Data"), , , rawDataSheet).Name = "PWF Raw Data"
End Sub
View 7 Replies
View Related
Nov 19, 2013
I'm trying to create a shortcut that will allow me to add quotation marks to the begining and end of text in cells. I've tried the following, which works fine when only one cell is highlighted:
VB:
Dim rng As Range
Dim txt As String
Set rng = Selection
txt = """"
rng = txt & rng.Value & txt
However as soon as I highlight more than one cell, it errors. How to make it work for a range of cells?
View 5 Replies
View Related
Sep 9, 2013
I have this code working fine in excel 2007 but I need to get it working in excel 2003.
=0.02*(_xlfn.SUMIFS($D$2:$D$98,$C$2:$C$98,">="&I5,$C$2:$C$98,"<="&I4))
I have attached a test document to show what I'd like to do. It is basically adding values if the column next to it is in a certain range.
counting columns in Excel 2003.xls
View 3 Replies
View Related
