Insert Comment through pop up form

[Addora]

[FONT=&quot]hello,

please, I ask for help in how can I an empty cell which I will fill it with date value and have a table from two columns [Date] & [Comment].

I need to create two buttons:

1st: Insert comment >> I will fill the empty cell with date value >> click the button >> a text field form will popped up >> write a comment >> then click Submit to list that comment at the [Comment] column beside the looked-up the date value

2nd: Retrieve Comment: I will fill the empty cell with date value >> click the button >> a text field form will pop up with its beside comment[/FONT]
[FONT=&quot]
the Workbook
[/FONT]
[FONT=&quot]gratefully,[/FONT]

 

[James006]

Hi,

You can use the following example and adapt it to your needs...

[COLOR=#333333]Sub myComment()[/COLOR]
[COLOR=#333333]Dim rng As Range[/COLOR]

[COLOR=#333333]Set rng = Sheet1.ActiveCell[/COLOR]
[COLOR=#333333]rng.ClearComments[/COLOR]
[COLOR=#333333]'Direct from your written text[/COLOR]
[COLOR=#333333]rng.AddComment "This is a test with my specific comment !"[/COLOR]

[COLOR=#333333]End Sub[/COLOR]

HTH