إستخراج النص الموجود فى تعليق coment لخلية ما ووضعة فى خلية أخرى

[أبو العاصم]

السلام عليكم ورحمة الله وبركاته

إخوانى أبحث عن كود أو معادلة لإستخراج النص الموجود فى تعليق comment لخلية ما ووضعة فى خلية أخرى

[عبدالله باقشير]

السلام عليكم

استخدم الكود التالي

لو فرضنا ان الخلية ذات التعليق هي D6

والخلية التي تريد اضافة نص التعليق فيها

الخلية النشطة ActiveCell

Sub kh_Add_Comment()

If Not Range("D6").Comment Is Nothing Then

    ActiveCell.Value = Range("D6").Comment.Text

Else

    MsgBox "Nothing"

End If

End Sub

[هشام شلبى]

السلام عليكم

===========

بارك الله فى عملاقنا خبور خير

جعله الله لنا شمعة مضيئة فى المنتدى دائما

كل عام وانت بخير

ولمزيد من الافادة

هنا حلان اخران احدهما يلصق بيانات التعليق فى الخلية المجاورة للتعليق ولاى عدد من التعليقات

والاخر يلصق فى نفس خلية التعليق

Desktop.rar

[عبدالله باقشير]

السلام عليكم

الله يبارك فيك اخي هشام

وجزاك الله خيرا

تقبل تحياتي وشكري

[تامر خليفة]

بارك الله فيك

مفيده جدا و هتوفر عليا وقت ومجهود كبير

جزاكم الله كل خير

[خالد القدس]

السلام عليكم إبداعات وأكوادعجيبة لن توجد إلا هنا أستاذ خبور أستاذ هشام رفع الله قدركم وزادكم من نعمه