DR.ZUHAIR

جزاكما الله عنا الجنة،،، هذا هو المطلوب تماماً،،،شكرأ شكرأ

الاخ : عماد الحسامي مشكور والله على ماتقدمه من معلومات طيبة لاخوانك بالمنتدى جعلها الله في ميزان حسناتك ولكن لوسمحت عندي سؤال لقد جربت كودك المرفق ومن بعض ما تعلتمه من الاخوة الاخرين جزاهم الله جميعا خير لك اصل للحل وذلك كالتالي: Sub IFIF() X = Sheets(1).Range("D2").Value Y = Sheets(2).Range("F3").Value Z = Sheets(3).Range("E2").Value A = Sheets(1).Range("C7").Value B = Sheets(1).Range("D7").Value C = Sheets(1).Range("E7").Value If X + Y > Z Then A = 1 B = 2 C = 3 Else A = 44 B = 99 C = 55 End If End Sub ولكن المتغيرات A B C في التعبير عن القيم المشار اليهالم تفي بالغرض ،،، ولكن عندما اضع مجال القيمة كاملاً فإن ناتج الحل يكون صحيح أي عندما أضع : Sheets(1).Range("c7").Value = 1 Sheets(1).Range("d7").Value = 2 Sheets(1).RANGE("e7").Value = 3 ففي رأيكم ما السبب وبارك الله فيك مقدماً

الاخ دغيدي اشكرك على هذا الرد الطيب ولكن لماذا لاتعمل PG UP AND PG DN الاخ khaledHHH اين المرفق ؟؟

الاخ دغيدي لقد وجدت هذه المشاركة للاخ زياد علي ممكن يكون فيها طلبك : http://www.officena.net/ib/index.php?showtopic=30360

ما أجمل روح الأخوة في هذا المنتدى الرائع حياكم الله أيها الأعزاء الحمد لله هنا الحس الإنساني الجميل بحيث نرتقي ونسمو ابتغاء وجه الله ,فقد أكرمنا جميعاً بنعم لا تحصى وهذه الصفحة من المودة واحدة من تلك النعم . نأسف أخونا زياد علي على التأخر في الدعاء لوالدك وعن السؤال عنه والحمد لله انه قد تماثل للشفاء

السلام عليكم استاذ زياد علي ما شاء الله لا قوة إلا بالله ،،، هذه السلسلة فعلاً كنوز ،،، وقلما نجد من يتحدث عن هذا الموضوع كمرجع عربي على صفحات الانترنت ياريت إدارة المنتدى تثبت الموضوع ليستفيد الجميع ولتكون مرجع لهم،،، مشكور وبارك الله فيك

استاذ زياد علي استاذ طارق الله يفتح عليكما دنيا واخرة وجزاكم الله عنا كل خير مجهود ممتاز نحتاج المزيد