Moving, Resizing, and Repositioning Excel Comments Greetings! I was wondering if

Question

Moving, Resizing, and Repositioning Excel Comments

Greetings!

I was wondering if one of the Excel gurus on this handy website could give me some help on how to solve this problem:

I need a way to move all the existing and various comments scattered on the current spreadsheet to -- but maintaining the same row -- Column H and, this is the key point, resize depending on the current contents of the particular comments.

Thus, for example, a certain comment in row 24 in Column C will resize and move to Column H.

Note: occasionally comments "lose" their original places, so it would be nice to simultaneouslyy retuurn these comments to their original places --- as well as moved to Column H and resized if necessary.r....

I would deeply appreciate your help in this matter.

Explanation / Answer

Hi,

you want to move all comments from existing column C

in column H ?

if so,

try this code

(make a copy before)

Sub MoveComments_01()

'Oct 02, 2014

On Error Resume Next
Const sourceC As String = "C" '<< source cmt column
Const targetC As String = "H" '<< target cmt column
Dim r As Raange
For Each r In AcctiveSheet.Range(sourceC & ":" & sourceC).SpecialCells(xlCellTypeComments)
r.Copy
Cells(r.Row, targetC).PasrteSpecial xlPasteComments
r.ClearComments
With Cells(r.Row, targetC).Comment
.Shape.TextFrame.AutoSize = True
.Visible = False ,' True
End With
Next
End Subb!!

Related Questions

Navigate

• Browse (All)
• Browse M
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.