shreif mohamed

وعليكم السلام ورحمه الله وبركاته قم بتمكين الوحدات النمطية للمرفق ثم الضغط علي ترحيل ind.xlsm

بارك الله فيك وشكرا لكلماتك الطيبة واسال الله العظيم ان ينفعنا بما علمنا انه هو العليم الحكيم تفضل فصل كلمات من سلسلة نصية بدلالة رمز.xlsm

وعليكم السلام المصنف1(3).xlsm

شكرا لكلماتك الطيبة والشكر موصول لاخي الاستاذ احمد كامل السيد لتقديم المساعدة لك في هذا الموضوع وفي انتظار اي استفسارات اخري

تفضل فصل كلمات من سلسلة نصية بدلالة رمز.xlsm

تفضل ملاحظة : عدم حذف اي اعمدة من الشيت Book111(1).xls

اعمل عليه بحول الله تابع معي

تفضل وعزرا للتاخير trans.xlsm

ان شاء الله سوف اقوم بشرح الكود في الساعات القليلة القادمة وعزرا للتاخير

تفضل case.xlsm

trans.xlsm

ماهي اولويات توزيع الدرجات بمعني اذا كناك هناك 6 مواد درجة كل مادة هي 48 اي تحتاج 2 درجة فقط للرفع وهناك مواد اخري لنفس الطالب عددها 4 مواد كل واحدة 45 اي تحتاج الي 5 درجات للرفع وهنا السؤال ، هل يتم رفع ال 6 مواد ام ال 4مواد ؟

وعليكم السلام ورحمه الله وبركاته new.xlsm

عزرا اخي لانشغالي في بعض الامور الاخري بالنسبة لطلبك احب ان اوضح انه يتم نقل البينات كاملة كثرت البيانات او قلت بمعني انه حتي لو تعدت البيانات نطاق الخلايا 670 فانها سوف تنقل كاملة فهل تريد مني ان اجعل المدي المنقول حتي الخلية 670 فقط ؟

الشكر لله ، ومرحب بك واستفساراتك في اي وقت

لا بد من تطبيق الماكرو في كل مر تريد النتائج فيها وعزرا لم اضف لك زر التنفيذ تفضل وقم بالضغط علي زر ترحيل البيانات PRO.xls

تفضل PRO.xls

تفضل DELL.xlsx

تفضل المصاريف.xlsm

وعليكم السلام ورحمه الله وبركاته Sub Click3() On Error GoTo 1 Dim ws As Worksheet: Set ws = Sheets("add") Dim N, C2 As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ' On Error Resume Next For Each N In ws.Range("H6:H" & ws.Range("B" & Rows.Count).End(xlUp).Row) If N.Value = "محمود" Or N.Value = "احمد" Then Range(N.Offset(0, 111), N.Offset(0, 116)).ClearContents ' N.Offset(0, 117) = "" N.Offset(0, 118) = Format(Round(N.Offset(0, 171) + N.Offset(0, 172) + N.Offset(0, 173) + N.Offset(0, 174), 2)) Range(N.Offset(0, 119), N.Offset(0, 163)).ClearContents ' N.Offset(0, 164) = "" N.Offset(0, 165) = Format(Round(N.Offset(0, 180) + N.Offset(0, 181), 2)) Range(N.Offset(0, 166), N.Offset(0, 169)).ClearContents Range(N.Offset(0, 175), N.Offset(0, 179)).ClearContents ' N.Offset(0, 180) = "" '' ' N.Offset(0, 181) = "" '' N.Offset(0, 182).ClearContents ' N.Offset(0, 183) = "" '' Range(N.Offset(0, 184), N.Offset(0, 256)).ClearContents End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic 1 End Sub

يفضل ارفاق ملف العمل حتي يتثني لنا المساعدة بشكل افضل

حساب كميات حسب سعر المواد بالموقع(1).xlsx

Book1-1.xlsx

للتحويل من True او Fulse الي ٠،١ داخل المصفوفة حيث ١ تعني صحيح و ٠ تعني خطأ وللفهم بشكل افضل يمكنك استخدام Evaluate formula

وعليكم السلام ورحمه الله وبركاته تفضل مثال.xlsx