أبو قاسم

الموضوع أخي أن الاكواد لاتعمل في النسخة المرفقة أريد اعرف الاسباب

ارجو ا اعطائي شي علمي عن فشل اكسل في تشغيل الاكواد صلاحيات المستخدمين - الاصدار 2 2.rar

تشكر الف الف شكر ماقصرت

للرفع

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("B2:B10000"), Range("o2:o10000"))) Is Nothing Then R = Target.Row If Cells(R, "B").Value <> "" Then Cells(R, "A").Value = R + 4999 Cells(R, "C").Value = WorksheetFunction.VLookup(Cells(R, "B"), [TUNNEL3], 2, 0) Cells(R, "D").Value = WorksheetFunction.VLookup(Cells(R, "B"), [TUNNEL3], 3, 0) Else Union(Cells(R, "0"), Cells(R, "0")).ClearContents End If End If If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 1 And Target.Column = 8 Then With Target.Offset(, 1) .Formula = "=MOD(" & (Target - Target.Offset(, -1)) & ",1)": .Value = .Value End With End If If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 1 And Target.Column = 11 Then With Target.Offset(, 1) .Formula = "=MOD(" & (Target - Target.Offset(, -4)) & ",1)": .Value = .Value End With End If If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B:B")) Is Nothing Then With Target(1, 3) .Value = Date End With End If On Error GoTo 0 End Sub

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

للرفع

للرفع

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

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

دالة احصاءية ارجو اكمالها لتكون الاحصاء بين تاريخين جدول الحضور للموظفين.rar

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

اشكر مرورك استاذ ياسر افتح المرفق هو جاهز وبة كود ترحيل يكون الترحيل من اكسل1 الى اكسل2 من الخلية a2 الى q في الطر الثالث

صبحكم الله بالخير ياوجوة الخير تحية اجلال واحترام للطيبين اليوم عندي كود نرحيل موجود في ملف (اكسل1) يرحل الى ملف (اكسل2) لاكن المشكلة انة يرحل ليس بشكل منتظم مرة يرحل الى تحت ومرة الى فوق ومحتاج يرحل ملف اكسل 1 الى ملف اكسل 2 ويكون ملف اكسل 2 مغلق مش ضروري اقوم بفتح الملف حاول اعدل لم استطيع عمل شي الله يجزية الف خير من حاول مساعدتي وشكرا للجميع ملف ترحيل.rar

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

تشكر اخي صلاح الصغير على ابداعك وتجاوبك 100% اجابة ممتازة واشكر الاستاذ ياسر على تجاوبة بس يمكن التقصير مني لم اوضح بشكل صحيح بس استفسار احمي name manager من المتطفلين يمكن احد يدخل ويمسح كلمة data1 للعلم الملف بة اكوواد لايقبل باسبورد

عندي ملف بة في كل شيت عدة أكواد والملف مهم بة أشياء هامة هل ممكن أن الكود يحدث لة شي في المستقبل ويتوقف عن العمل لأي سبب كان وهل يمكن أن يتحمل 30000 أدخل يعني احمل الملف معلومات كثيرة جدا هل ممكن تأثر على أدى الكود جزيتم خيرا

تاريخ إحصاء شهري يتغير كل شهر مثلا 1.5.2015م إلى 31.6.2015م والشهر القادم إحصاء يختلف التاريخ ومشكور على سرعة الرد

جزاكم االله خير على هذا الموقع الرائع وعلى المساعدة احصائيات.rar

جرب هذا الملف انشاء الله ينفع مبتداء جرب.rar

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

جزيت خيرا كود حلو بس لو تشرح الكود مااقدرت اطبقة في اعمدة خرى Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 1 And Target.Column = 2 Then With Target.Offset(, 1) .Formula = "=MOD(" & (Target - Target.Offset(, -1)) & ",1)": .Value = .Value End With End If End Sub

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

ممتاز جدا بس انا اريدة اتوماتيك بدون زر ربنا يسعدك دنيا واخرة تنفيذ اتوماتيك

الاخ ياسر جزاك الله خير طبقت الكود على الملف لايعمل طبقة بنفسك ورفعة مرة اخرى ولك الف شكر