طارق محمود

السلام عليكم تفضل أخي الكريم حساب متوسط الغياب2.rar

السلام عليكم أخي العزيز أكتب التعديل علي الكود الخاص ليكون كالتالي Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [J5]) Is Nothing Then Exit Sub If IsEmpty([J5]) Then Exit Sub Call Load [J5].Select End Sub

السلام عليكم أخي الكريم أرجو أن يكون المرفق هو ماتريد تفضل 5_2.rar

السلام عليكم الله عليك ياياسر وعلي كل اللي مشاركين معاك أولا : حبيت اسجل اعجابي بالفكرة وبالجهد المتميز الذي يراه اي زائر للموضوع ثانيا: وللأسف إيدي فاضية ، ومش عاوز تعليق لأني ماعنديش وقت وبعدين فكرت في كودين لقيتهم موجودين بالفعل في الملف إسمحوا لي وسامحوني جميعا وربنا يوفقكم

السلام عليكم أخي الكريم ماالأفضل لك أن تكتب البيانات مرة واحدة في شيت السيارة ويتم ترحيلها لشيت تجميعي أوتوماتيك أم ----- أن تكتب البيانات مرة واحدة في شيت تجميعي ويتم ترحيلها لشيت السيارة أوتوماتيك

السلام عليكم أخي الكريم تفضل المرفق مع الشرح في الورقات الأربعة من 1 إلي 4 أرجو أن يكون هذا ماتريد HZ_Sort.rar

السلام عليكم أخي الحبيب عذرا لانشغالي وقد اضطررت لسفر مفاجئ أرجو أن يكون هذا هو ماتريد Sub Load() 'Stop screen updating Application.ScreenUpdating = False Dim trg As Range, tbl As Range 'Check if data is OK >> STOP & exit If [j5].Value = Empty Then MsgBox "Scan Your Item Please!", vbCritical, "Loding not completed": End If [i5].Value = Empty Then MsgBox "Enter User Code Please!", vbCritical, "Loding not completed": End a = WorksheetFunction.Match([j5].Value, [A:A], 0) sht = [C1].Offset(a - 1, 0) col = [E1].Offset(a - 1, 0) Set trg = Sheets(sht).Cells(9, col) trg.Value = trg.Value + 1 [i5:o11].ClearContents MsgBox "Loding has been done successfully", vbOKOnly, "Tank you." End Sub تفضل المرفق أيضا به الكود Implant Items Control2.rar

إعطيني إسم ومسار المجلد الذي تريد الحفظ فيه

السلام عليكم أخي الحبيب / ياسر أنت مسموح لك التعديل والتغيير كما تحب ، فمؤكد أنك تعرف غلاوتك عندي أخي الفاضل abdalwahd أولا يلزمك تحسين اللغة العربية فكتابتك بها أخطاء إملائية لاتليق بمكانتك ثانيا للتعديل علي الكود في هذا الجزء ChDir "D:\" On Error GoTo 1 Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="D:\" & nm & ".xlsx" إستبدل الجزء الصغير الدال علي مكان التخزين وهو D:\ بما تحب مثلا إن كنت تريد حفظ الملف علي D:\Folder1\Folder1_1\Backup فماعليك إلا تغيير ذلك الــ D:\ إلي D:\Folder1\Folder1_1\Backup في الموضوعين المذكور بهما بالكود

السلام عليكم أخي الحبيب أولا : عدلت عنوان الموضوع لكيلا يكون مخالفا فيتعرض للحذف (حسب قواعد المشاركة) ثانيا: أنظر للورقة المسماة نموذج في المرفق إن كان هذا ماتريد فسأكمل او يكمل معك أحد الأحبة نتائج إعدادى.rar

السلام عليكم تفضل أخي المرفق وهذا هو الكود Sub Macro1() nm = [G3] & "_" & Day([E3]) & "_" & Month([E3]) & "_" & Year([E3]) ActiveSheet.Copy ChDir "D:\" ActiveWorkbook.SaveAs Filename:="D:\" & nm & ".xlsx" ActiveSheet.Shapes.Range(Array("مربع نص 1")).Delete ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).Delete ActiveWorkbook.Save ActiveWindow.Close End Sub MAYAM.rar

في التنسيق الشرطي Conditional Formatting أنظر الصورة

تفضل إضافة جدول2.rar

معادلة ممتازة والفكرة جميلة

السلام عليكم تفضل أخي المرفق إضافة جدول.rar

إذن اكتب المعادلة التالية في أي خلية بالصف الأول من الورقة =ROW()*LCM(2,3,4,5,6)+1 ثم اسحبها للأسفل بقدر ماتريد

السلام عليكم عندك حق أخي سليم أنا تسرعت بالحل لم أقرأ جيدا الحل في المضاعف المشترك الأصغرللأعداد وليس في المضروب ودالة المضاعف المشترك الأصغر هي LCM: Least Common Multiple إذن الحل كما هو بالسابق مع استبدال الدالة Fact بالدالة LCM إذن ستحتاج إلي 10 صفوف لإظهار الناتج وتحتاج لمعادلة صفيف كالتالي في عشرة صفوف {=ROW(INDIRECT("1:10"))*LCM(2,3,4,5,6)+1} وستجد النواتج 61 121 181 241 301 361 421 481 541 601

السلام عليكم الموضوع جميل وشيق تسلم أخي الحبيب ياسر (أبا البراء) علي الفكرة الحلوة ============== أخي الغالي / سليم الفكرة في سؤالك أن الأرقام المتتالية من 2 إلي 6 حاصل ضربهم بالمعادلة Fact سيكون 720 و Fact لمن لايعلم هي إختصار للدالة Factorial أي المضروب باللغة العربية وهي تعني حاصل ضرب الرقم (في حالتنا 6) من أول 6 إلي 2 (أي 6 × 5 × ... ×2) صيغتها كالتالي =FACT(6) الجزء التالي من السؤال أول 10 أرقام تقبل القسمة علي ذلك وهذا يعني 720×1 ، 720×2 ، 720×3 ، 720×4 ،،، ، 720×10 مع إضافة 1 لكل من النواتج إذن ستحتاج إلي 10 صفوف لإظهار الناتج وتحتاج لمعادلة صفيف كالتالي في عشرة صفوف {=ROW(INDIRECT("1:10"))*FACT(6)+1} وستجد النواتج 721 1441 2161 2881 3601 4321 5041 5761 6481 7201

السلام عليكم الأخت الفاضلة samia84 أرجو أن أكون فهمت ماتريدين بالمرفق تجدين التالي العمود الأول به الإسم باقي الأعمدة بيانات مختلفة (مثلا : العمر ، الطول ، الراتب ... إلخ) التلوين يتحقق إذا تحقق الشرطان 1- كانت خانة العمود الأول ليست فارغة 2- عدد البيانات في باقي العمدة يقل عن 4 (فرض من عندي كي لا يزيل اللون إلا بعد عدد بيانات معين) وتستطيعين طبعا تغييره كما تريدين شرط التنسيق هو كما بالمرفق =AND(ISBLANK($A3)=FALSE,COUNTA($B3:$K3)<4) دفتر التنقيط.rar

السلام عليكم تفضل هذا الكود يعتمد علي إضافة فواصل اعلي سطرين من الخلية التي بها حرف م (مسلسل) Sub Add_B_Brake() For r = 1 To [A9999].End(xlUp).Row If Cells(r, 1) = "م" Then ActiveSheet.HPageBreaks.Add Before:=Cells(r - 2, 1) Next End Sub والمرفق به الكود Fawasel.rar

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

السلام عليكم بعد إذن اخي العزيز / حسام ممكن يتم طباعة 10 كروت إذا لم يؤخذ في الإعتبار أي هالك مثلا نتيجة القص ربما سيكون مقاس الكارت 5.90 سم×9.90 سم بدلا من 6 × 10 سم أنظر الصورة

أخي العزيز TextBox1.Value = WorksheetFunction.Sum([A1:A100]) تفضل form1.rar

السلام عليكم لابأس ولاإزعاج فقط لاتخصص شخصا بالسؤال لكي لايتحرج آخر قد يكون لديه وقت أو حل أسرع أو أفضل

السلام عليكم أخي العزيز أولا: معذرة لتأخر الرد لانشغالي الشديد ثانيا: راجع الملف المرفق وبه ردا علي أسئلتك تفضل المرفق ملف ماكرو أصلي - للمتدي3.rar