مصطفى محمود مصطفى

السلام عليكم ورحمة الله وبركاته الاساتذة الافاضل جزاكم الله خيرا ارجو التفضل بكود مسح بيانات صف من B الى H المكررة لجميع خلاياه مع الحفاظ على تنسيق الخلايا لان الورقة متجددة البيانات من خلال ترحيل بيانات يوميا من ورقة اخرى وبها تاريخ فيظهر كرقم وليس تاريخ لذلك احتاج ان يبقى التنسيق نفسه لكم وافر الاحترام والتقدير ... حذف الصفوف المكررة.xlsx

السلام عليكم الاستاذ سليم جزاكم الله خيرا بالنسبة لكود المسح هل يمكن تغييره بحيث يمسح فقط البيانات المكررة ويترك التنسيق لان عندما يعمل يمسح المكرر تمام لكم يقوم بمسح التنسيقات مثل التاريخ او غيره هل يمكن ان يكون المسح للبيانات ويستثني التنسيق تحياتي لكم Sub Remove_Dup() Sheets("Summary").Range("b5").CurrentRegion.RemoveDuplicates _ Columns:=Array(2, 3, 4, 5, 6, 7), Header:=1 End Sub استاذ سليم وفقكم الله هذا الكود لحضرتكم يقوم بحذف الصفوف المكررة ويبقي تنسيق التاريخ هل يمكن تجربته على ملفي لاني اضفته ولم يعمل تحياتي لكم Sub Del_row() Dim i As Long Dim lr As Long: lr = Cells(Rows.Count, 1).End(3).Row Range("CV3:CV" & lr).Formula = "=SUMPRODUCT(--(c3&d3&e3&f3&g3&h3=$c$3:c3&$d$3:d3&$e$3:e3&$f$3:f3&$g$3:g3&$h$3:h3))" Range("CV3:CV" & lr).Value = Range("CV3:CV" & lr).Value For i = lr To 3 Step -1 If Cells(i, "CV") > 1 Then Cells(i, "CV").EntireRow.Delete Next Range("CV:CV").ClearContents End Sub

شكرا لكم اخي علة لخضر وفقكم الله لكم تحياتي

السلام عليكم الاستاذ سليم جزاكم الله خيرا التعديل اكثر من رائع وهو المطلوب بالفعل حفظكم الله واعطاكم الصحة والعافية لكم وافر احترامي وتقديري

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

السلام عليكم الاستاذ سليم جزاكم الله خيرا وكما تفضل الاستاذ علي محمد جزاه الله خيرا الترحيل يكون من ورقة الترحيل وانا غيرت بالورقة ووضعت رقم 1 يدوي في العمود I وقام الكود بالترحيل الكود ممتاز ورائع لكن لي ملاحظتين بالاضافة لملاحظة الاستاذ علي اولا التكرار الذي اردت منعه هو عند ترحيل بيانات من ورقة الترحيل سهوا مرتين الى ورقة Summary في هذه الورقة Summary اذا كان المرحل مكرر سهوا يعطي تنبيه ولا يقوم باللصق الثانية الترحيل يتكرر يوميا وكل يوم انا ارحل ثلاث بيانات من الاول والثاني والثالث وربما بعد اسبوع اقل او اكثر المهم ان تكون البيانات السابقة باقية ويكون الترحيل تحت اخر صف به بيانات وفقكم الله وحفظكم وسدد خطاكم لما فيه خير الاسلام والمسلمين لكم تحياتي ووافر احترامي ترحيل لورقة واحدة Salim.xlsm

الاستاذ الفاضل بن علية حاجي حفظكم الباري عز وجل تعديل اكثر من رائع ويعمل بشكل ممتاز وفقكم الله وجعله في ميزان حسناتك تحياتي لكم الاستاذ العزيز احمد المبدع حفظكم الباري عز وجل تعديلكم للكود روعة ويعمل بشكل ممتاز وفقكم الله وجعله في ميزان حسناتكم تحياتي لكم

السلام عليكم وجدت هذا الكود في المنتدى وغيرت به ليتناسب مع الملف لكن مشكلة المكرر يعتمد على خلية واحدة وهو رقم الحساب هل يمكن جعل التكرار الصف باجمعه وثانيا لما بيرحل البيانات يترك فراغ بين الترحيل والاخر ارجو تعديله او كود اخر يفي بالغرض ولكم وافر الاحترام Sub ADD_QAID() 'If Range("H7") = False Then 'MsgBox "ÇáÞíÏ ãßÑÑ æ áÇ íãßä ÍÝÙÉ", , "ÎØÃÁ" 'Exit Sub 'End If Dim TR, CC TR = Application.CountA(Sheets("ÇáÌãíÚ").Range("C1:C55555")) + 5 Range("C6:H1000").Copy Sheets("ÇáÌãíÚ").Range("C" & TR).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub ترحيل لورقة واحدة دون تكرار.xlsm

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

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

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

السلام عليكم اخي الاستاذ المبدع سليم حفظكم الله شكرا للمعادلة الرائعة وفقكم الله ولي استفسار بسيط انا الان المعادلة تعمل بدون ان اضغط Ctrl+Shift+Enter هل مستقبلا يمكن ان لاتعمل بشكل صحيح اذا كثرت البيانات او لاي سبب اخر لكم وافر احترامي وتقديري

الحمد لله توصلت للمعادلة شكرا لمن حمل الملف وحاول والشكر للجميع تحياتي لكم =MAX(INDEX(INDIRECT(J2);;1))

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

احسنتم استاذ احمد جزاكم الله خيرا لكم وافر احترامي وتقديري

السلام عليكم ورحمة الله وبركاته الكود التالي للاستاذ ياسر خليل جزاه الله خيرا Sub SortData() Dim LR As Long LR = Range("C" & Rows.Count).End(xlUp).Row Range("C15:G1015" & LR).Sort Key1:=Range("G16:G1015" & LR), Order1:=xlAscending, Key2:=Range("E15:E1015" & LR), Order2:=xlAscending, Key3:=Range("F16:F1015" & LR), Order3:=xlAscending, Key4:=Range("D16:D1015" & LR), Order4:=xlAscending, Header:=xlYes End Sub حاولت اغير المعايير من ثلاثة الى اربعة يعطي خطا ارجو التعديل عليه او اي كود اخر يقوم بنفس الغرض وفقكم الله مع وافر الاحترام والتقدير فرز باربع معايير.xlsm

الاستاذ الفاضل بن علية حاجي وفقكم الله وحفظكم من كل سوء كود اكثر من رائع لكم وافر احترامي وتقديري

شكرا لكم استاذ احمد المشكلة برقم 1 يطبع اثنين اذا كان واحد اما اذا اكثر يطبع عادي بدون مشاكل ارفقت ملف للتوضيح تحياتي لكم

السلام عليكم ورحمة الله وبركاته الكود التالي هو لطباعة الكل لكن محدد بعدد عندما اضع له رقم 1 يعني ورقة واحدة يقوم بطباعة الثانية اما اذاكان العدد اكبر من واحد يعمل بشكل صحيح لااعرف المشكلة ارجو تعديله مع وافر الاحترام والتقدير Sub طباعة() Range("n3").Select ActiveCell.FormulaR1C1 = "1" ActiveSheet.PageSetup.PrintArea = "$B$2:$m$42" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 1 ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value >= Range("d1").Value Range("E1").Select End Sub كود الطباعة.xlsm

بعد اذن الاستاذ علي جزاه الله خيرا لاحظ التعديل حسب طلبكم تحياتي برنامج قوائم الفصول++.xls

السلام عليكم للرفع رفع الله مقامكم في الدنيا والاخرة

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

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

شكرا استاذنا العزيز ahmedkamelelsay وفقكم الله وفتحت لنا الباب قمت بتعديل المعادلة في ورقة المجموع السنوي ووضعت معادلة احصاء بشرط ( غ ) =IF($C16="";"";COUNTIF(OFFSET(hben!$A$15;$B16;MATCH(G$14;hben!$12:$12;0)-1;;31);"غ")) لكم تحياتي ووافر احترامي

السلام عليكم : الاساتذة الافاضل جزاكم الله خيرا في ملف كشف غياب وحضور الطلاب للاستاذ بلال العجوري ارجو عمل معادلات لاستخراج خلاصة الغياب وخلاصة للمجاز شهريا لكم تحياتي خلاصة كشف غائب ومجاز شهريا.xlsm