Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return Author Comment
I am trying to dump some comment information contained in a
spreadsheet into a new spreadsheet. I found the below macro on the web but need to include one more piece of information to the output. I would like to include the Author name but am unsure how to do that. Can anyone help??? Please see the code below: Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return Author Comment
"Pathogen" wrote: I am trying to dump some comment information contained in a spreadsheet into a new spreadsheet. I found the below macro on the web but need to include one more piece of information to the output. I would like to include the Author name but am unsure how to do that. Can anyone help??? Please see the code below: Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Hi add the new line below .Cells(i, 5).Value = mycell.Comment.Text newline: .Cells(i, 6).Value = mycell.Comment.Author Regards Peter |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return Author Comment
Where can you get the author's name?
If it's the text before the first colon in the comment's text, you could strip it by looking for the colon and taking everything before that character. But if you're looking at the status bar and see "Cell A1 commented by Pathogen", I'm not sure that can be gotten using VBA. Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text ColonPos = InStr(1, mycell.Comment.Text, ":", vbTextCompare) If ColonPos 0 Then .Cells(i, 6).Value = Left(mycell.Comment.Text, ColonPos - 1) End If End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Pathogen wrote: I am trying to dump some comment information contained in a spreadsheet into a new spreadsheet. I found the below macro on the web but need to include one more piece of information to the output. I would like to include the Author name but am unsure how to do that. Can anyone help??? Please see the code below: Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub -- Dave Peterson |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return Author Comment
..Author
Who'da thunk it? Please ignore my response! Dave Peterson wrote: Where can you get the author's name? If it's the text before the first colon in the comment's text, you could strip it by looking for the colon and taking everything before that character. But if you're looking at the status bar and see "Cell A1 commented by Pathogen", I'm not sure that can be gotten using VBA. Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text ColonPos = InStr(1, mycell.Comment.Text, ":", vbTextCompare) If ColonPos 0 Then .Cells(i, 6).Value = Left(mycell.Comment.Text, ColonPos - 1) End If End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Pathogen wrote: I am trying to dump some comment information contained in a spreadsheet into a new spreadsheet. I found the below macro on the web but need to include one more piece of information to the output. I would like to include the Author name but am unsure how to do that. Can anyone help??? Please see the code below: Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub -- Dave Peterson -- Dave Peterson |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return Author Comment
How about this alteration?
Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text .Cells(i, 6).Value = ActiveWorkbook.BuiltinDocumentProperties _ ("Author") End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Gord On Tue, 20 Mar 2007 15:52:49 -0500, Dave Peterson wrote: Where can you get the author's name? If it's the text before the first colon in the comment's text, you could strip it by looking for the colon and taking everything before that character. But if you're looking at the status bar and see "Cell A1 commented by Pathogen", I'm not sure that can be gotten using VBA. Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text ColonPos = InStr(1, mycell.Comment.Text, ":", vbTextCompare) If ColonPos 0 Then .Cells(i, 6).Value = Left(mycell.Comment.Text, ColonPos - 1) End If End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Pathogen wrote: I am trying to dump some comment information contained in a spreadsheet into a new spreadsheet. I found the below macro on the web but need to include one more piece of information to the output. I would like to include the Author name but am unsure how to do that. Can anyone help??? Please see the code below: Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return Author Comment
On Mar 20, 3:50 pm, Billy Liddel
wrote: "Pathogen" wrote: I am trying to dump some comment information contained in a spreadsheet into a new spreadsheet. I found the below macro on the web but need to include one more piece of information to the output. I would like to include the Author name but am unsure how to do that. Can anyone help??? Please see the code below: Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Hi add the new line below .Cells(i, 5).Value = mycell.Comment.Text newline: .Cells(i, 6).Value = mycell.Comment.Author Regards Peter This worked perfectly...thanks! |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return Author Comment
This'll get the author of the workbook--not the author of the comment.
I'll go with Billy's response (now that I know it exists <vbg). Gord Dibben wrote: How about this alteration? Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text .Cells(i, 6).Value = ActiveWorkbook.BuiltinDocumentProperties _ ("Author") End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Gord On Tue, 20 Mar 2007 15:52:49 -0500, Dave Peterson wrote: Where can you get the author's name? If it's the text before the first colon in the comment's text, you could strip it by looking for the colon and taking everything before that character. But if you're looking at the status bar and see "Cell A1 commented by Pathogen", I'm not sure that can be gotten using VBA. Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text ColonPos = InStr(1, mycell.Comment.Text, ":", vbTextCompare) If ColonPos 0 Then .Cells(i, 6).Value = Left(mycell.Comment.Text, ColonPos - 1) End If End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Pathogen wrote: I am trying to dump some comment information contained in a spreadsheet into a new spreadsheet. I found the below macro on the web but need to include one more piece of information to the output. I would like to include the Author name but am unsure how to do that. Can anyone help??? Please see the code below: Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub -- Dave Peterson |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return Author Comment
But Author may be different than username in the comment.
See my tweaker to return both. Gord On Tue, 20 Mar 2007 16:01:09 -0500, Dave Peterson wrote: .Author Who'da thunk it? Please ignore my response! Dave Peterson wrote: Where can you get the author's name? If it's the text before the first colon in the comment's text, you could strip it by looking for the colon and taking everything before that character. But if you're looking at the status bar and see "Cell A1 commented by Pathogen", I'm not sure that can be gotten using VBA. Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text ColonPos = InStr(1, mycell.Comment.Text, ":", vbTextCompare) If ColonPos 0 Then .Cells(i, 6).Value = Left(mycell.Comment.Text, ColonPos - 1) End If End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Pathogen wrote: I am trying to dump some comment information contained in a spreadsheet into a new spreadsheet. I found the below macro on the web but need to include one more piece of information to the output. I would like to include the Author name but am unsure how to do that. Can anyone help??? Please see the code below: Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub -- Dave Peterson |
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return Author Comment
Comment.Text already returns the comment author.
Why have it twice? Gord On Tue, 20 Mar 2007 17:11:55 -0500, Dave Peterson wrote: This'll get the author of the workbook--not the author of the comment. I'll go with Billy's response (now that I know it exists <vbg). Gord Dibben wrote: How about this alteration? Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text .Cells(i, 6).Value = ActiveWorkbook.BuiltinDocumentProperties _ ("Author") End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Gord On Tue, 20 Mar 2007 15:52:49 -0500, Dave Peterson wrote: Where can you get the author's name? If it's the text before the first colon in the comment's text, you could strip it by looking for the colon and taking everything before that character. But if you're looking at the status bar and see "Cell A1 commented by Pathogen", I'm not sure that can be gotten using VBA. Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text ColonPos = InStr(1, mycell.Comment.Text, ":", vbTextCompare) If ColonPos 0 Then .Cells(i, 6).Value = Left(mycell.Comment.Text, ColonPos - 1) End If End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Pathogen wrote: I am trying to dump some comment information contained in a spreadsheet into a new spreadsheet. I found the below macro on the web but need to include one more piece of information to the output. I would like to include the Author name but am unsure how to do that. Can anyone help??? Please see the code below: Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub |
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return Author Comment
Not necessarily. Sometimes a user will delete the Author name from
the content (text) of the comment. This is why I needed to have the Comment.Author. On Mar 20, 6:09 pm, Gord Dibben <gorddibbATshawDOTca wrote: Comment.Text already returns the comment author. Why have it twice? Gord On Tue, 20 Mar 2007 17:11:55 -0500, Dave Peterson wrote: This'll get the author of the workbook--not the author of the comment. I'll go with Billy's response (now that I know it exists <vbg). Gord Dibben wrote: How about this alteration? Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text .Cells(i, 6).Value = ActiveWorkbook.BuiltinDocumentProperties _ ("Author") End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Gord On Tue, 20 Mar 2007 15:52:49 -0500, Dave Peterson wrote: Where can you get the author's name? If it's the text before the first colon in the comment's text, you could strip it by looking for the colon and taking everything before that character. But if you're looking at the status bar and see "Cell A1 commented by Pathogen", I'm not sure that can be gotten using VBA. Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text ColonPos = InStr(1, mycell.Comment.Text, ":", vbTextCompare) If ColonPos 0 Then .Cells(i, 6).Value = Left(mycell.Comment.Text, ColonPos - 1) End If End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Pathogen wrote: I am trying to dump some comment information contained in a spreadsheet into a new spreadsheet. I found the below macro on the web but need to include one more piece of information to the output. I would like to include the Author name but am unsure how to do that. Can anyone help??? Please see the code below: Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub |
#11
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return Author Comment
OK
I'll quit picking at this scab<g Gord On Tue, 20 Mar 2007 16:09:10 -0700, Gord Dibben <gorddibbATshawDOTca wrote: Comment.Text already returns the comment author. Why have it twice? Gord On Tue, 20 Mar 2007 17:11:55 -0500, Dave Peterson wrote: This'll get the author of the workbook--not the author of the comment. I'll go with Billy's response (now that I know it exists <vbg). Gord Dibben wrote: How about this alteration? Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text .Cells(i, 6).Value = ActiveWorkbook.BuiltinDocumentProperties _ ("Author") End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Gord On Tue, 20 Mar 2007 15:52:49 -0500, Dave Peterson wrote: Where can you get the author's name? If it's the text before the first colon in the comment's text, you could strip it by looking for the colon and taking everything before that character. But if you're looking at the status bar and see "Cell A1 commented by Pathogen", I'm not sure that can be gotten using VBA. Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text ColonPos = InStr(1, mycell.Comment.Text, ":", vbTextCompare) If ColonPos 0 Then .Cells(i, 6).Value = Left(mycell.Comment.Text, ColonPos - 1) End If End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Pathogen wrote: I am trying to dump some comment information contained in a spreadsheet into a new spreadsheet. I found the below macro on the web but need to include one more piece of information to the output. I would like to include the Author name but am unsure how to do that. Can anyone help??? Please see the code below: Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub |
#12
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return Author Comment
That did occur to me later but not before I posted.
Gord On 20 Mar 2007 16:18:12 -0700, "Pathogen" wrote: Not necessarily. Sometimes a user will delete the Author name from the content (text) of the comment. This is why I needed to have the Comment.Author. On Mar 20, 6:09 pm, Gord Dibben <gorddibbATshawDOTca wrote: Comment.Text already returns the comment author. Why have it twice? Gord On Tue, 20 Mar 2007 17:11:55 -0500, Dave Peterson wrote: This'll get the author of the workbook--not the author of the comment. I'll go with Billy's response (now that I know it exists <vbg). Gord Dibben wrote: How about this alteration? Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text .Cells(i, 6).Value = ActiveWorkbook.BuiltinDocumentProperties _ ("Author") End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Gord On Tue, 20 Mar 2007 15:52:49 -0500, Dave Peterson wrote: Where can you get the author's name? If it's the text before the first colon in the comment's text, you could strip it by looking for the colon and taking everything before that character. But if you're looking at the status bar and see "Cell A1 commented by Pathogen", I'm not sure that can be gotten using VBA. Option Explicit Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Dim ColonPos As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text ColonPos = InStr(1, mycell.Comment.Text, ":", vbTextCompare) If ColonPos 0 Then .Cells(i, 6).Value = Left(mycell.Comment.Text, ColonPos - 1) End If End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub Pathogen wrote: I am trying to dump some comment information contained in a spreadsheet into a new spreadsheet. I found the below macro on the web but need to include one more piece of information to the output. I would like to include the Author name but am unsure how to do that. Can anyone help??? Please see the code below: Sub ShowCommentsAllSheets() 'modified from code 'posted by Dave Peterson 2003-05-16 Application.ScreenUpdating = False Dim commrange As Range Dim mycell As Range Dim ws As Worksheet Dim newwks As Worksheet Dim i As Long Set newwks = Worksheets.Add newwks.Range("A1:F1").Value = _ Array("Sheet", "Address", "Name", "Value", "Comment", "Author") For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Set commrange = ws.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If commrange Is Nothing Then 'do nothing Else i = newwks.Cells(Rows.Count, 1).End(xlUp).Row For Each mycell In commrange With newwks i = i + 1 On Error Resume Next .Cells(i, 1).Value = ws.Name .Cells(i, 2).Value = mycell.Address .Cells(i, 3).Value = mycell.Name.Name .Cells(i, 4).Value = mycell.Value .Cells(i, 5).Value = mycell.Comment.Text End With Next mycell End If Set commrange = Nothing Next ws 'format cells for no wrapping, remove line break newwks.Cells.WrapText = False newwks.Columns("E:E").Replace What:=Chr(10), _ Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Application.ScreenUpdating = True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Set author for a comment? | Excel Discussion (Misc queries) | |||
What are the character codes of a carriage return entered in a comment? | Excel Programming | |||
a comment plugin & copy paste directly from excel to comment ? fr. | Excel Worksheet Functions | |||
Carriage return in comment not working | Excel Programming | |||
Changing Author Name in an existing cell's comment | Excel Programming |