طارق محمود

السلام عليكم

أخي الكريم

الكود في حدث الوزرقة
أي أنه يتم تفعيله أوتوماتيكيا إذا حدث التغيير المناسب في هذه الورقة

ويعتمد الكود علي خطوتين
1- إذا تم إختيار خلية بالعمود E ، يتم تسجيل محتوي هذه الخلية ، وهذا هو الدور القديم للموظف قبل التغيير
2- إذا تم تغيير خلية بالعمود E ، يتم نقل الدور القديم (الذي تم تسجيله) وبيانات الموظف  لمساحة التغييرات
تفضل المرفق
تتبع التغيرات.xlsm

السلام عليكم
أختنا الكريمة
مرفق الملف به ماطلبتي إن شاء الله
ملاحظة
في مثل هذه الحال ، يمكنك حذف كثير من البيانات لتقليل حجم الملف علي الموقع يعني بدلا من بيانات أكثر من 10,000 طالب يكفي 100 أو 200
وفقط نأخذ المعادلة ونطبقها
أنا عملت كده وبدلا من إرسال 27 أو 28 ميجا ، فقط 0.028 ميجا
تجريب2.xlsx

السلام عليكم
طريقة تحديد جميع الخلايا عدا خليتين؟؟
الخطوة الأولي :تحديد جميع الخلاياCTRL+A كما أشرت
الخطوة الثانية : تضغط CTRL فقط وتشير بالماوس علي ما تريد من خلايا ليتم إستثناؤها من الإختيار

السلام عليكم
تفضل الحل بالمعادلات
2مثال.xlsx

السلام عليكم
تفضل أخي الملف المرفق
ترحيل على رقم الفوج.xlsm

السلام عليكم
بعد إذن أخونا مهند
أهلا ومرحبا أخي الكريم محمد
هذه أول مشاركة لك 
لذلك سأرد عليك ولكن برجاء الإلتزام بقواعد المنتدي لنشر مسألتك لكي توفر الوقت علي نفسك وعلي من يريد المساعدة
أخي الفاضل
لو فرضنا أن أحد هذه الأرقام في الخلية A2 مثلا
فلتضع المعادلة التالية في اي خلية ولتكن B2 
=DATE(RIGHT(A2,4),MID(A2,4,2),LEFT(A2,2)) ثم تنسق تلك الخلية الجديدة (B2) بتنسيق التاريخ الذي تريده
مرفق ملف به ماطلبت mohamed elzan.xlsx

السلام عليكم
أخي الكريم
أنا مشغول ولا أدخل المنتدي إلا قليلا
عموما ، لكي نفهم سويا كيف تعمل المعادلة IFERROR
سنشير لعملية البحث بالمتغير X ، هذا يعني أن

هذه المعادلة تقول
 أن إبحث البحث الأول X1 وإذا أعطي خطأ إبحث الثاني X2
                     
   وتكون عملية البحث الثلاثي تعني 

 أن إبحث البحث الأول X1 وإذا أعطي خطأ إبحث الثاني X2 وإذا أعطي خطأ إبحث الثالث X3
 
   وتكون عملية البحث المطلوب الخماسي تعني 

أن إبحث البحث الأول X1 وإذا أعطي خطأ إبحث الثاني X2 وإذا أعطي خطأ إبحث الثالث X3
وإذا أعطي خطأ إبحث الرابع X4 وإذا أعطي خطأ إبحث الخامس X5
 
 
فإذا كانت هذه المتغيرات الخمسة تعني التالي:
 
X1 = VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[A.xlsx]ورقة1'!$A$1:$C$21,3,0) X2 = VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[B.xlsx]ورقة1'!$A$1:$C$21,3,0) X3 = VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[C.xlsx]ورقة1'!$A$1:$C$21,3,0) X4 = VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[D.xlsx]ورقة1'!$A$1:$C$21,3,0) X5 = VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[E.xlsx]ورقة1'!$A$1:$C$21,3,0)
إذن المعادلة المطلوبة ستكون
  =IFERROR(IFERROR(IFERROR(IFERROR(VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[A.xlsx]ورقة1'!$A$1:$C$21,3,0),VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[B.xlsx]ورقة1'!$A$1:$C$21,3,0)),VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[C.xlsx]ورقة1'!$A$1:$C$21,3,0)),VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[D.xlsx]ورقة1'!$A$1:$C$21,3,0)),VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[E.xlsx]ورقة1'!$A$1:$C$21,3,0))  

ايام اجازات في نفس الفترة ، تكتب يدوي في الخلية I2 اللي لونها أخضر وهي أوتوماتيك تدخل بالحساب
بالنسبة لدوام يوم السبت اللي 6 ساعات ، أضفت له أعمدة بورقة البيانات من العمود M وإلي اليسار
وبالطبع سيؤثر ذلك في الجدول المحوري بالورقة 2
وعدلت مايلزم في المعادلات
تفضلي الملف
تقرير البصمة2.xlsx

السلام عليكم
أخي الكريم
ستجد بالملف المرفق بعض المعادلات المساعدة في الأعمدة من K إلي BP
وبيانها كالتالي:
السطر الأول باللون الأزرق يعبر عن رقم الشهر العربي في حال يساوي 9 يعني هذا سيوافق رمضان
السطر الثاني حساب بفارق 4 شهور حسب الموجود بالخلية G5 وإذا تغيرت المدة في المستقبل ، فقط غير تلك الخلية
السطر الثالث يقر التاريخ بعد مراجعة أنه لايكون الشهر رمضان ولا ديسمبر
السطر الرابع لابد أن تملؤه كلما قبضت ربحية السهم أو الككوبون ويمكنك من كتابة شيء إلا "نعم" أو "لا"

*** إذا ذهبت بالماوس لليمين ستجد أن التاريخ 11/02/2027 سيوافق رمضان وبالتلي ستجد السطر السفلي يتعدل أوتوماتيكيا
وكذلك التاريخ 11/11/2035 سيوافق رمضان وبالتلي ستجد السطر السفلي يتعدل أوتوماتيكيا
وكذلك التاريخ 11/12/2036 سيوافق ديسمبر وبالتلي ستجد السطر السفلي يتعدل أوتوماتيكيا

وأخيرا الخلية التي بها التنبيه ، جعلت لون الفونط أبيض لكي لا يظهر إلا إذا كان باقي علي الموعد يوم أو تجاوزه ولم تعلم عليه ب "نعم" ، سيظهر باللون الأحمر

تستطيع تغيير محتوي خلية ناريخ اليوم (E2) يدويا كأنه يوم واحد قبل الإستحقاق لتري النتيجة ثم تعيدها مرة أخري

تفضل وأخبرني
 
الاسهم.xls

السلام عليكم
تفضل أخي الملف به المعادلات بالأزرق والأعمدة علي اليسار بالأحمر تستطيع إخفاؤها لكن لاتلغيها فهي داخلة في تركيب المعادلات
الاجازات جودة.xlsx

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

تفضل المطلوب
تغير الفصول.xlsm

السلام عليكم
أخي الكريم
شرح سريع للحل
يمكنك إختيار فترة الترحيل بالدقائق من الأسهم  عند الخلايا N1:N4 والتي تغير بالخلية M2 أو N2 وهي التي تحدد فترة الترحيل بالكود
ثم بإستخدام هذا الكود يتم مقارنة الفترة منذ آخر ترحيل وبناءا عليها يتم أو لايتم عمل النسخ من البيانات
لم أحذف الباينات في الشيت الأول ، فقط نسختها <<يمكن جعل الكود يمسحها بعدما تترحل >>
وفي آخر الكود يطلب تشغيل كود آخر وظيفته تشغيل عداد زمني بالفترة المطلوبة ليطلب بعدها تشغيبل الكود الأول مرة أخري
 
Sub AutoTarheel() Sheets(1).Activate e = Now - [j1] x = [n2] / 24 / 60 If e >= x Then With Sheets(2) LR = .[A9999].End(xlUp).Row If LR <> 1 Then LR = LR + 1 [A1:F20].Copy .Cells(LR, 1) End With [j1] = Now End If Call Rept ' for starting timer again End Sub Sub Rept() t = "00:" & Format([n2], "00") & ":00" Application.OnTime Now + TimeValue(t), "AutoTarheel" End Sub
 تفضل الملف وبه الكود
dddata.xlsm

السلام عليكم
تفضل المرفق
max-min-2.rar

وعليكم السلام
ممكن استخدام الفلتر العادي في هذه الحالة
 
أنظر الفيديو المرفق
 
filter.rar

السلام عليكم
أخي العزيز
جرب التعديل التالي ، فأنا لم اجربه
Sub Transfer()   Application.ScreenUpdating = False     On Error Resume Next     Dim Cell As Range, T As String, LR As Long, LRT As Long     Dim WS As Worksheet, Answer As Long     Set WS = Sheets("1")     LR = WS.Cells(35, 3).End(xlUp).Row     nR = 6 10   If Cells(nR, "H").Value = "تم الترحيل" Then nR = nR + 1: GoTo 10     If nR > LR Then MsgBox "لن يتم الترحيل : برجاء ضبط العمود إتش": Exit Sub     T = WS.Range("A3").Value     Application.ScreenUpdating = False     WS.Unprotect "2191612"         If Not IsEmpty(WS.Range("C6")) Then             With Sheets(T)                 .Unprotect "2191612"                 LRT = .Cells(Rows.Count, 3).End(xlUp).Row + 1                 WS.Range("B" & nR & ":G" & LR).Copy                 .Cells(LRT, 2).PasteSpecial xlPasteValues                 .Protect "2191612"              End With             WS.[H6].Value = "تم الترحيل"             WS.Range("H6:H" & LR).FillDown             Sheets("1").Select             ActiveWindow.SmallScroll Down:=-12             Range("A3,C6").Select         Else             MsgBox "الخلية المحددة فارغة لذا لن يتم تنفيذ الكود": Exit Sub         End If     WS.Protect "2191612"     Application.CutCopyMode = False     Application.ScreenUpdating = True End Sub

السلام عليكم
تفضل
 
اكبر قيمة2.rar

السلام عليكم
أخي الحبيب / أبوحنين
شاكر مرورك طبعا وجزاك الله خيرا
بالنسبة للمعادلة ، سأشرح واحدة والباقي مثلها
صيغة المعادلة كالتالي:
=LOOKUP(2,1/A,B) حيث
A هي تاريخ دفعات
، B هي مبلغ الطلبية مثلا
فيها تسأل الدالة LOOKUP أن تبحث لك عن الرقم 2 في المجال الناشيء عن قسمة 1÷تاريخ دفعات
وحيث أن ناتج قسمة 1÷تاريخ دفعات سيكون دائما اقل من الواحد الصحيح
فنحن نعلم مسبقا أن الاكسل لن يجد الرقم 2 الذي يبحث عنه
وبالتالي سيأتي بآخر قيمة في العمود المطلوب وهو في هذا المثال (مبلغ الطلبية)

السلام عليكم
تفضل المرفق أخي الكريم
2015برنامج الأقساط الخاصة_2.rar

السلام عليكم
تفضل أخي الكريم المرفق
كشف حساب التأخير.rar

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

تفضل
12345_New4.rar

الملف لم يٌرفع بعد
يلزمك ضغطه أولا بصيغة winrar أو  winzip ثم رفع الملف المضغوط
==========
مرفق ملف به المعادلة التي أوضحتها لك في المشاركة السابقة
Round.rar

السلام عليكم
تفضل أخي 
جرب الكود التالي
Sub dataselect() T = [D21] ' Target Number [B:B].Interior.ColorIndex = xlNone LR = [B99999].End(xlUp).Row For r = 2 To LR - 1     Sm = Cells(r, 2)     For j = r + 1 To LR         Sm = Sm + Cells(j, 2)         If Sm > T Then GoTo 10         If Sm = T Then GoTo 20     Next j 10 Next r Exit Sub 20 Range(Cells(r, 2), Cells(j, 2)).Interior.ColorIndex = 4 Cells(r, 3).Select MsgBox "Rows from " & r & " to: " & j End Sub وهذا المرفق به الكود
 
SUM.rar

السلام عليكم
وبعد إذن الإخوة الأعزاء جميعا ولمزيد من الإثراء
 
أخي العزيز
ضع هذا الكود في حدث الورقة
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count <> 1 Then Exit Sub     With ActiveSheet.ListObjects(1)         S_Rw = .Range.Row + 1         L_Rw = .ListRows.Count + S_Rw - 1     End With     If Intersect(Range(Cells(S_Rw, 2), Cells(L_Rw, 2)), Target) Is Nothing Then Exit Sub     Cells(Target.Row, "E") = Time     Cells(Target.Row, "F") = Date End Sub يعتمد الكود علي أن يحدث تغيير في إحدي خلايا الجدول بالعمود B عندها يكتب أوتوماتيكيا قيمة الوقت والتاريخ في عموديهما لحظة هذا التغيير 
 
تفضل المرفق أيضا
 
 
طلب دالة أو كود يثبت الوقت والتاريخ تلقائياً.rar