خالد عبدالجواد

هل هناك معادله تقوم بهذا الحل بدل من الكود ؟

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

جزاكم الله خيرا هدا ما اريده ولكن هذا الكود فعال لاول 52 صف فقط هل يمكنك تعديله ليصبح اكبر عدد ممكن

check_Salim.xlsx

جزاكم الله خيرا هدا ما اريده ولكن لا اريد ان اختار من قائمه اريد ان يكون عمود SerialNo1 بالكامل امامه جميع نتائج call code

check.xlsx

جزاكم الله خيرا ع الرد ولكن عدد ايام العمل = عدد ايام حضوره وليس عدد ساعات عمله لان عدد ايام حضوره 24 ولكن المعادله اللي حضرتك عملتها 26 وكذلك عدد ساعات الاضافي مختلفه عن الفعلي

شكرا للاهتمام والرد الاجمالي لكل موظف وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته اريد معادله لحساب عدد ايام العمل وعدد ساعات الاضافي وعدد دقائق التاخير حضور وانصراف.rar

السلام عليكم ورحمة الله وبركاته اريد معادله لحساب عدد ايام العمل وعدد ساعات الاضافي وعدد دقائق التاخير حضور وانصراف.rar

هو الموضوع صعب للدرجه دي ولا لسه محدش شاف السؤال ؟؟؟؟؟

اريد معادله لحساب عدد ايام العمل وعدد ساعات الاضافي وعدد دقائق التاخير . وجزاكم الله خيرا .

اريد معادله لحساب عدد ايام العمل وعدد ساعات الاضافي وعدد دقائق التاخير . وجزاكم الله خيرا .

اريد معادله لحساب عدد ايام العمل وعدد ساعات الاضافي وعدد دقائق التاخير وجزاكم الله خيرا . حضور وانصراف.rar

جزاكم الله خيرا بالفعل الان الكود يقوم بما اريده شكرا جزيلا

جزاكم الله خيرا فعلا هذا ما اريده ولكن عندما انسخ خانه C من شيت Pick_List1 لا يعطي الخانه E ,F من شيت SerializePlantStockReport

اريد تعديل هذا الكود Sub Test() Dim swb As Workbook Dim twb As Workbook Dim arr1 As Variant Dim arr2 As Variant Dim v As Variant Dim d As Object Dim m As Long Dim n As Long Dim r0 As Long Dim r As Long Dim s As Long Dim c As Long Set swb = Workbooks("SerializePlantStockReport.xlsx") Set twb = ThisWorkbook Set d = CreateObject("Scripting.Dictionary") m = swb.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row arr1 = swb.Sheets(1).Range("C2:E" & m).Value n = twb.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row arr2 = twb.Sheets(1).Range("A2:B" & n).Value For s = 1 To n - 1 v = arr2(s, 1) If d.exists(v) Then r0 = d(v) Else r0 = 0 End If For r = r0 + 1 To m If arr1(r, 1) = v Then arr2(s, 2) = CStr(arr1(r, 3)) d(v) = r Exit For End If Next r Next s twb.Sheets(1).Range("A2:B" & n).Value = arr2 End Sub الكود موجود في شيت Picklist عندما اقوم بنسخ الخليه C من شيت SerializePlantStockReport واضعها في شيت Picklist الكود يعطيني الخانه E من شيت SerializePlantStockReport ويجب ان يكون شيت SerializePlantStockReport مفتوح . المطلوب تعديل الكود بحيث انسخ الخليه C من شيت Pick_List1 واضعها في شيت Picklist فيعطيني الخانه E ,F من شيت SerializePlantStockReport اذا كانت موجوده في شيت SerializePlantStockReport . Downloads.rar

جزاكم الله خيرا ع الرد وهعمل موضوع من جديد حاضر

الان واجهتني مشكله هل يمكن ان اكتب الرقم بدل من ان انسخه في الشيت ؟ عندما اقوم بكتابة الرقم في ملف PickList لا يعمل الكود لازم اخده كوبي من الشيت الاخر SerializePlantStockReport هل يمكن تعديل الكود بحيث ان اكتب الرقم او انسخه من شيت اخر غير SerializePlantStockReport ؟ وجزاكم الله خيرا .

السلام عليكم ورحمة الله وبركاته اريد ان اطور نفسي في الاكسيل هل يوجد لديكم اماكن بها كورسات في الاكسيل ؟؟؟ وجزاكم الله خيرا .

هل يمكن ان ياتي الكود بالخانتين في عمود E,F بدل من العمود E فقط ؟ وجزاكم الله خيرا .

جزاكم الله خيرا هذا ما اريده بالظبط .

سيكون الملف مفتوح والمطلوب البحثن عن الارقام في الملف الاول ووضعها في الملف الثاني مع عدم تكرار الارقام واريد الارقام التي نريد وضعها في الملف الثاني بنفس الترتيب الموجود في الشيت الاول .

السلام عليكم هل يوجد اي طريقه تساعدني في هذه المعادله .

ياسر خليل أبو البراء جزاكم الله خيرا اخي الحبيب قمت بارفاق ملف فيه توضيح اكثر عن المعادله التي اريدها ز Downloads.rar