نجوم المشاركات

هذه معادلة صفيف بسيطة لجلب القيم الفريدة دون أعمدة مساعدة ونظرا لأنك تستخدم أوفيس أعلى من 2003 فستكون معادلتك كالأتى =IFERROR(INDEX($A$2:$A$14; MATCH(0;COUNTIF($B$1:B1;$A$2:$A$14);0));"") وذلك للتخلص من قيم الخطأ تقبل تحياتى حذف التكرارات.rar

..... شاهدوا المرفق أخوكم عماد الحسامي

السلام عليكم جرب الكود التالي Sub KH_START() Dim cel As Range Dim LR As Integer, M As Integer, c As Integer With ورقة2 LR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 M = Val(CStr(Application.Match(ورقة1.[F1], .Range("A2:A" & LR), 0))) If M Then M = M + 1 For c = 1 To 5 .Cells(M, c + 2).Value = Val(.Cells(M, c + 2)) + Val(ورقة1.Range("B8").Cells(1, c)) Next Else .Cells(LR, "A").Value = ورقة1.[F1] .Cells(LR, "B").Value = ورقة1.[C1] .Cells(LR, "C").Resize(1, 5).Value = ورقة1.Range("B8:F10").Value End If End With ورقة1.Range("C1,B8:F10").ClearContents End Sub المرفق 2010 T.rar

اعتقد اني فهمت مطلوبك ولكن كيف يدخل بيانات جديدة لو اراد ؟ ... هل يمسحها ويكتب بدلها ؟ اذا كان جوابك نعم .. فالافضل ان تصنع زر لتكرار البيانات في سجل جديد ، مع استخدام الكود السابق عند فتح النموذج

جزاك الله خيرا أخي الحبيب

بعد إذن أستاذى العبقرى" الخالدى " ولأثراء الموضوع بعد حله الرائع هذا حل أخر بطريقة أخرى ملحوظة : المعادلة معادلة " صفيف " أى لابد من الضغط على " CTRL+SHIFT+ENTER " =SMALL(IF(1-ISNUMBER(MATCH($A$2:$A$7+(COUNTIF(OFFSET($A$2;ROW($A$2:$A$7)-MIN(ROW($A$2:$A$7));;ROWS($A$2:$A$7)-ROW($A$2:$A$7)+MIN(ROW($A$2:$A$7)););$A$2:$A$7)/10^6);$B$2:$B$7+(COUNTIF(OFFSET($B$2;ROW($B$2:$B$7)-MIN(ROW($B$2:$B$7));;ROWS($B$2:$B$7)-ROW($B$2:$B$7)+MIN(ROW($B$2:$B$7)););$B$2:$B$7)/10^6);0));$A$2:$A$7);ROWS($1:1)) تقبل تحياتى

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

الأستاذ / محمد الخازمي السلام عليكم ورحمة الله وبركاته إليك الشرح والخطوات أرجو ان أكون وفقت في الشرح. الشرح.rar

الأستاذ / أحمد مجدي السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ الريفي وجزاه الله خيراً على الحل وإليك الملف لعله المطوب. احتساب الدخول والخروج.rar

السلام عليكم ورحمة الله وبركاته تفضل أخي الفاضل لعله المطلوب Book-braa.rar

السلام عليكم ورحمة الله وبركاته اخي : أبو خليل بارك الله فيك وجعله في ميزان حسناتك ولكن التعبير me.text=Dmax("text","mytble")+1 اين أكتبه في الجدول لكي احصل على الترقيم التلقائي

Record Source لتحديد مصدر السجلات للنموذج في أي مرحلة ، عند التحميل ، بعد إنهاء عملية فرز أو بحث أو ..... Form.RecordSource = "SELECT tbl1ref08.* FROM tbl1ref08;" أو يكون جملة Form.RecordSource = "SELECT tbl1ref08.* FROM tbl1ref08" _ & " WHERE (((tbl1ref08.[strCenter]) Like '" & MyStr & "' & '*'));" >>>>>>>>>>>>>

أخواني الأعزاء والرائعين وائل سلامي hageb موهبة abumaher الجزيرة - أبو عبدالله البروفيسور / خبور لا أجد من الكلمات ما أستطيع أن أوفيكم به حقكم عليّْ ولا أملك في هذه اللحظة إلا أن أدعو لكم بكل خير في الدنيا والآخرة . وإليكم الملف الثالث وهو يتناول دوال ( إحصاء المعطيات ) تقبلوا حبي وامتناني . ______________.rar

إخواني الأعزاء / سمير - وائل - إسلام أشكركم من كل قلبي على تشجيعكم ونزولاً على رغباتكم أواصل بعون الله تعالي وأسأله جل وعلا لكم ولي التوفيق والهداية لكل خير . وهذا الملف يتناول دوال ( استخدام الأسماء ) وإليكم الملف . _______________.rar