مستخدم الاوفس

السلام عليكم ورحمة الله وبركاته اخاوني الاعزاء لدي جدول اكسل يحتوي على بيانات كبيرة وهو مرفق طياً فيه مجموعه اسماء الاسم يتكرر بحسب ايام الشهر انا بحاجة الى عند الضغط على الزر السم التالي يتم الانتقال الى الاسم فيقوم بعرضه من اول يوم الى اخر يوم حسب المثال المرفق بحيث يقوم عرض الموظف داخل الاطار الغامق المثال.xlsx

السلام عليكم اخي . ممكن تشرحلي هذه الأسطر: Else Dic(Cells(i, 2).Value) = _ Dic(Cells(i, 2).Value) & " * " & _ Cells(i, 4).Value & " " & Cells(i, 3) End If هذه الاضافة في حال وجد الاسم نفسه ، هل الاضافة في dic تكون على ال key ام على item. ام على الاثنان ؟ واذا كانت على الitem فكيف تحدد ذلك؟ حيث اني ارى ان الاسم يضاف في كل مرة بالإضافة الى الحالة و التاريخ ، هل هذا صحيح؟ ارجو التوضيح .

السلام عليكم ورحمة الله وبركاته لدي مشكله وهي عدم تحقق الشرط في هذا الكود \ ElseIf Marks = "V" And sw.Cells(x, 6).Value > "8:00:00 AM" Then sw.Cells(x, 9).Value = " حضور متأخر" ممكن اعرف سبب عدم تحقق هذا الكود للشرط هل توجد خطأ في الصيغة الكود لا يعمل وفقكم الله

شكراً جزيلاً اكيد افدتني

وفقك الله لكل خير وشكراً جزيلا جار التحقق من الحل الف شكر اخي اخل العزيز هل من الممكن ان نضيف فكرة بسيطة وهي في خالة ان تتكرر الملاحظة مثلاً غياب 1/1/2019 وغياب 2/1/2019 وغياب 3/1/2019 هل من الممكن ان تكون في الملخص بالصورة التالية غياب 1/1/2019 لغاية 3/1/2019 هذا ليس فقط للغياب وانما ايضاً باقي الملاحظات الاخرى كذلك وفقك الله لكل خير

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

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

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

السلام عليكم ورحمة الله وبركاته يوجد لدي تقرير شهر لكل موظف هذا التقرير موجود في المثال المرفق يضمن التقرير 1- رقم الموظف 2- اسم الموظف 3- القسم 4- التاريخ 5- الوقت الحضور الصباحي 6- الوقت الخروج المسائي 7- المتغيرات يكون الاسم والرقم مكرر حسب ايام الشهر لدي لكل موظف مجموعه من المتغيرات التي تطرأ على هذا الموظف مثلاً من يوم 1 الى يوم 10 لديه اجازه ....مؤشرة في حقل المتغيرات "ج" من يوم 11 الى يوم 19 لديه دوام .... مؤشر في حقل المتغيرات "v" وجب ان يكون لديه في حقل الوقت الصباحي والوقت المسائي (وقت) يوم 20 لديه اجازة اضطرارية ... مؤشر في الحقل المتغيرات "س" من يوم 21 الى يوم 30 او 31 حسب الشهر لديه واجب .... مؤشر في حقل المتغيرات "و" ملاحظة هامه هذه البيانات متغيرة من شخص الى اخر ومن شهر الى اخر لكن المتغيرات ("ج"-"V"-"و"-"س") هي ثابته وكن ايامها تتغير ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ المطلوب هو كود يقوم بالتحقق من الحلات التاليه لديه اجازة من 1-10 يكتب في العمود الاخير يكتب ok لديه لدوام من 11-19 يتحقق من الوقت الدخول الصباحي ووقت الدخول المسائي موجود يكتب في العمود الاخير يكتب ok لديه يوم 20 اجازة اضطراريه يكتب في العمود الاخير يكتب ok لديه واجب من 21-الى 30 او 31 واجب يكتب في العمود الاخير يكتب ok بخلاف الفقرات اعلاه (اي ان اي فقرة غير مطابقة للشروط) يترك العمود الاخير فارغ النوذج مرفق وفقكم الله لكل خير في حالى عدم وجود حل يرجى افدتي بالنصيحه وان اكمل الباقي انا لدي بعض الخبرة البسيطة بالاكواد وعمل شي بسيط لكن لم اتمكن اكمال جميع الحالات كما في الكود المتواضع هنا Sub check_Name() Dim x As Integer Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet 1") wslr = ws.Cells(Rows.Count, 1).End(xlUp).Row For x = 2 To wslr If ws.Cells(x, 5) <> "" And ws.Cells(x, 8) = "v" Then ws.Cells(x, 7) = "ok" End If Next x MsgBox (wslr) End Sub المثال.xlsx

اخواني الاعزاء انا قمت بعرض الموضوع سابقاً في المشاركة على الرابط المشاركة السابقة وتم اجابتي من الاخوان وفقهم الله لكل خير لكن الان انا بحاجة الى تعديل الكود بحيث تلائم مع عملي الكود  التعديل هو ان الدالة index تعمل في السطر هنا على ورقة عمل اسمها NASHER وانا لدي اكثر من ورقة يجب اختيار واده منها Formula_To_Value Range("E2:E1000"), "=IF(RC[-3]="""","""",INDEX(NASHER!R2C6:R10C64,MATCH(RC[-4],NASHER!R2C1:R10C1,0),MATCH(BASMMA!RC[-1],NASHER!R1C6:R1C64,0)))" الحاجه هو انني عملت مثال ووضعت خلية J1 في ورقة Basmma تحوي على قائمة باسماء الاوراق المراد جلب البيانات منها اقوم بتحديد الورقة من القائمة فيعمل على تعديل السطر البرمجي وتغيير اسم الورقة فقط من NASHER الى اسم الورقة المختارة وم القائمة ويجلب البيانات منها وفقكم الله لكل خير

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء انا قمت بعرض الموضوع سابقاً في المشاركة على الرابط المشاركة السابقة وتم اجابتي من الاخوان وفقهم الله لكل خير لكن الان انا بحاجة الى تعديل الكود بحيث تلائم مع عملي الكود التعديل هو ان الدالة index تعمل في السطر هنا على ورقة عمل اسمها NASHER وانا لدي اكثر من ورقة يجب اختيار واده منها Formula_To_Value Range("E2:E1000"), "=IF(RC[-3]="""","""",INDEX(NASHER!R2C6:R10C64,MATCH(RC[-4],NASHER!R2C1:R10C1,0),MATCH(BASMMA!RC[-1],NASHER!R1C6:R1C64,0)))" الحاجه هو انني عملت مثال ووضعت خلية J1 في ورقة Basmma تحوي على قائمة باسماء الاوراق المراد جلب البيانات منها اقوم بتحديد الورقة من القائمة فيعمل على تعديل السطر البرمجي وتغيير اسم الورقة فقط من NASHER الى اسم الورقة المختارة وم القائمة ويجلب البيانات منها وفقكم الله لكل خير

للرفع

السلام عليكم ورحمة الله وبركاته اخي العزيز هل بالامكان العديل على الكود بحيث يتلائم مع احتياحي بحيث اقوم بتحديد ورقة العمل التي اقوم بجلب البيانات منها اعتمادً على قائمة باسماء اوراق العمل موجودة في الخلية j1 فرضاً هذا هو الكود في المثال الاول Sub Kh_Formula_To_Value() Dim MyCalcu As XlCalculation With Application MyCalcu = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With Sheets("BASMMA").Select Range("E2:E1000").Select Selection.ClearContents Formula_To_Value Range("E2:E1000"), "=IF(RC[-3]="""","""",INDEX(NASHER!R2C6:R10C64,MATCH(RC[-4],NASHER!R2C1:R10C1,0),MATCH(BASMMA!RC[-1],NASHER!R1C6:R1C64,0)))" With Application .ScreenUpdating = True .Calculation = MyCalcu End With End Sub

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

وفقكم الله لكل خير فعلاً انا اعتذر اذا خالفت قوانين المنتدى