ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   save comments to a worksheet (https://www.excelbanter.com/excel-worksheet-functions/8774-save-comments-worksheet.html)

IM_CRice

save comments to a worksheet
 
Hello: I want to save my comments in a worksheet format to view. I know how
to print the comments, but I actually need to capture them in a cell format.
Thus, taking them from the comment format and inserting it into a cell in a
worksheet. How would I accomplish this?

Thanks in advance,
Christina

Debra Dalgleish

You can do this with programming. There's sample code he

http://www.contextures.com/xlcomment...ml#CopyToSheet

IM_CRice wrote:
Hello: I want to save my comments in a worksheet format to view. I know how
to print the comments, but I actually need to capture them in a cell format.
Thus, taking them from the comment format and inserting it into a cell in a
worksheet. How would I accomplish this?


--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html


IM_CRice

Debra, thanks for the info!! I'm going to try it out!!! Also, thanks for
the quick response to my post!!! :)

"Debra Dalgleish" wrote:

You can do this with programming. There's sample code he

http://www.contextures.com/xlcomment...ml#CopyToSheet

IM_CRice wrote:
Hello: I want to save my comments in a worksheet format to view. I know how
to print the comments, but I actually need to capture them in a cell format.
Thus, taking them from the comment format and inserting it into a cell in a
worksheet. How would I accomplish this?


--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html



Gord Dibben

Christina

Code from Debra Dalgleish to list comments on a new sheet.

Sub ListComms()
Dim Cell As Range
Dim Sh As Worksheet
Dim csh As Worksheet
Set csh = ActiveWorkbook.Worksheets.Add
csh.Name = "Comments"
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Name < csh.Name Then
For Each Cell In Sh.UsedRange
If Not Cell.Comment Is Nothing Then
With csh.Range("a65536").End(xlUp).Offset(1, 0)
.Value = Sh.Name & " " & Cell.Address
.Offset(0, 1).Value = Cell.Comment.text
End With
End If
Next Cell
End If
Next Sh
End Sub

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + R to open Project Explorer.

Find your workbook/project and select it.

Right-click and InsertModule. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to ToolMacroMacros.


Gord Dibben Excel MVP


On Thu, 6 Jan 2005 11:33:03 -0800, "IM_CRice"
wrote:

Hello: I want to save my comments in a worksheet format to view. I know how
to print the comments, but I actually need to capture them in a cell format.
Thus, taking them from the comment format and inserting it into a cell in a
worksheet. How would I accomplish this?

Thanks in advance,
Christina



IM_CRice

Gord,

Thank you!! I was absolutely having some problems with the macros, as I am
not real familiar with them. Reading through your post, it provides more
explanation. I'm going to follow it now and will see if I can get it to work.

Thanks so much for your response!! Very, Very helpful!!

Christina

"Gord Dibben" wrote:

Christina

Code from Debra Dalgleish to list comments on a new sheet.

Sub ListComms()
Dim Cell As Range
Dim Sh As Worksheet
Dim csh As Worksheet
Set csh = ActiveWorkbook.Worksheets.Add
csh.Name = "Comments"
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Name < csh.Name Then
For Each Cell In Sh.UsedRange
If Not Cell.Comment Is Nothing Then
With csh.Range("a65536").End(xlUp).Offset(1, 0)
.Value = Sh.Name & " " & Cell.Address
.Offset(0, 1).Value = Cell.Comment.text
End With
End If
Next Cell
End If
Next Sh
End Sub

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + R to open Project Explorer.

Find your workbook/project and select it.

Right-click and InsertModule. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to ToolMacroMacros.


Gord Dibben Excel MVP


On Thu, 6 Jan 2005 11:33:03 -0800, "IM_CRice"
wrote:

Hello: I want to save my comments in a worksheet format to view. I know how
to print the comments, but I actually need to capture them in a cell format.
Thus, taking them from the comment format and inserting it into a cell in a
worksheet. How would I accomplish this?

Thanks in advance,
Christina




Gord Dibben

Thanks for the feedback.

Gord

On Fri, 7 Jan 2005 11:31:01 -0800, "IM_CRice"
wrote:

Gord,

Thank you!! I was absolutely having some problems with the macros, as I am
not real familiar with them. Reading through your post, it provides more
explanation. I'm going to follow it now and will see if I can get it to work.

Thanks so much for your response!! Very, Very helpful!!

Christina

"Gord Dibben" wrote:

Christina

Code from Debra Dalgleish to list comments on a new sheet.

Sub ListComms()
Dim Cell As Range
Dim Sh As Worksheet
Dim csh As Worksheet
Set csh = ActiveWorkbook.Worksheets.Add
csh.Name = "Comments"
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Name < csh.Name Then
For Each Cell In Sh.UsedRange
If Not Cell.Comment Is Nothing Then
With csh.Range("a65536").End(xlUp).Offset(1, 0)
.Value = Sh.Name & " " & Cell.Address
.Offset(0, 1).Value = Cell.Comment.text
End With
End If
Next Cell
End If
Next Sh
End Sub

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + R to open Project Explorer.

Find your workbook/project and select it.

Right-click and InsertModule. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to ToolMacroMacros.


Gord Dibben Excel MVP


On Thu, 6 Jan 2005 11:33:03 -0800, "IM_CRice"
wrote:

Hello: I want to save my comments in a worksheet format to view. I know how
to print the comments, but I actually need to capture them in a cell format.
Thus, taking them from the comment format and inserting it into a cell in a
worksheet. How would I accomplish this?

Thanks in advance,
Christina






All times are GMT +1. The time now is 08:31 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com