اسامه مجدى

السلام عليكم و رحمة الله و بركاتة جزاك الله خيرا يا استاذ خبور خير و الحمد لله الذى وهبنا خبور خير استاذ نتعلم منه الكثير جزاك الله خيرا

السلام عليكم و رحمة الله و بركاتة مرفق ملف به كود يستدعى البيانات مع وضع البيانات المستدعاة اسفل المعيار الخاص بة المشكلة فى ان الكود يقوم باستدعاء جزء من البيانات وليس كل البيانات برجاء المساعدة فى تصحيح الكود جزاكم الله خيراً كود يستدعى البيانات مع وضع البيانات المستدعاة اسفل المعيار الخاص بها.rar

السلام عليكم ورحمة الله وبركاتة تحية خاصة الى المُعلم خبور خير جزاك الله خير الجزاء و زادك علما و عزاً و نوراً

السلام عليكم و رحمة الله وبركاتة هل يمكن ان تظهر فى خلايا العمود B من 10 : 39 البيانات المرتبطة بالكمبوبوكس رقم 4 و 5 مثلما يٌظهر الكمبوبوكس رقم 3 البيانات المرتبطة بالكمبوبوكس رقم 1 و 2 مرفق ملف وارجو من الله ان يوفقكم لما يحبة و يرضاة جزاكم الله خيرا New WinRAR ZIP archive.zip

مرفق ملف لاستدعاء بيانات و لكن احتاج الى مساعدة فى التنسيق الشرطى لان عند استدعاء البيانات تكون بعض الخلايا فارغة فلا يتم تنسيقها مما يجعل شكل البيان غير مستحب تنسيق استدعاء.rar

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

مرفق ملف بة كود يستدعى بيانات و يسطر الخلية التى بها البيانات المشكلة فى الكود الذى يسطر تلك البيانات ارجو المساعدة جزاكم الله خيراً تنسيق استدعاء.rar

اخى الفاضل كيف يتم تشفير الملف بحيث لا تفتحة برامج الاختراق

السلام عليكم و رحمة الله و بركاتة جرب الرابط التالى إضغط هنا مع ملاحظة تغير "درجة";"درجات""جزء";"أجزاء" الى "جنية"؛"جنيهات"؛"قرش"؛"قروش"

السلام عليكم و رحمة الله و بركاته طلبك يا اخى ستجده فى هذا الرابط إضغط هنا

السلام عليكم ورحمة الله وبركاتة اخى العزيز احمد يعقوب يعجز لسانى عن الشكر لقد استفدت جداً من هذا الملف وحقيقة الاستاذ هادى سالم عبقرى فهذا الكود الذى ابدعه الاستاذ هادى سالم اكثر من رائع Variable= Range().CurrentRegion.Rows.Count جزاكم الله خير الجزاء

السلام عليكم ورحمة الله وبركاتة مرفق ملف به USER FORM علية اثنين كمبو بوكس الاول يظهر مدى من البيانات الكمبو بوكس الثانى و هو موضع السؤال اريد ان يظهر القيم التى فى العمود D المقابلة للشرط الموضوع فى الكمبوبوكس الاول مع العلم ان المدى فى الكمبو بوكس الاول تم من خلا الكود التالى LAST_ROW = Cells(Rows.Count, 1).End(xlUp).Row For R = 2 To LAST_ROW ComboBox2.AddItem Sheet2.Cells (R, 1 Next R شكرا New_WinRAR_archive.rar

اخى العزيز شكرا لك على مجهودك و لكن الملف لم يعمل عندى و ظهرت لى رسالة بها Run-time error 713

فكرة جميلة يا اخى

جزاك الله عنا خير الجزاء هذا هو المطلوب