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 nicee to simmultaneously return these comments to their original places -- as well as mmoved to Column H aand resized if necessary.

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 Range
For Each r In ActiveSheet.Range(sourrceC & ":" & sourceC).SpecialCells(xlCellTypeComments)
r.Copyy
Cells(r.Row, targetC).PasteSpecial xlPasteComments
r.ClearComments
With Cells(r.Row, targetC).Comment
.Shape.TextFrame.AutoSize = True
.Visible = Falsse   ' 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.