| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Comments box
Is it possible to have Excel to automatically add a 'comment' with the date
already in the comment to a cell when data is put into that cell? tia -- Jock Waddington |
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Comments box
This crude Workbook code seems to do it........
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 'Upon entering a value in a cell, this macro will attach a Comment Box 'to the cell and insert the current date. It will append existing comments. If ActiveCell.Value < "" Then ActiveCell.Select If Selection.Comment Is Nothing Then Selection.AddComment Selection.Comment.Visible = True Selection.Comment.Text Text:=Date & Chr(10) Selection.Comment.Visible = False Else Selection.Comment.Visible = True Selection.Comment.Text Text:=ActiveCell.Comment.Text & Chr(10) & Date & Chr(10) Selection.Comment.Visible = False End If End If End Sub "Jock W" wrote: Is it possible to have Excel to automatically add a 'comment' with the date already in the comment to a cell when data is put into that cell? tia -- Jock Waddington |
|
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Comments box
If the feature becomes aggravating, this version will allow you to toggle it
On and Off by typing "CommentOn" in cell A2..... Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 'Upon entering a value in a cell, this macro will attach a Comment Box 'to the cell and insert the current date. It will append existing comments. If Range("A2").Value = "CommentOn" Then If ActiveCell.Value < "" Then ActiveCell.Select If Selection.Comment Is Nothing Then Selection.AddComment Selection.Comment.Visible = True Selection.Comment.Text Text:=Date & Chr(10) Selection.Comment.Visible = False Else Selection.Comment.Visible = True Selection.Comment.Text Text:=ActiveCell.Comment.Text & Chr(10) & Date & Chr(10) Selection.Comment.Visible = False End If End If Else End If End Sub Vaya con Dios, Chuck, CABGx3 "CLR" wrote: This crude Workbook code seems to do it........ Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 'Upon entering a value in a cell, this macro will attach a Comment Box 'to the cell and insert the current date. It will append existing comments. If ActiveCell.Value < "" Then ActiveCell.Select If Selection.Comment Is Nothing Then Selection.AddComment Selection.Comment.Visible = True Selection.Comment.Text Text:=Date & Chr(10) Selection.Comment.Visible = False Else Selection.Comment.Visible = True Selection.Comment.Text Text:=ActiveCell.Comment.Text & Chr(10) & Date & Chr(10) Selection.Comment.Visible = False End If End If End Sub "Jock W" wrote: Is it possible to have Excel to automatically add a 'comment' with the date already in the comment to a cell when data is put into that cell? tia -- Jock Waddington |
|
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Comments box
Tried and tried but I can't get this to work.
No comment forthcoming. Is this bit correct "ByVal Sh As Object, ByVal Target As Range"? Cheers -- Jock Waddington "CLR" wrote: If the feature becomes aggravating, this version will allow you to toggle it On and Off by typing "CommentOn" in cell A2..... Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 'Upon entering a value in a cell, this macro will attach a Comment Box 'to the cell and insert the current date. It will append existing comments. If Range("A2").Value = "CommentOn" Then If ActiveCell.Value < "" Then ActiveCell.Select If Selection.Comment Is Nothing Then Selection.AddComment Selection.Comment.Visible = True Selection.Comment.Text Text:=Date & Chr(10) Selection.Comment.Visible = False Else Selection.Comment.Visible = True Selection.Comment.Text Text:=ActiveCell.Comment.Text & Chr(10) & Date & Chr(10) Selection.Comment.Visible = False End If End If Else End If End Sub Vaya con Dios, Chuck, CABGx3 "CLR" wrote: This crude Workbook code seems to do it........ Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 'Upon entering a value in a cell, this macro will attach a Comment Box 'to the cell and insert the current date. It will append existing comments. If ActiveCell.Value < "" Then ActiveCell.Select If Selection.Comment Is Nothing Then Selection.AddComment Selection.Comment.Visible = True Selection.Comment.Text Text:=Date & Chr(10) Selection.Comment.Visible = False Else Selection.Comment.Visible = True Selection.Comment.Text Text:=ActiveCell.Comment.Text & Chr(10) & Date & Chr(10) Selection.Comment.Visible = False End If End If End Sub "Jock W" wrote: Is it possible to have Excel to automatically add a 'comment' with the date already in the comment to a cell when data is put into that cell? tia -- Jock Waddington |
|
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Comments box
Did you watch out for any word-wrap coming through the post....sometimes that
messes macros up. I copied the code straight out of my VBE....it was working there. Check each line for something funny looking. Worse case is, give me your email and I'll send a file with it working in it. hth Vaya con Dios, Chuck, CABGx3 "Jock W" wrote: Tried and tried but I can't get this to work. No comment forthcoming. Is this bit correct "ByVal Sh As Object, ByVal Target As Range"? Cheers -- Jock Waddington "CLR" wrote: If the feature becomes aggravating, this version will allow you to toggle it On and Off by typing "CommentOn" in cell A2..... Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 'Upon entering a value in a cell, this macro will attach a Comment Box 'to the cell and insert the current date. It will append existing comments. If Range("A2").Value = "CommentOn" Then If ActiveCell.Value < "" Then ActiveCell.Select If Selection.Comment Is Nothing Then Selection.AddComment Selection.Comment.Visible = True Selection.Comment.Text Text:=Date & Chr(10) Selection.Comment.Visible = False Else Selection.Comment.Visible = True Selection.Comment.Text Text:=ActiveCell.Comment.Text & Chr(10) & Date & Chr(10) Selection.Comment.Visible = False End If End If Else End If End Sub Vaya con Dios, Chuck, CABGx3 "CLR" wrote: This crude Workbook code seems to do it........ Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 'Upon entering a value in a cell, this macro will attach a Comment Box 'to the cell and insert the current date. It will append existing comments. If ActiveCell.Value < "" Then ActiveCell.Select If Selection.Comment Is Nothing Then Selection.AddComment Selection.Comment.Visible = True Selection.Comment.Text Text:=Date & Chr(10) Selection.Comment.Visible = False Else Selection.Comment.Visible = True Selection.Comment.Text Text:=ActiveCell.Comment.Text & Chr(10) & Date & Chr(10) Selection.Comment.Visible = False End If End If End Sub "Jock W" wrote: Is it possible to have Excel to automatically add a 'comment' with the date already in the comment to a cell when data is put into that cell? tia -- Jock Waddington |
|
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Comments box
|
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Comments in Excel | Excel Worksheet Functions | |||
| Display Comments on Each Page | Excel Discussion (Misc queries) | |||
| Lookup Text in Comments | Excel Worksheet Functions | |||
| Include comments on another spreadsheet | Excel Discussion (Misc queries) | |||
| Can I reference comments by Cell Name? | Excel Discussion (Misc queries) | |||
Hybrid Mode
