محمد7788

السلام عليكم ورحمة الله وبركاته فى الملف المرفق كود استيراد من ملف بامتداد xlsm من مدى (b4:v2002) المطلوب الغاء الرسائل التى يرسلها الكود يكون الزق فى المدى (B4:V5002) عند اول خلية فارغة فى العمود B لانى اقوم بتجميع البيانات من اكثر من ملف واريد عند الاستيراد من الملف الثانى يقوم بالاكمال فى اول خلية فارغة فى العمود B وهكذا واريد الاستيراد بدون الرسائل المرفقة فى الكود تجربة.xlsm

تمام كدا المعلومة وضحت وتم التنفيذ بنجاح جزاكم الله كل خير

تمام انا فهمت النقطة دى بدل ال Q ضع اخر عامود عندك AF بدل ال * 3 ضع * 5 بزود حسب عدد الأعمدة انا زودت عمودين ازود رقمين لكن النقطة دى بزود بناءا على ايه بدل ال For J = 0 To 2 ضع For J = 0 To 4 بدل P = P + 2 ضع P = P + 4

بارك الله فيك استاذنا فعلا ده المطلوب بس لو انا حبيت ازود مع العمود c و i و o عمدان تانى زى العمود u و aa مثلا اعدل ايه فى الكود؟

السلام عليكم ورحمة الله وبركاته فى الملف المرفق كود لاستخراج النواقص وهى عبارة عن الكمية المباعة فى تاريخ معين وانا اريد عند الضغط على زر الاستدعاء يقوم باستدعاء البيانات المطلوبة من sheet3 الجزء الخاص بكود الصنف يقوم باستدعاء البيانات من عمود c والعمود i والعمود o وكذلك الحال فى الجزء الخاص باسم الصنف وكذلك الكمية المباعة المصنف1.xlsm

السلام عليكم اساتذة المنتدى الكرام ارجو تعديل هذا الكود ليكون البحث بجزء من الكلمة ولكم جزيل الشكر Function search_from_sheet1() Dim rng1 As Range Dim str_search As String ThisWorkbook.Sheets("SHEET1").Activate str_search = Range("I3") ThisWorkbook.Sheets("SHEET2").Activate Set rng1 = Sheets("SHEET2").Range("A:A").Find(str_search, , xlValues, xlWhole) If Not rng1 Is Nothing Then rng1.Select Dim row_number As Long row_number = ActiveCell.Row ThisWorkbook.Sheets("SHEET1").Activate Range("I3") = Sheets("SHEET2").Range("A" & row_number) Range("I4") = Sheets("SHEET2").Range("B" & row_number) Range("I5") = Sheets("SHEET2").Range("E" & row_number) Range("I7") = Sheets("SHEET2").Range("C" & row_number) Range("I8") = Sheets("SHEET2").Range("g" & row_number) Range("I9") = Sheets("SHEET2").Range("h" & row_number) Range("I13") = Sheets("SHEET2").Range("f" & row_number) Else MsgBox str_search & ("برجاء ادخال الكود") End If End Function

السلام عليكم ... لابد من التحية عند بدء أى مشاركة ,,,عملت كمبوبوكس لكنى قابنلنى مشكلة ان الارقام فيه بتظهر باللغة الانجليزية وانا محتاجها باللغة العربية ؟ الكومبوكس فى شيت تقييم الصفوف فى الملف المرفق المصنف1.xlsm

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

السلام عليكم ...المطلوب ترحيل الأرقام من العمود H في هذا الشيت بداية من الخلية H10الى اخر H39 وذلك الى شيت أرشيف التقارير العمود F وفى كل مرة بالضغط على زر ترحيل الى أرشيف يقوم بالترحيل الى العمود الفارغ الذى يليه انتبه من فضلك , فطالما ان طلبك لا يمكن عمله الا بالأكواد فكان عليك لزاما رفع الملف بإمتداد يقبل إضافة الأكواد ... تــــم اعادة رفع الملف بإمتداد XLSM تقارير.xlsm

تم المطلوب على اكمل وجه بارك الله فيك ولك وعليك

السلام عليكم ورحمة الله وبركاته المشكلة انى فى شيت1 لما بعمل حذف لمعلم وبعدها مباشرتا اعمل استعلام عن معلم اخر تأتى رسالة انه فى خطأ فى كود الاستدعاء ومش عارف ايه هو الخطأ ولا عارف احل المشكلة ؟ الملف فى المرفقات نموذج1.xlsm

تمام تم الاجابة عن المطلوبين وسوف ارفع المطلوب الجديد فى موضوع جديد

استاذ محمد صالح البرنامج فى الأساس من تصميمي بمساعدة حضراتكم فى المنتدى انا محمد عبدالحميد عصر ثم جاء الاستاذ احمد وأضاف له بعض الإضافات بالاتفاق معى والان نحن الاثنان نعمل عليه لانهائه حضرتك ممكن تتواصل مع الأستاذ احمد وهو يوضح الكلام ده لحضرتك وانا قمت بحذف باقى الشيتات علشان حجم الملف واقدر ارفعه هنا ..وياريت نلاقى عند حضرتك حل للموضوع ده نحله ازاى ؟ استاذ محمد حضرتك اذا دخلت على صفحة معلم كل مادة على حدى واختارة مادة القران الكريم ستجد كلى معلمى القران الكريم ببياناتهم تمام؟ اذهب بعد ذلك الى شيت 1 اللى فيه ادخال البيانات واستدعى بيانات اى مدرس وقم بعمل حذف له من ذر الحذف تمام؟ ثم اذهب الى شيت معلمى المادة مرة اخرى واختار مثلا مادة القران ستجد انه لايوجد بيانات اصلا لاى احد المفترض انى يتم حذف المدرس اللى انت حذفته فقط؟؟؟

فى الملف المرفق فى شيت باسم sheet1 عند الضغط على زر حذف لحذف احد المدرسين يحدث خلل فى شيت "كل مادة على حدى" وكذلك شيت "1م تنسيق" وهل ممكن استبدال المعادلات فى الشيتين بأكواد؟ نموذج1.xlsm

بارك الله فيك استاذ على وجزاك الله كل خير