النتائج في م سي جي بوكس واحد بدلا من ثلاثة

[نايف - م]

السلام عليكم ..عند الضغط على زر أمر أحصل على 3 رسائل م سي جي بوكس ..أريد أن تظهر النتائج في رسالة واحدة 

المصنف11.xlsm

[ابراهيم الحداد]

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

     MsgBox .Cells(r, 1)

بهذه العبارة

    x = x & Chr(10) & .Cells(r, 1)

و امسح هذه العبارة

     MsgBox .Cells(r, 1)

و قم باولة العلامة من امام هذه العبارة

     MsgBox x

 

[نايف - م]

مع الشكر الجزيل للأستاذ ابراهيم الحداد المحترم