amir501

اخواني جزاكم الله عني كل خير اعطيتم فاوفيتم جعلها الله في رصيد حسناتكم

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

السلام عليكم اخواني جزاكم الله كل خير هل يمكن جعل اكسل يحفظ تلقائي عند الضغظ على اشارة الاغلاق (x) دون ضهور اي رسالة وجزيتم خيرا

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

اخواني السلام عليكم الكود المرفق يقوم بتحويل المعادلات الى قيم ( طبعا بعد وصول التاريخ المعين بالكود) لكنه بقوم التحويل لكامل المصنف(لكافة ورقات العمل) هل يمكن ان يقوم التحول عند تنشيط لصفحة فقط اي؟؟؟؟؟ عند بلوغ التاريخ (وما بعد التاريخ) اي صفحة ندخل اليها يقوم الكود بتحول معادلات الصفحة فقط الى قيم والبقاء على معادلات الصفحات الاخرى حتى ندخل الى الصفحة كي يعمل الكود جزاكم الله كل خير Sub auto_open() Dim Expiry As Date 'If today's date > expiry date, the file will close Expiry = DateValue("01/010/2010") If Date > Expiry Then Dim CEL As Range Application.ScreenUpdating = False Application.Calculation = xlManual For S = 1 To ActiveWorkbook.Sheets.Count Sheets(S).Activate For Each CEL In ActiveSheet.UsedRange If CEL.HasFormula = True Then CEL = CEL.Value Next CEL Next S Application.Calculation = xlAutomatic Application.ScreenUpdating = False Else ActiveWorkbook.Save End If End Sub

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

السلام عليكم نعم لقد قمت بفتح الملفين وعند الترحيل يخبرني بانه تم الترحيل مسبقا وعندما اذهب للملف الثاني لا اجد الترحيل اما بالنسبة لتشغيل الملف تقصد ان انشا مجلد واسميه محل 1 ام محل 2 وهل اضع الملفين فيه ولك مني كل الشكر والاحترام

اخي الكريم الكود لا يعمل وهي يمكن للكود ان يقوم بتشغيل الملف الثاني تلقائيا واشكرك كل الشكر سلفا

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

جزاك الله كل خير للاستجابة السريعة واقدرها لك تم ارفاق ملف Desktop.rar

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

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

كود اغلاق الملف بتاريخ معين أكواد.rar

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

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

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

اخواني السلام عليكم ورحمة الله هذا الكود يقوم بادراج التاريخ تلقائيا في اي خلية في العود A بمجرد الكتابةفي الععود B اي لو كتبنا اي شي في الخلية B2 سيكتب التاريخ تلقائيا في الخلية A1 هل يتكرم احد الاخوة مشكورا بشرح سطور هذا الكود ونحن له من الشاكرين Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count > 1 Then Exit Sub If Not Intersect(Range("b1:b100"), .Cells) Is Nothing Then Application.EnableEvents = False If IsEmpty(.Value) Then .Offset(0, 1).ClearContents Else With .Offset(0, -1) .NumberFormat = "dd mmm yyyy " .Value = Now End With End If Application.EnableEvents = True End If End With End Sub

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

اخواني جزاكم الله كل خير الشرح في المرفق Amir.rar

شكراً أخي بن علية دائما للخير سباق

لا اله الا الله الى رحمته تعالى واسكنه فسيح جنانه 0

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

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

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

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