أ / محمد صالح

جميعا بإذن الله تعالى

عليكم السلام ورحمة الله وبركاته يمكنك استعمال هذا الكود في حدث عند التغيير Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$2" Then Call ter End If End Sub كلك يمين على اسم الشيت ثم view code ثم لصق في الناحية اليمنى بالتوفيق

الحمد لله الذي وفقنا لهذا

جميعا بإذن الله

الحمد لله الذي وفقنا لهذا

بعد إذن حبيبنا @omar elhosseini يمكنك استعمال هذه الأكواد في صفحة Rooming list كلك يمين ثم view code ثم تلصق هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Or Target.Row <= 2 Then Exit Sub If Target.Column = 3 And Target.Value <> "" And Not (sheetExists(Target.Value)) Then Call newsh(Target.Value) End If End Sub Function sheetExists(sheetToFind As String) As Boolean sheetExists = False For Each Sheet In Worksheets If sheetToFind = Sheet.Name Then sheetExists = True Exit Function End If Next Sheet End Function Sub newsh(newname As String) OptimizeVBA 1 Sheets("Aqua Park HRG").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = newname ActiveSheet.Range("K2") = newname OptimizeVBA 0 End Sub Sub OptimizeVBA(isOn As Boolean) Application.Calculation = IIf(isOn, xlCalculationManual, xlCalculationAutomatic) Application.EnableEvents = Not (isOn) Application.ScreenUpdating = Not (isOn) ActiveSheet.DisplayPageBreaks = Not (isOn) End Sub وبه من كنوز مكتبتي الخاصة الكثير من التحف التأكد من وجود اسم الشيت تحسين سرعة الأكواد في vba بالتوفيق

يمكنك استعمال دالة offset Sub offsetplus() ActiveCell.Value = ActiveCell.Offset(0, -3).Value + 3 End Sub مع ملاحظة 0 تعني في نفس الصف رقم -3 تعني الخلية الثالثة السابقة رقم +3 تعني الرقم الذي يتم إضافته بالتوفيق

لو أمكن رفع الملف الخاص بالأستاذة حتى نرى هل يمكن التعديل عليه

جميعا بإذن الله

عليكم السلام ورحمة الله وبركاته تفضل أخي الكريم تم الاستغناء عن زر استعلام حيث يتم الاستعلام بمجرد الاختيار من القائمة وتم اختصار كود زر الحذف بعد تصويبه حيث كان يعتمد على الخلية H5 والصواب J5 بالتوفيق نموذج شئون عاملين أزهر.xlsm

جميعا بإذن الله

بعد إذن حبيبنا @Ali Mohamed Ali هذه محاولة لعرض تقرير الغياب الشهري لجميع الأقسام بصورة يمكن طباعتها بعد إخفاء الأعمدة الفارغة بالتوفيق تقرير غياب الموظفين في شهر.xlsx

عليكم السلام ورحمة الله وبركاته للحصول على الاسم الأول يمكنك استعمال هذه المعادلة =LEFT(N14,FIND(" ",N14)-1) وللحصول على الاسم الأخير يمكنك استعمال هذه المعادلة =RIGHT(N14,LEN(N14)-FIND("*",SUBSTITUTE(N14," ","*",LEN(N14)-LEN(SUBSTITUTE(N14," ",""))))) تم تدمج الحلايا الثلاث في خلية واحدة التي بها الرقم والاسم الأول والاسم الأخير =aj1&" "&aj2&" "&aj3 وتكون هذه هي خلية اسم الشيت بالتوفيق

جميعا بإذن الله

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

فكرة سيطة وتنفيذ ولا أروع

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

جميعا بإذن الله

يمكنك استعمال هذه المعادلة في الخلية D3 =IF(OR(A3=0,A3=""),"",C3-22) بالتوفيق

يمكنك استعمال هذه المعادلة في الخلية D12 =IFERROR(IF(INDEX(D$6:D$10,MATCH($C12,$C$6:$C$10,0))="",CHAR(251),IF(COUNTIF($C12:C12,CHAR(252))>=$L12,CHAR(251),CHAR(252))),"") مع تغيير نوع الخط في هذه الخلية إلى wingdings لتظهر علامة الخطأ والصواب مع سحب المعادلة يمينا ثم أسفل بالتوفيق

أعلم هذا جيدا فأنا رئيس كنترول في مدرسة ثانوي لكن الكود الخاص بكم لا يعتمد هذا الأسلوب فقط عدلت ألا يزيد عدد الأرقام السرية عن عدد العشرة بالمائة والأسلوب الصحيح: مراجعة ورقة واحدة من كل 10 ورقات يحتاج إلى الكثير من التخطيط أولا لكي يتم برمجته: ماذا لو لم يوجد درجة أعلى من الدرجة المطلوبة في أول 10 ورقات؟ أو ثاني 10 ورقات .... إلخ ؟ هل يتم إنزال الدرجة المطلوبة درجة ؟ أم رصد أعلى ال 10 ورقات ؟ ولكل من هذين الخيارين موااااااال إن شاء الله اساهم في برمجة نسبة ال 10 بالمائة بصورة أدق حسب وقت الفراغ بالتوفيق

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

المطلوب غير واضح لي بصورة كافية ربما لو ارفقت الملف مع توضيح المطلوب بمنتهى التفصيل تنتهي المشكلة بإذن الله

يمكنك استعمال دالة sumifs للجمع باكثر من شرط في الخلية D6 =SUMIFS(Data!D:D,Data!C:C,C6,Data!A:A,">="&$C$4,Data!A:A,"<="&$E$4) بالتوفيق