ياسر خليل أبو البراء

لما لم ينجح كود الربط بسيريال الهادر ديسك؟ ارفق الملف الذي حاولت أن تقوم بربط السيريال فيه

أي إصدارات الأوفيس تعمل عليها .. ؟؟؟ لو مفيهاش مخالفة لقوانين المنتدى ممكن أبعت لك التفعيل .. بس نستأذن المشرفين الأول

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

الحمد لله الذي بنعمته تتم الصالحات

بارك الله فيك .. أنا وغيري لا ننتظر شكر ولكن ننتظر دعوة فلا تنسونا من صالح دعائكم لعل الله أي يهدينا بدعوة مؤمن صادق ..

جرب : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub On Error Resume Next If Not Intersect(Target, Range("b1:b60000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, 2).Offset(0, -2).ClearContents Else With Target(1, 7).Offset(0, -2) .Value = Date .EntireColumn.AutoFit End With End If End If If Not Intersect(Target, Range("c1:c60000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, 2).Offset(0, -2).ClearContents Else With Target(1, 7).Offset(0, -2) .Value = Date .EntireColumn.AutoFit End With End If End If End Sub

الشكر لله عزوجل وحده ، أما إذا أردت أن تقول : فلابد من كلمة ( ثم ) ، وإن كنت أفضل أن تشكر الله عزوجل وحده .. اللهم اجعل اعمالنا في ميزان حسناتنا يوم القيامة

تفضل يا ابن مصر الملف المرفق .. ممكن يكون حصل معاك مشكلة بسبب إنك مخرجتش من وضع التصميم Design Mode Auto Completer Data Validation.rar

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

هل تم حل المشكلة أخي في الله عاشق الإسلام ؟

طيب أنا معنديش عربي بس نترجم .. مركز الثقة أو الأمان ودي طبعا من خلال خيارات الإكسيل .. هتلاقي كلمة الخصوصية وهتلاقي فيها خيار .. أزل المعلومات الشخصية .. شيل العلامة اللي جنبها .. قد لا تكون الترجمة صحيحة بنسبة 100% .. بس حاول هتوصل إن شاء الله

رائعة استاذنا الفاضل أ.ياسر، واجمل واشيك بكل تأكيد من القائمة العادية يعيبها وللأسف انها غير ملزمة للمستخدم يعني لو كتب اسمه بدل اى يوم من ايام الاسبوع في القائمة ستقبل منه لو فيه حل للموضوع ده هتكون ممتازة جزاك الله كل خيرا استاذي وجعله اللى في ميزان حسناتك خالص تحياتي جميل أخيرا لقيت حد يطلع عيوب .. دي حاجة تفرح والله بص يا ابن مصر يا غالي ادخل الـ Design Mode هيظهر لك طبعا المخفي اللي اسمه الكومبوبوكس كليك يمين عليه ثم Properties كل الشغل على الخصائص دور على الخاصية Style واختار منها رقم 2 بس خلاااااااااص .. إنت تؤمر يا حبيب

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

لالغاء هذه الرسالة ادخل على Trust Center ثم Privacy ثم أزل علامة الصح بجانب الخيار Remove Personal Information ثم احفظ الملف وأغلقه وافتحه وشوف هتظهر لك تاني أو لا

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

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

بارك الله يا م / أحمد إبراهيم وكمان عامل حساب للي ناوي ياخد الكود .. ربنا يخليك للغلابة اللي زينا !

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

مشكور على مرورك العطر يا أخ مختار .. أول من يرد على الموضوع بعد 102 مشاهدة ربنا يبارك فيك وجازيك خير ..

أخي السائل إثراءاً للموضوع هذا ملف مرفق به طلبك زيادة في الخير دالة معرفة تعرفك رقم آخر صف في العمود .. First Blank Cell.rar

أستاذ جمال : لماذا قمت بربط الكود بحدث الورقة .. كدا دايما التحديد هيكون على آخر خلية في العمود H مجرد سؤال هيشتغل إزاي ؟؟

أخي الفاضل الكود مرتبط على ما يبدو بالسيريال الخاص بالهارد ديسك ومن ثم يفتح عندك أما عند العميل فلن يفتح لأن السيريال الخاص بالهارد ديسك التابع له مختلف ... إذا لابد لكي يفتح أن يتم إدخال السيريال الخاص بهارد العميل

جزاكم الله خيرا أخي أبو تراث .. وبارك الله فيك .. التصحيح ليس غرضه النقد الهدام إنما البناء وكلنا هنا نتعلم من بعضنا البعض ونتبادل الخبرات

سؤال يا م / أحمد ليه عرفت المتغير maximum من النوع Double ليه .. ليه مش النوع Integer . الرقم المسلسل أكيد هيكون عدد صحيح!!!

يا م / أحمد إبراهيم حرام عليك أنا دخت جوا الملف على ما لقيت اللي إنت عملته عشان أتعلم منه طبعا الملف توهاااااااااااان .. عموما وصلت بعد شوية تعب Sub SN_Entry1() Dim rng As Range Dim maximum As Double Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) 'Set range from which to determine largest value Set rng = ws.Range("A4:A65536") 'Worksheet function MAX returns the largest value in a range maximum = Application.WorksheetFunction.Max(rng) 'adding largest value plus one tx1.Text = maximum + 1 End Sub