أبوعيد

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

وعليكم السلام أخي ملاحظة نحوية في ملفك (لابد من الإشارة إليها حتى لا تضيع اللغة العربية ) يوجد في قسم التصريح الأمني هذه العبارة ((نؤكد لكم بأن المواطن الملصقة صورته أعلاه والمبينة بيانته و المؤشر الأمني أدناه .)) أن : حرف نصب المواطن : اسمها خبرها غير موجود بالتالي الكلام فيه نقص الصواب هكذا ((نؤكد لكم بأن المواطن الملصقة صورته أعلاه والمبينة بيانته يحمل المؤشر الأمني أدناه .)) يحمل : خبر أن بإمكانك تغيير الخبر كما تشاء ليناسب الكلام عذرا أخي العزيز ================= اكتب الرقم 1 في العمود Q أمام التصاريح التي تريد طباعتها ثم وصل الطابعة واضغط زر الطباعة بعد الطباعة سيتم إدراج النص (تم الصرف) في كل خلية ملاحظة : في ورقة التصاريح تم استخدام الورقة الأولى فقط تفضل التصاريح1.rar

أهلا بك يوجد في الورقة الأولى أعمدة مخفية قم بإظهارها ستجد أسماء كل الأوراق في الملف قم بكتابة الرقم 1 أو 2 أمام الصفحات الخاصة بكل مستخدم الرقم 1 يعني إظهار الرقم 2 يعني إخفاء

الأخ محمد الزريعي الأخ عبدالعزيز شكرا لكما على كلماتكما الرقيقة واللطيفة أسعدكما الله وجعل أيامكما أعيادا وسرورا أنا أعلم أن الملف لن يلبي طلب الأخ مهند الزيدي تماما 100% ولكن سيكون خطوة في تحقيق ما يريد هناك شيء غير مفهوم في الملف وهو ( ما هو العمل الذي سيؤديه المستخدم عندما يفتح الملف ؟ ) وأنا في انتظار تعليقه على الملف حتى نبدأ التطوير إن شاء الله (أنا أو غيري من الأعضاء , فكل يدلي بدلوه ) تحياتي

وعليكم السلام أهلا بك يا أخي في هذا الصرح التعليمي وأتمنى أن تقضي فيه وقتا ممتعا وتجد فيه ضالتك تفضل Timberland Stoke.rar

لم أفهم الموضوع بشكل كامل ولكن هذه محاولة المستخدم : ADMIN المرور : 3333 صلاحية دخول مع حفظ التغييرات1.rar

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

تم التعديل تفضل Project3.rar

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

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

وعليكم السلام ورحمة الله وبركاته تفضل Project1.rar

وعليكم السلام تفضل معادلة جمع نطاق بشرطين1.rar

السلام علكم أخواني هذا المرفق يحتوي على أكواد ماكرو ولكنها لا تظهر في مربع الحوار يعني عندما أعمل زر وأريد ربطه بالماكرو فإن الماكروات لا تظهر فما السبب ؟ وهل يمكن إظهارها ؟ STP(version 2.1).rar

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

تفضل sheet name.rar

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

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

السلام عليكم بعد إذنكم إخواني هذا حل بالأكواد مثال2.rar

وعليكم السلام نعم يمكن تفضل مثال1.rar

التعديلات كما يأتي Private Sub Worksheet_Activate() Dim x As Long, t As Integer Application.ScreenUpdating = False x = [CD5].Value If x = 0 Or x = 1 Then GoTo 1 Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault Range("A17:BY" & x + 15) = Range("A17:BY" & x + 15).Value Range("A" & x + 16).Resize(70000, 77) = "" GoTo 2 1: Range("A" & 17).Resize(70000, 77) = "" 2: For t = 0 To 10 Range("A45:BY47").Offset(32 * t, 0).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next Application.ScreenUpdating = True End Sub انسخ الكود كما هو وجرب النتيجة تحياتي

السلام عليكم هنا الكود يعطيك 3أسطر فارغة بين البيانات فإذا حبيت أن يكون الأسطر الفارغة هي 4بدلا من 3 فاذهب إلى السطر Range("A32:G34").Offset(32 * t, 0).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove وغير الرقم 34 إلى 35 تفضل المرفق تخفيف حجم الملف5.rar

عمل ممتاز أخي ياسر بارك الله فيك ولكن أبوأحمد طلب أن يكون حساب البيانات في الخلية A1 تلقائيا عن طريق المعادلة بمعنى يتم التغيير في صفحة الينانات يدويا ثم يتم التغيير في ورقة2 بناء على ذلك بالتالي وضعته في حدث التنشيط للصفحة والأن نحن أمام حلين للمشكلة فليختر أبوأحمد ما يناسبه

الآن أصبح كل المواد التي ذكرتها لها أعمال تطبيقية ماذا بعد هذه الخطوة ؟ كشوف 1و2 علوم وآداب1.rar

جاري النظر في ملفك وإذا توصلت لحل المشكلة سارفقه هنا لا تقلق

السلام عليكم أخي ياسر شكرا لك على إثراء الموضوع الأخ أبوأحمد تم معالجة المشكلة سيتم حساب عدد الاسماء وتطبيق الكود مباشرة تفضل تخفيف حجم الملف3.rar