Text/Value from Cell to Comment in another Cell

[Faygin]

I have a range of information in range AE2:AE300.
That i would like to input as comments in Cell T2:T300.

Information in AE2 goes to T2, AE3 to T3, AE4 to T4 and so on.

Its important that nothing else gets changed or formatted in the "Target Cell", it should just add a comment, where there is no comment.

I have a beginning, searched this forum and the internet but i cant find a proper way to do it.
All help and feedback appreciated!

'Creates variables
Dim ws As Worksheet
Dim GoalCell As Range 'This range is where the comments are going
Dim GetInfo As Range  'This range is where i get the text/values that would be the comment

'Set variables
Set ws = ActiveSheet
Set GoalCell = ws.Range("T2:T300")

'Clear comments from worksheet
GoalCell.ClearComments

 

[HaHoBe]

Hi Faygin,

your code will add the contents from AE to all cells in T as it deletes any existing comment. What about

Public Sub MrE_1227401_170130B()
' https://www.mrexcel.com/board/threads/text-value-from-cell-to-comment-in-another-cell.1227401/

'code works on the ActiveSheet in Excel
  Dim rngCell As Range

  For Each rngCell In ActiveSheet.Range("T2:T300")
    If rngCell.Comment Is Nothing Then
      With rngCell
        .AddComment
'        .Comment.Visible = True
        .Comment.Text Text:=CStr(ActiveSheet.Cells(rngCell.Row, "AE").Value)
        End With
    End If
  Next rngCell

End Sub

Ciao,
Holger

 

[Faygin]

Hi Faygin,

your code will add the contents from AE to all cells in T as it deletes any existing comment. What about

Public Sub MrE_1227401_170130B()
' https://www.mrexcel.com/board/threads/text-value-from-cell-to-comment-in-another-cell.1227401/

'code works on the ActiveSheet in Excel
  Dim rngCell As Range

  For Each rngCell In ActiveSheet.Range("T2:T300")
    If rngCell.Comment Is Nothing Then
      With rngCell
        .AddComment
'        .Comment.Visible = True
        .Comment.Text Text:=CStr(ActiveSheet.Cells(rngCell.Row, "AE").Value)
        End With
    End If
  Next rngCell

End Sub

Ciao,
Holger

Thank you Holger! Great Job, you made my day!