محمد نصري

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

تفضل استاذي الفاضل Private Sub Workbook_Open() Dim a As Range Set a = ActiveCell.SpecialCells(xlLastCell) Private Sub Workbook_Open() Dim a As Range Set a = ActiveCell.SpecialCells(xlLastCell) If a.Address = Range("a1").Address Then Application.Goto a, True Else If a = "" Then r = a.Row c = a.End(xlToLeft).Column Application.Goto Cells(r, c), True Else Application.Goto a, True End If End If End Sub لن يعطيك خطأ بعد الان واعتقد بأنه يريد الذهاب لاخر خلية فيها بيانات فلا جدوى من الذهاب لاخر خلية محددة علما ان اكسل يفتح عندها مباشرة عند انتهاء العمل وعمل حفظ للملف لك كل الاحترام الله يبارك فيك نشرت الحل ولم اجده اعتقد السبب سوء الانترنت عندي وشكرا كتير الك الله يبارك فيك فكتبته مرة ثانية الان وان شاء الله يكون مافيه مشاكل مع انه ممكن تبسيطه اكثر بس الانترنت ينزع المزاج هههههههه الله يعطيكم العافية واكرر شكري لك

Private Sub Workbook_Open() Dim a As Range Set a = ActiveCell.SpecialCells(xlLastCell) If a = "" Then If a <> Range("a1") Then Application.Goto a.Offset(0, -1), True Else Application.Goto a, True End If End If End Sub

السلام عليكم ورحمة الله وبركاته ارجو ان ينال هذا الكود قبولكما استاذي ياسر واستاذي سليم الله يبارك فيكم Private Sub Workbook_Open() Dim a As Range Set a = ActiveCell.SpecialCells(xlLastCell) If a = "" Then Application.Goto a.Offset(0, -1), True Else Application.Goto a, True End If End Sub

الله يبارك فيك اخي واستاذي ياسر الحبيب بالنسبة للكود الذي قمت باستخدامه والاستاذ سليم يقوم بالذهاب الى اخر خلية كانت محددة قبل اغلاق اكسل ولكن ليست بالضرورة ان تكون اخر خلية فيها بيانات اما الكود الذي قدمته في مشاركة ثانية يقوم بتحديد اخر خلية فيها بيانات واذا كنت راغبا بعمل سكرول لها يمكنك تعديل الكود السابق الى Application.Goto ActiveCell.SpecialCells(xlLastCell), True تقبل تحياتي واحترامي استاذنا الكريم مع وجود عيب بسيط نادرا ما يحصل سوف اقوم بعمل تجربة لحلها

السلام عليكم ورحمة الله ضع الكود التالي في حدث الصفحة Private Sub Workbook_Open() ActiveCell.SpecialCells(xlLastCell).Select End Sub هذا الكود يمكنك من الانتقال الى اخر خلية فيها بيانات في الصفحة كما يمكنك تحديد فتح صفحة معينة دون غيرها اكتب الكود التالي مع مراعاة كتابة اسم الصفحة الخاص بك Private Sub Workbook_Open() Sheets("add sheets name here").Activate ActiveCell.SpecialCells(xlLastCell).Select End Sub كل الاحترام والتقدير

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

اخى واستاذى محمد فكره رائعه وكود جميل ولكن لنا عتاب معك غيابك يطول لاتحرمنا منك ولى ملاحظه ارجو من حضرتك تداركها بعد ما يتم فتح الملف وتظهر الرساله التى تفيد بتغير التاريخ او انتهاء الصلاحيه جرب فتح الملف مره ثانيه يحدث خطأ انا حليت المشكله دى بالطريقه البسيطه ولكن عايز اعرف طريقة حضرتك فى الحل هتكون ازاى للاستفاده اكثر تقبل تحياتى السلام عليكم ورحمة الله أشكرك جدا على ملاحظتك القيمة فعلا أنا لم أختبر فتح الملف مرة ثانية فقد كتبت الكود وتأكدت من عمله مرة واحدة ولم أفتحه مرة ثانية وعند مراجعته أيضا اكتشف عيب ثاني وهو لم تم الفتح في يوم لاحق لليوم المحدد فكان حل المشكلة بسيط جدا بإضافة اشار < على الكود إليك الكود الجديد فقط اضافة اشارة < On Error GoTo 1 If Sheets("test_my_date").Range("A1") >= DateValue("27/09/2015") Then If Date >= DateValue("27/09/2015") Then MsgBox "تم الكشف عن تغير في تاريخ الجهاز مفكر مالنا كاشفينك -_- " ThisWorkbook.Save Application.Quit Exit Sub End If End If1 If Date >= DateValue("27/09/2015") Then Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = "test_my_date" Range("a1") = DateValue("27/09/2015") MsgBox "هذا الملف منتهي الصلاحية" ThisWorkbook.Save Application.Quit End If End Sub كما اني بانتطار حلك وشكرا على الملاحظة مرة ثانية بالنسبة للغياب فهو خارج عن ارادتي وكم احب التواجد هنا وفي كل مكان يمكن فيه نشر العلم والفائدة لك كل التحية والاحترام

استاذي الكريم وجزاكم الله خير الجزاء على ما تقدموه الله يبارك فيك السلام عليكم ورحمة الله عمل فترة مؤقتة لملف اكسل وإمكانية فتحه بكلمة سر https://www.youtube.com/watch?v=jL6cUTHvUmY السلام عليكم كيفية حل مشكلة تغير تاريخ الجهاز https://www.youtube.com/watch?v=e7TXbin6vc4

السلام عليكم ورحمة الله وبركاته في الفيديو التالي نتعلم كيفية عمل فترة مؤقتة لملف اكسل بحيث يعمل الى عند تاريخ معين ويتم كشف المستخدم في حال قام بتغير تاريخ الجهاز أتمنى لكم مشاهدة مفيدة https://www.youtube.com/watch?v=e7TXbin6vc4

قم بثبيت العمود في المعادلة وبعدها جربها =IF(OR($b1<>0;$C1<>0;$D1<>0;$E1<>0;$F1<>0);TRUE;FALSE)

شكرا لادارة المندى تم حل المشكلة

السلام عليكم ورحمة الله وبركاته في إعدادت الإشعارات سابقة عندما يقوم أحد المشتركين بالرد على موضوع أقوم بمتابعته أو المشاركة فيه يظهر عندي في الاشعارات لسهولة الوصول الى الموضوع من ضمن المواضيع الكثيرة ولكن حاليا لا يظهر الاشعار في حال قام أحد بالرد أو باقتباس لما قمت بالرد عليه ولكن يصلني ايميل بذلك واحتاج الى الكثير من الوقت للبحث عن الموضوع في اعدادات الاشعارات الخيار هو : قيام شخص بالرد علي محتوي اقوم بمتابعته : وتفعيل الاشعارات متوقف من ادارة الموقع وشكرا

بارك الله فيك وجزاك خيرا كثيرا أخي وحبيبي ياسل خليل أبو البراء ان شاء الله خيرا ... لاسباب خارجة عن ارادتي وانقطاع الانترنت مما يزيد على 8 شهور والحمد لله الان يوجد انترنت يمكن يمشي الحال شوي الله يبارك فيك وشكرا على سؤالك وكلامك الطيب يا طيب ^_^

السلام عليكم ورحمة الله وبركاته أرجو المعذرة أستاذي الكريم الفترة الماضية 9 شهور لايوجد عندي انترنت وأسباب خارجة عن إرادتي .... أهلا وسهلا بك في أي وقت تريد في الخدمة