مسج بالقيم التي تحقق شرط معين

[ابوالزوز]

السلام عليكم ،،

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

عن طريق مسج، والملف المرفق يوضح المطلوب بشكل أفضل

تقبلوا جميعاً تحياتي ..

abuzzouz23.rar

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

السلام عليكم

Sub رسالة()
Dim M As Integer
With Range("A1:A13")
    For M = 1 To .Rows.Count
        If .Cells(M, 1).Value > 5900 Then
            MsgBox "القيمة : " & .Cells(M, 1).Value, 524288 + 1048576, "فحص النتيجة"
        End If
    Next M
End With
End Sub

[عادل حنفي]

السلام عليكم

اخي العزيز

هذا محاولة لما تريد ارجو ان يساعدك هذا

تحباتي

abuzzouz25.rar

[ابوالزوز]

السلام عليكم ،،

أخواني الأفاضل خبور خير و aah_aah2008 شكراً جزيلاً لاهتمامكم وردودكم السريعة

فهذه الأفكار التي طرحتموها حقاً رائعة إلا أنها لم تلبي مطلبي بشكل كامل

ولو سمحتم لي أن أعرض لكم الملف المرفق حيث أني كنت محتفظاً به وهو من أعمال أحد

أساتذة هذا المنتدى لكن لأسف لا أذكر إسمه، هذا الملف يعرض مسج واحدة فقط بكل النتائج المطلوبة

إلا أنني لم أستطع فهم تركيبة الكود وبالتالي لم أستطع تطبيقها على ملفي السابق

لذلك أرجو منكم أخواني ان تساعدوني في ذلك أكن لكم من الشاكرين

تقبلوا جميعاً تحياتي ..

______________________.rar

تم تعديل يناير 18, 2009 بواسطه abuzzouz

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

السلام عليكم

Sub رسالة()
Dim M As Integer, KH_M As String
With Range("A1:A13")
    For M = 1 To .Rows.Count
        If .Cells(M, 1).Value > 5900 Then
            If KH_M = "" Then KH_M = "======="
            KH_M = KH_M & Chr(10) & .Cells(M, 1).Value
        End If
    Next M
End With
MsgBox "القيم التالية : " & Chr(10) & KH_M, 524288 + 1048576, "فحص النتيجة"
End Sub

[عادل حنفي]

السلام عليكم

اخي العزيز خبور عذرا لم الحظ مشاركتك الاولي الان فارجو العذر علي ذلك

و انا انتهزها فرصه لاننا افتقدناك اخي العزيز

تحياتي

[ابوالزوز]

السلام عليكم ،،

أخي وأستاذي خبور يعجز اللسان عن شكرك على ما تقدمه لهذا المنتدى وأعضائه

أدامك الله وزادك من علمه ونعيمه وأسكنك وأهلك الجنة بغير حساب

كما أشكر كل من يهتم بأسئلتي ويسعى جاهداً لتقديم الأفكار والحلول

تقبلوا جميعاً تحياتي ..

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

السلام عليكم

الاخ الفاضل / عادل --------------------حفظه الله

بارك الله فيك

وقد لاحظت نشاطك المبهر في المنتدى

ادام الله عليك نعمه وادامك للمنتدى عونا لاخوانك

الاخ الفاضل / ABUZ--------------------حفظه الله

لك بمثل دعائك اضعاف مضاعفة

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

[عادل حنفي]

السلام عليكم

احي الحبيب خبور

شهادتك من استاذ اعتز بها و لها قدر كبير عندي

وفقك الله و ايانا لصالح الجميع

خالص تحياتي و تقديري