copy comment ???

[ddragas]

Hi all.

How can I copy comment from target cell to another sheet in another cell?

code shoul be something like this:

If cells(red,4).address has comment then
comment=cells(red,4).comment
sheets("hzzo").Range("A2").comment=comment
end if

Thnx folks

 

[north19701]

Sub copycomment()
If Cells(red, 4).Comment Is Nothing Then
MsgBox ("no comment")
Else
Cells(red, 4).Copy
Sheets("hzzo").Range("A2").PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End If
End Sub

I think this should work for you.

 

[DRJ]

Try something like this.

Sub Macro1()

Dim MyText As String
Dim MyErr As Long

On Error Resume Next
MyText = Range("C6").Comment.Text
MyErr = Err
On Error GoTo 0

If MyErr <> 0 Then
Else
Range("C7").AddComment
Range("C7").Comment.Text Text:=MyText
End If

End Sub

 

[Learning Excel]

Hi,
Would it be easier to Copy comment from Target cell and edit,special paste ,comment in the require cell in next sheet ?

Learning Excel

 

[ddragas]

No becouse every time comment is in diferent cell.