أبو قاسم

شكرا لك وجزاك الله عنا الف خير

Book2.rar

Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False On Error Resume Next Dim R As Integer If Not Intersect(Target.Cells(1, 1), Union(Range("B3:B4000"), Range("o3:o5000"))) Is Nothing Then R = Target.Row If Cells(R, "B").Value <> "" Then Cells(R, "A").Value = R + 44 'محتاج التعديل على الكود حيث يبداء الترقم من 44 ويتوقف عن الترقيم عند الرقم 100 Else End If End If Application.ScreenUpdating = True On Error GoTo 0 End Sub محتاج يتوقف الترقيم عند العدد 100 فقط ولايتجاوزة

نعم ويكون الامتداد xlsx والنسخة الاحتياطية تكون في ملف مشاركة على شبكة داخلية أريد عند إرسال النسخة تقوم بتغيير الملف حتى لو هو مفتوح عند شخص آخر في كمبيوتر ثاني

للرفع

للرفع

Sub smed() ThisWorkbook.SaveCopyAs "C:\ÇáÊÞÑíÑ Çáíæãí.xlsm" End Sub السلام عليكم هذا الكود لعمل نسخة احتياطية لملف ...... المطلوب هو عندما تكون النسخة الاحتياطية مفتوحة في ملف مشاركة هل استطيع اغلاقها على الجميع عند ارسال نسخة

جزاك الله خير هذا هو المطلوب ربنا يكثر من امثالك

وجدت هذا الكود لم استطيع دمجة مع الكود الموجود في الشيت لكي يمنع تكرار نفس التاريخ Sub SA() SS = Sheets.Count Sheets("الناسخة").Select Sheets("الناسخة").Copy After:=Sheets(SS) ActiveSheet.Name = Format(Date, "DD.MM.YYYY") Selection.Copy Sheets("الناسخة").Select ActiveSheet.Paste Link:=True Application.CutCopyMode = False End Sub اضافة محتاج الشيت المضاف الجديد يكون تسلسلة الثالث بعد شيت الناسخة

السلام عليكم ورحمة الله وبركاتة محتاج تكملة للكود الموجود في الشيت وهي اضافة شيت جديد من نسخة موجودة بتاريخ اليوم تم عمل تسمية الشيت بتاريخ اليوم ولكن لم استطع تكملة الكود فجزاكم الله خير لم بادر في تكملة الموجود اضافة شيت +جديد1.rar

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

للرفع

للرفع

السلام عليكم ورحمة الله وبركاتة المطلوب : اظهار الرسالة InputBox بشكل افضل وتحديد نطاق معين لاضافة تعليق في الخلية اضافة تعليق على خلية.zip

تشكر ربنا يحفظك ويزيدك علماَ ورفعة وجزاك الله عنا الف خير

رفع

جزاك الله خير

وعليكم السلام ضع التكست بوكس في اول صف وقم بتجميد او صف حيث كلما نزلت ينزل الصف الاول معك وايضا التكست بوكس

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

بارك الله فيك شيء جميل ورائع

نعم ضع هذة الأكواد نهايته أمر الطباعة أو المسح

أحفظ الملف بامتداد XLSM

ارفق ملف للعمل علية من قبل الاخوة الافاضل لكي يكون السؤال واضح والاجابة كافية ووافية مع التحية

وعليكم السلام تجربة حسب مافهمت ARCHIVE.rar

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