نجوم المشاركات

السلام عليكم الاخ الكريم / حسام غباشى بارك الله فيك اليك اخي الكود الذي يقوم بهذه الوظيفه ... حفظ تلقائي للملف كل دقيقة اولا لنقل كود الحفظ الي ملفك .... قم بعمل مودل وضع الاكواد التاليه فيه ... Public Rm As Double Public Const C_Con = 60 Public Const Sc_W = "Ex" Public Sub St_A() Rm = Now + TimeSerial(0, 0, C_Con) Application.OnTime EarliestTime:=Rm, Procedure:=Sc_W, Schedule:=True End Sub Sub Ex() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True St_A End Sub ثم ضع الاكواد التاليه في حدث الملف ThisWorkbook Private Sub Workbook_Deactivate() Call St_A End Sub Private Sub Workbook_Open() Call St_A End Sub جزاك الله خيرا حفظ كل دقيقة.rar

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

في خصائص الحقل في الحدول حجم الحقل = مزدوج التنسييق = ثابت او غير نوع الحقل الى نص

السلام عليكم تفضل أخي Private Sub Worksheet_Calculate() If Refreshing_M = True Then Exit Sub Refreshing_M = True LR = Sheet1.[B9999].End(xlUp).Row Dim i As Integer For i = 2 To LR ' Just refresh the "M" cell and it will recall what needs to be recalled If Cells(i, 2) = 0 Then GoTo 10 Cells(i, 13) = Cells(i, 13) 10 Next i Refreshing_M = False End Sub إذا لم يعمل ، أرسل الملف كاملا

أتمنى يكون المطلوب معادلة لنقل بيانات خاصة.rar

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

السلام عليكم جرب هذا تحياتي جدول لمتابعة الموظف - Copy+.rar