محمد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