أبو قاسم

ربنا يحفظك لاكن أريد كود برمجي وليس دالة

اشكرك الف شكر تم حل المشكلة والكودين يعملان بشكل ممتاز ربنا يوفقك دنيا واخرة اخي العزيز

اشكرك على الاستجابة يعمل الكود الثاني الاول لايعمل بيكون صفر

الشيت لايتقبل كودين بنفس الاسم ماالحل ارجو المساعدة في الدمج او طريقة اخرى الكود الاول Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim R As Integer If Not Intersect(Target.Cells(1, 1), Union(Range("D2:D10000"), Range("o2:o10000"))) Is Nothing Then R = Target.Row If Cells(R, "D").Value <> "" Then Cells(R, "0").Value = R + 4999 Cells(R, "E").Value = WorksheetFunction.VLookup(Cells(R, "D"), [TUNNEL6], 2, 0) Cells(R, "F").Value = WorksheetFunction.VLookup(Cells(R, "D"), [TUNNEL6], 3, 0) Cells(R, "G").Value = WorksheetFunction.VLookup(Cells(R, "D"), [TUNNEL6], 4, 0) Else Union(Cells(R, "0"), Cells(R, "0")).ClearContents End If End If On Error GoTo 0 End Sub الكود الثاني Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim R As Integer If Not Intersect(Target.Cells(1, 1), Union(Range("c2:c10000"), Range("o2:o10000"))) Is Nothing Then R = Target.Row If Cells(R, "c").Value <> "" Then Cells(R, "0").Value = R + 4999 Cells(R, "l").Value = WorksheetFunction.VLookup(Cells(R, "c"), [TUNNEL3], 2, 0) Else Union(Cells(R, "0"), Cells(R, "0")).ClearContents End If End If On Error GoTo 0 End Sub الحل لوسمحتوا

جمعة طيبة بذكر الله وين المشرفين حل سؤالين ولاجواب

ارجو من عمالقة موقع اوفيسنا المساعدة في التعديل على كود حساب الوقت ولكم مني جزيل الشكر والتقدير Book1.rar

وين المشرفين لحل مشكلتي جمع فارق الوقت بالاكواد نظام 24 ساعة

تشكر الف الف شكر على استجابتك بس اريد الحساب بشكل ذاتي بدون الضغط على كلمة RUN ويطبق الاجراء على الاعمدة كاملة من 1 الى النهاية ولخلايا التي لاتوجد فيها اي وقت تكون النتيجة فارغ تحياتي لك اذا كملت لي باقي السوال اكون لك ممتن تحياتي

مساء الخير فية أحد موجود من المشرفين يرد

تسلم ربنا يحفظك ماقصرت ( كلمة ولو جبر خاطر ولا سلام من بعيد ) تشكر على ردك والخبراء مطنشين

ياجماعة وين المساعدة اول سؤال لي

وين هل من مجيب

مساء الخير محتاج المساعدة ضروري جزاكم الله خير

السلام عليكم هل من مجيب على سؤالي ام لايوجد حل للمشكلة

اليك الملف بالمرفقات ارجو مساعدتي Book1.rar

لوسمحتم اريد كود برمجي يحسب وقت الحضور ووقت الانصراف ويظهر كم عمل الموظف نظام العمل 24 ساعة للعملم =IF(G1384>F1384;G1384-F1384;G1384+24-F1384) حساب الوقت بالدالة اف معروف لدي فقط اريد كود برمجي عن طريق vba للعلم يمكن الموظف يعمل نص يوم في تاريخ ونص الاخر في تاريخ اخر يعني يكون الكود نظام 24 ساعة