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

تفضل اليك طلبك - وهذا شكل القائمة المنسدلة بالملف المرفق ... كما بالصورة 0001 .xlsm

Essayez ce fichier Naser_date.xlsx

بارك الله فيك استاذ محي ... ولإثراء الحل -يمكنك استخدام هذه المعادلة , مصفوفة (Ctrl+Shift+Enter) =SUMPRODUCT(0+(0&TRIM(MID(SUBSTITUTE(B2,"+",REPT(" ",10)),ROW($A$1:$A$10)*10-9,10)))) معادلة جمع1.xlsm

يمكنك هذا بهذه المعادلة =IF(ROWS($A$1:A1)>DAY(EOMONTH(DATE($D$2,$F$2,1),0)),"",DATE($D$2,$F$2,ROWS($A$1:A1))) 81.xlsx

وهذه مشاركة مع أخي الاستاذ . حسام Kanory.rar

السلام عليكم تفضل هذه المحاولة ارجو ان تكون طلبك Root111.rar

حل أخر في المرفق mrahmedyoussef.xlsx

بعد اذن الاستاذ بن علية حاجي هذا حل آخر بالكود مرفق شيت العمل.xlsm

في هذه الحالة جرب هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("J23").MergeArea = Application.WorksheetFunction.Sum(Application.ActiveWindow.RangeSelection) End Sub نموذج استلام اجهزة (1).xlsm

السلام عليكم جرب المرفق لعل في فيه ما تريد (تم عمل المطلوب بالمعادلات -بتحفظ في حالة تشابه الأسماء-)... مرفق شيت العمل.xlsx

اذا اردت حذف يومين تحتارهما اليك هذا الملف (صفحة Salim) date_without 2 days.xlsx

ليس هناك أفضل مما قدم لك والملف يعمل معى أيضاً بكل كفاءة

السلام عليكم ربما يكون ما تريد في اضافة هذا السطر للكود بعد الحلقة التكرارية If FS.Range("b6").Text = TS.Cells(er2, 1).Text Then MsgBox "هذا الاسم مكرر": Exit Sub

الأستاذ Ali Mohamed Ali أكثر من رائع بوركك لله

جرب هذا أتمنى أن يعجبك معادلة جمع2.xlsm

تفضل ... تسجيل التغيرات.rar

وعليكم السلام ورحمة الله الاخ محمد عبد السلام ما المقصود بانشاء شيت2 وترحيل نفس البيانات لي في شيت1 هل ممكن توضيح ؟ اضافة اشياء اخرى للكود لا نحتاجها قد يثقل عمل الكود اضف هذه السطور اسفل الجزء الذي يرحل الى شيت1 Dim wss2 As Worksheet Set wss2 = wx.Sheets("sheet2") Dim lr2 lr2 = wss2.Range("a" & Rows.Count).End(xlUp).row + 1 If ws.[f5].Text = "اجل" Then wss2.Range("a" & lr2).Value = Nam wss2.Range("a" & lr2).Font.Color = 255 wss2.Range("b" & lr2).Value = "اجل" Else: wss2.Range("a" & lr2).Value = Nam wss2.Range("b" & lr2).Value = "نقدي" End If

dhooowoom أين انت من هذه الإجابة الممتازة؟!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!💙

تم معالجة الأمر كما تريد 1- تدرج كل الأسماء (بدون صقوف فارغة) مع البيانات التابعة لها في الشيتت ALL_Names ( ليس من الضروري كل البيانات) 2 -في الشيت Card تضغط على الزر Get The Cards 3- في الشيت Single_Match العامود (A) تختار اي رقم (أو عدة أرقام) ثم تضغط على الزر Find For_Me وذلك للجصول على بيانات منفردة عن تلميذ واحد أو اكثر اذا كان الرقم التي اخترته غير موجود في الشيت ALL_Names يبقي الصف فارغاً Haggag_New.xlsm

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم انظر الاستعلام Query1 New Microsoft Access Database.rar تحياتي

يمكنك استعمال هذا الماكرو لنقل الأسماء الى الجداول المحصصة لكل طالب لان عملية نسخ الجدول ولضقه اكثر من مرة ليست بالأمر السهل خاصة اذا كان عدد الطلاب كبير (50 أو اكثر) فقط اضغط على الزر Give Data في الشيت Repport و ترى كل شيء امامك الجداول والاسماء فيها (بدون معادلات) عندها تملأ الداتا الحاصة لكل تلميذ و بدورها تنتقل الى الشيت ترحيل الماكرو Option Explicit Sub copy_Range() Dim S As Worksheet Dim R As Worksheet Dim i%, k%, x Dim Rg_To_Copy Application.ScreenUpdating = False Set S = Sheets("ST_names") Set R = Sheets("Repport") Set Rg_To_Copy = R.Range("A1:D13") i = 2: k = 16 R.Range("A16").Resize(1000, 4).Clear Do Until S.Range("A" & i).Offset(1) = vbNullString Rg_To_Copy.Copy R.Range("A" & k).PasteSpecial (xlAll) R.Range("B" & k + 1).Resize(10).ClearContents R.Range("D" & k + 1).Resize(10).ClearContents With R.Range("A" & k) .Offset(1, 1) = x + 2 .Offset(2, 1) = S.Range("D" & i + 1) .Offset(1, 3) = S.Range("F" & i + 1) End With k = k + 15: x = x + 1: i = i + 1 Loop Application.CutCopyMode = False Application.ScreenUpdating = True R.Cells(2, 1).Select End Sub الملف مرفق للاطلاع وإبداء الرأي Haggag_1.xlsm

تفضل -هل هذا هو المطلوب البرنامج الجديد 2021.xlsm

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم اجتهدت بقدر المستطاع ان يكون المطلوب مناسب لك ولكني وجدت اخطاء التي لم افهمها جيداً مثل 1 - حقل الاسم وحقل رقم الهوية / وجدت به تكرار وهذا غير صحيح = فيجب عدم تكرار البيانات 2 - قمت بتقسيم البيانات الى جدولين ( جدول المستضيف + جدول المرافقين ) تم اضافية بيانات الجدول الاول ( tblHost ) ولم استطع اضافة بيانات المرافقين في جدول ( tblEscorts ) فارجو ان يكون لديك طريقة مناسبة لادخال هذه البيانات او تفريغ الجداول والبدء من جديد Db_Camp.rar اي تعديلات جديدة بالخدمة اخي الكريم تحياتي

وعليكم السلام- وبما انك لم ترفع ملف فإليك الكود أيضاً بدون ملف Private Sub CommandButton1_Click() Calculate End Sub

بارك الله فيك استاذ صالح وجعل هذا العمل فى ميزان حسناتك - ورحم الله والديك , اللهم اجعلهم فى اعلى الدرجات وأدخلهم فسيح جناتك ... جنات الفردوس الأعلى واغفر لهم وارحمهم اللهم وسع فى رزقك استاذ صالح واصلح لك اولادك واجعلهم يارب ممن يستمعون القول فيتبعون احسنه وبارك اللهم لك فيهم

أحسنت استاذ أحمد بارك الله فيك

يمكنك استخدام هذه المعادلة =IFERROR(LOOKUP(1,0/(tarheel!$C$2:$C$200=$C$1)/(tarheel!$B$2:$B$200=E$2),tarheel!$A$2:$A$200),"") ترحيل3.xlsm