Скачать или смотреть How to import cell comments to normal cell, Copy Comments Automatically using Excel VBA, EXCEL,

How to import cell comments to normal cell, Copy Comments Automatically using Excel VBA, EXCEL, Microsoft excel, Ms-excel,
///////////////////////////VBA CODE/////////////////////////////////////////

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim commentsrng As Range
Dim copycell As Range
Dim comments As Worksheet
Set comments = ActiveSheet
On Error Resume Next
Set commentsrng = comments.Cells.SpecialCells(xlCellTypeComments)
On Error GoTo 0
If commentsrng Is Nothing Then
MsgBox "Abortiing! no comments exist on worksheet!"
Exit Sub
End If
For Each copycell In commentsrng
If copycell.Offset(0, 4).Value = "" Then
copycell.Offset(0, 4).Value = copycell.Comment.Text
End If
Next copycell
Application.ScreenUpdating = True
End Sub



BY‪@manojkumarexcel‬ , FROM,BHORHA, SIMRI BAKHTIYARPUR,SAHARSA, BIHAR,