محمد نصري

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

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

تفضل استاذي الفاضل
 

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 شهور لايوجد عندي انترنت وأسباب خارجة عن إرادتي ....
أهلا وسهلا بك في أي وقت تريد في الخدمة
 

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

كشف التكرار.rar

السلام عليكم ورحمة الله وبركاته ....
أعتذر على التقصير معكم خلال الفترة الأخير " 9 شهور " وذلك لانقطاع الانترنت ولأسباب خارجة عن الارادة والقدرة
وان شاء الله سوف أعود معكم خطوة بخطوة
تقبلو تحياتي
فيديو بسيط جدا
كيفية كتابة التاريخ في 30 ورقة بخطوة واحدة مع اكسل 2013

مشاهدة ممتعة ومفيدة اتمناها لكم

السلام عليكم ورحمة الله وبركاته

موضوع اليوم :

كيف يمكن المطابقة بين الحسابات بشكل بسيط

الفيديو يدور حول الفكرة الأساسية لكيفية عمل المطابقة , وهي الوصول للقيمة التي نريد مطابقتها وسوف تكون مفتاح لفيديوهات ثانية تحتاج الى معالجة بشكل أكبر

مشاهدة مفيدة وممتعة

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

كيفية القيام بعمل مطابقات للحسابات او غير الحسابات
دمتم بخير

كشف حساب.rar

ايوه كده يااخى الحبيب

حمدالله على سلامتك بعد الغيبه الطويله

جزاكم الله خير وبارك فيكم

واياكم الله يسلمك ويخليك .. وشكرا لك على سؤالك عني في الفترة السابقة انت والاستاذ جمال دغيدي

الأخ الكريم محمد نصري جزاك الله كل الخير على جهودك المباركة ان شاء الله

اتمنى لو امكن ارفاق نسخة نهائية من كشف الحساب دائن-مدين و ارصدة حسب المدة من / الى.

اكرر شكري و تقديري

اذكر اني قمت برفع ملف نهائي

يمكنك مراجعة الموضوع او بعد العمل اقوم بوضع الرابط

لاني على الموبايل حاليا

السلام عليكم اخي محمد نصري

وجزاك اله الف خير على هذا العمل الرائع

وعليكم السلام ورحمة الله

الله يبارك فيك ومرحبتين بأهل ليبيا نورتنا

السلام عليكم

اخى وصديقى / محمد نصرى

طمنى عنك اين انت

وعليكم السلام الحمد لله بخير

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

ان شاء الله نستكمل ما بدأنا به

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

أرجو ان يكون الموضوع مفيد وممتع لكم

وهذا الملف الذي تم العمل عليه

الاستعلام عن الصور.rar
 

أخي الحبيب في الله ياسر الخليل

ألف ألف ألف ألف مبروووووووووووووووووووووووووووووووووووووووووووووووووووووووووووك عليك الترقية

وهي فعلا كما سبق وذكرت بأنها مسؤولية وأنت ما شاء الله قدها
ربنا يكون معك ويوفقك على قدر ما تعطي وعلى نيتك الطيبة وروحك الجميلة يا جميل
ألف مبروووك