مساعدة في message box

[ضاحي الغريب]

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

أخواني في الله

برجاء مساعدتكم في معادلة SUBTOTAL وتحويلها الي كود يظهر قيمته في message box

بالمرفقات شرح لما اريد

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

SUBTOTAL.rar

[عبدالله المجرب]

ضع هذا الكود في زر أمر

Sub Abu_Ahmed()

Range("A2").ClearComments

With Range("A2").AddComment

.Text Text:="عدد الأسماء هو  " & Application.CountA(Range("B4:B160")) & " أسم"

.Visible = True

End With

End Sub

[ضاحي الغريب]

أخي واستاذي عبدالله المجرب ابو احمد

دائما سباق لفعل الخيرات وتقديم العون لنا وانتهز الفرصة جد لاشكرك وانت لا تحتاج لشكري علي سلسلة شروحات الترحيل لانها كانت طريقي للتعلم ولا املك شيئا اقدمه الا دعائي لك في ظهر الغيب ان يبارك لك في علمك وزقك واولادك

تقبل تحياتي

اخوك ضاحي الغريب

[ضاحي الغريب]

أخي النبيل / أبو احمد "أ.عبدالله المجرب"

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

فكرة الكود رائعة لاضافة تعليق وقمت بعد اذنك بتعديله ليصبخ Msg Box كما أريد بالصورة التالية

MsgBox vbNewLine & " عدد الأسماء " & " ( " & Application.CountA(Range("B4:B1000")) & " ) " & " أسـم ", vbOKOnly, "شئـون الموظفين"

وجزاك الله كل الخير عما قدمته وتقدمه لنا من عون دائما

تقبل تحياتي أخوك / ضاحي الغريب

[عبدالله المجرب]

أخي واستاذي عبدالله المجرب ابو احمد

دائما سباق لفعل الخيرات وتقديم العون لنا وانتهز الفرصة جد لاشكرك وانت لا تحتاج لشكري علي سلسلة شروحات الترحيل لانها كانت طريقي للتعلم ولا املك شيئا اقدمه الا دعائي لك في ظهر الغيب ان يبارك لك في علمك وزقك واولادك

تقبل تحياتي

اخوك ضاحي الغريب

حياك الله اخي ضاحي الغريب

وشكراً على الدعاء واسأل الله ان يكون لك بمثل ما دعيت وأكثر