محمد هشام.

اخي الفاضل. هل تقصد تغيير الحالة بناءا على التاريخ الموجود في عمود D

على حسب ما فهمت من طلبك ضع هذه المعادلة في الخلية B10 =SIERREUR(SI(B10="";"";DATEDIF(B10;D10;"d"));"") و اسحبها حتى آخر صف وفي الخلية E10 =SI(C10="";"";SI(C10<=25;"Pending";SI(C10=26;"Notify";SI(C10=27;"Notify";SI(C10=28;"Notify";SI(C10=29;"Notify";SI(C10>=30;"Done"))))))) و اسحبها حتى آخر صف Test-M-H.xlsx

تفضل اخي نفذ الخطوات التالية test.xlsx او حاول ترفع الملف مرة أخرى هل الشيت به معادلات؟

الملف المرسل غير صالح !!!!!

جرب اخي تعديل.rar

taqrer.xlsm

تفضل اخي نفذ الخطوات التالية https://streamable.com/851pys

كان لازم اخي تضيف هذا الكود في حدث الشيت 😄 Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect If Not Intersect(Sheets("Sheet1").Range("N9"), Target) Is Nothing Then Range("N24").Value = Range("N24").Value + 1 End If ActiveSheet.Protect End Sub جرب اخي الكريم الملف المرفق اضافة رقم الطباعة.xls

tabl12-M_H.xlsm

يمكنك استخدام الاكواد التالية : Sub M_H_AverageColumns1() Application.ScreenUpdating = False Dim i As Integer Dim j As Integer Dim k As Integer Dim l As Integer j = 8 k = 9 l = 10 Do Until j > 47 For i = 11 To 55 If (Cells(i, j).Value + Cells(i, k).Value) / 2 = 0 Then Cells(i, l).Value = "" Else Cells(i, l).Value = (Cells(i, j).Value + Cells(i, k).Value) / 2 End If Next i j = j + 3 k = k + 3 l = l + 3 Loop Application.ScreenUpdating = True End Sub او هدا Sub M_H_AverageColumns2() Application.ScreenUpdating = False For i = 8 To 49 Step 3 Set u = Range(Cells(11, i + 2), Cells(55, i + 2)) u.Value = Evaluate("=(" & Range(Cells(11, i), Cells(55, i)).Address & "+ " & Range(Cells(11, i + 1), Cells(55, i + 1)).Address & ")/2") Next Application.ScreenUpdating = True End Sub ولتفريغ نفس الاعمدة بمكنك استخدام الكود التالي Sub M_H_clearColumns() Dim i As Integer Dim j As Integer Dim k As Integer Dim l As Integer Application.ScreenUpdating = False j = 8 k = 9 l = 10 Do Until j > 47 For i = 11 To 55 Cells(i, l).Value = "" Next i j = j + 3 k = k + 3 l = l + 3 Loop Application.ScreenUpdating = True End Sub تمت اضافة الاكواد للملف المرفق tabl12-M_H.xlsm

غالبا ما تظهر هذه الرسالة اخي الكريم بسبب بعض الأخطاء غير المرغوب فيها يتجمد ملف Excel وبالتالي اخي الكريم أثناء حفظ الملف تظهر رسالة خطأ مثل "Fixed Objects Will Move". اما في حالتك هذه كما ذكرت ان الرسالة تظهر اثناء عمل الفلترة فغالبا اخي الفاضل انه لديك بالملف كائنات ثابتة يمكن أن تشير "الكائنات الثابتة" إلى العديد من العناصر ، مثل التعليقات والرسومات وعناصر التحكم وما إلى ذلك. تعتبر "ثابتة" لأنها توضع في مكان على ورقة العمل ثم يحاول Excel الاحتفاظ بها في هذا المكان. إذا كنت بحاجة إلى الاحتفاظ بالعناصر ، فيمكنك محاولة التخلص من الإشعار عن طريق إخبار Excel بأنه لا بأس من تحريك الكائنات. يتضمن هذا تغيير الخصائص لكل كائن - انقر بزر الماوس الأيمن فوق الكائن واختر خصائص ، ثم حدد أو امسح خانة الاختيار التي تتحكم في إمكانية تحرك الكائن. في حالة كنت واضع حماية للشيت حاول تفعيل هذا الامر او استخدام الكود التالي Sub M_H() Application.ScreenUpdating = False On Error Resume Next With Worksheets("Sheet1") .EnableOutlining = True .EnableAutoFilter = True .Protect Password:="الرقم السري للشيت", _ Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _ AllowFormattingCells:=True End With Application.ScreenUpdating = True End Sub

تسديدات كل سنة M_H.xlsx

بالنسبة للسؤال الأول نعم يمكنك ذلك عبر وضع زر به كود لطباعة مدى معين وبناءا عليه يتم إظهار عدد مرات طباعة المدى في خانة من إختيارك يزيد بمقدار +1 عند كل أمر بالطباعة اليك مثال لدالك باسم منتدى اوفيسنا في الملف المرفق يمكنك فقط تعديل الكود حسب ما يناسبك. واتمنى يكون هدا هو المطلوب🤔 مثال _حساب عدد مرات الطباعة.xlsm

بالنسبة للسؤال الأول نعم يمكنك ذلك عبر وضع زر به كود لطباعة مدى معين وبناءا عليه يتم إظهار عدد مرات طباعة المدى في خانة من إختيارك يزيد بمقدار +1 عند كل أمر بالطباعة اما بالنسبة للاستفسار رقم2 يمكنك وضع هدا الكود في حدث ورقة العمل لديك Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Sheets("Sheet1").Range("A2"), Target) Is Nothing Then Range("B2").Value = Range("B2").Value + 1 End If End Sub (يمكنك تعديل الكود على حسب موضع الخانات لديك) لمزيد من الشرح اليك اخي الفاضل الملف يتضمن العداد مع اضافة الارقام العشوائية بواسطة القائمة المنسدلة يتبع الطلب الأول......... M-HICHAM.xlsm

فعلا لم أنتبه لوجود اليوزرفورم 🤔🤔🤔

تفضل اخي ربما هذا طلبك اخفاء ورقة عمل في الكمبوبوكسM-H.xlsm

بعد إذن الأستاذ المشرفي مثال لو لدينا هذه الجملة :officena#2022Abc في الخانة A3 الحصول فقط على كلمة officena يمكنك وضع المعادلة في الخانة.( b3) =SUBSTITUE(SUBSTITUE(SUBSTITUE(A3; "#";""); "2022"; ""); "Abc"; "") و للحصول فقط على الرقم 2022 يمكننا هكذا =SUBSTITUE(SUBSTITUE(SUBSTITUE(A3; "#";""); "Abc"; ""); "officena"; "") حذف كلمة او رقم او رمز بالمعادلات.xlsx إليك بعض الأمثلة الأخرى في الملف المرفق

اخي الفاضل لحذف (محمد محمد نوفل) من جميع أوراق العمل هناك طرق تقليدية تغنيك عن الاكواد .لاكن في حالة إختلاف مكان وجود الإسم أي( رقم الصف من ورقة لأخرى) يكون الكود أسرع وأدق. الكود التالي يقوم بالبحث عن الإسم الهدف في عمود الأسماء كله ويحذف الصف كاملا عند وجوده Sub Delete() Dim ws As Worksheet Dim LastRow As Long, i As Long For Each ws In ThisWorkbook.Worksheets With ws LastRow = .Cells(.Rows.Count, 4).End(xlUp).Row For i = LastRow To 1 Step -1 If .Cells(i, 4).Value = "محمد محمد نوفل" Then .Rows(i).EntireRow.Delete End If Next i End With اما بالنسبة لاضافة صف استخدم الكود التالي مع تغيير الرقم 14 بالصف المطلوب Sub insertRow() Dim insertBeforeRow insertBeforeRow = 14 ActiveSheet.Rows(insertBeforeRow).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End Sub Next ws End Sub تمت اضافة الاكواد للملف المرفق سجل مراجعة فرع الإسكندرية (3)M-H.xlsm

تفضل اخي تم تعديل المطلوب 42-Protect.xlsm

تفضل اخي qu-M-H.xlsm

تفضل اخي جرب ربما يكون هذا طلبك جلب بيانات بين تاريخين M-H.xlsm

نعم اخي الفاضل يمكنك ارفاق نسخة من الملف للتعديل

تفضل اخي تم تنفيذ المطلوب Book1 M-H.xlsx

تفضل اخي الكريم يمكنك استخدام المعادلة التالية في الخانة D16 =SOMMEPROD((($I$2:$I$13=B16))/NB.SI.ENS($I$2:$I$13;$I$2:$I$13&"";$D$2:$D$13;$D$2:$D$13&"")) M-H نموذج.xlsx

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