محمد7788

هو المطلوب بالظبط جزاك الله كل خير

السلام عليكم المطلوب داخل الملف المرفق مثال1.xlsx

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

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

الف شكر jo_2010 وكذلك الاستاذ AlwaZeeR على جهدهم وتم عمل المطلوب كما اريد بالضبط اكرر شكرى للاستاذ AlwaZeeR جزاك الله كل خير

استاذى الغالى بارك الله فيك هو بس كنت عاوز احسب العمر على الحقل الموجود بيانات المعهد واسمه السن فى اول اكتوبر لانه بيتغير كل سنة ثانيا خانة اليوم انا محتاج يكون الموجود فيها الرقم فقط يعنى مثلا "7" بدون كلمة يوم وبدون الصفر على الشمال وكذلك الشهر والسنة استاذى الفاضل شكرا جدا على الجهد بس ياريت ممكن اليوم فى خانة والشهر كذلك والسنة كذلك بس بدون كلمة ايام او شهر او سنة يعنى الرقم فقط وشاكر جدا للنصيحة

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

الاساتذة الكرام اقوم بتصميم برنامج شئون طلاب وكنت بحاول حساب العمر من تاريخ الميلاد فى الاستعلام دالة حساب السنة سنة: DateDiff("yyyy";[بيانات الطلاب]![تاريخ الميلاد];[بيانات المعهد]![السن فى اكتوبر]) دالة حساب اليوم d: DateDiff("d";DateAdd("m";[m2];[بيانات الطلاب]![تاريخ الميلاد]);[بيانات المعهد]![السن فى اكتوبر]) يوم1: IIf(DateDiff("d";DateAdd("m";IIf([d]<0;[m2]-1;[m]);[بيانات الطلاب]![تاريخ الميلاد]);[بيانات المعهد]![السن فى اكتوبر])=30;[d];DateDiff("d";DateAdd("m";IIf([d]<0;[m2]-1;[m]);[بيانات الطلاب]![تاريخ الميلاد]);[بيانات المعهد]![السن فى اكتوبر])) دالة حساب الشهر m: DateDiff("m";DateAdd("yyyy";[سنة];[بيانات الطلاب]![تاريخ الميلاد]);[بيانات المعهد]![السن فى اكتوبر]) شهر1: IIf([d]<0;[m]-1;[m]) ولكن بلاقى مشكة ان الايام فيها ارقام سالبة او عدد الايام بتبقى كتير جدا انا بحاول ياريت حد يعرفنى الخطأ فين مع توضيخ الخطأ لكى اتعلم

السلام عليكم ورحمة الله وبركاته فى الملف المرفق كود استيراد من ملف بامتداد 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

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

السلام عليكم فى البرنامج اللى انا عامله وضعت امر اب ديت علشان الساعة زى مافى الصورة بس عاوز اكتب ازود امر علشان الملف يفتح على صفحة معينة هى نفس الصفحة اللى فيها الساعة وهى الورقة 13 (الرئسية) اعمل ايه ؟

السلام عليكم لماذا عند حذف صف من صفحة البيانات الأساسية يحدث خطأ فى المعادلات التى تأخذ البيانات منها الى صفحة أخرى وهل لهذا حل ؟