أبوعبد الله

أخي العزيز رجاء الاطلاع على المرفق وفيه يتم تلوين أي خلايا في النطاق المستخدم بها معادلة SUBTOTAL للجمع . تحياتي أبو عبدالله تلوين كل الخلايا التي تحتوي SUBTOTAL.rar

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

أخي العزيز أبو عبدالله أشكرك على كلماتك الجميلة التي تعبر عن شخصك الجميل وإليك نسخة معدلة من الملف بها تم أخذ كل ملاحظاتك في الاعتبار : 1- تم عمل أسماء المستخدمين في combobox بدل textbox . 2- كلمةالسر الخاصة بفتح فورم إخفاء وإظهار الورقة sheet7 التي بها معلومات المستخدمين موجودة في نطاق مسمى P_W وهو موجودبنفس الورقةsheet7 ولكن كان من الممكن الاطلاع عليه حتى والورقة مخفية ، لذلك تم عمل حماية على ظهور والاطلاع على أسماء كل النطاقات بالملف بالكامل والحماية تعمل مع فتح الملف وتلغى مع إظهار الورقة sheet7 ثم تعمل من جديد عند إخفاء نفس الورقة وعلى ذلك تستطيع تعديل كلمة حماية اظهار الورقة من النطاق P_W. تقبل تحياتي أخي العزيز هشام أشكرك من كل قلبي على كلماتك الرقيقة ومبروك على تغيير إسم الظهور وأكيد هذه كانت رغبتك كما كانت رغبة الكثير من محبيك وأكيد hosh أحسن مليون مرة من bosh أخي العزيز خالد أشكرك جزيل الشكر فأنت دائماً صاحب واجب . تقبلوا جميعا تحياتي أبو عبدالله طباعة بأسماء وكلمات سر مستخدمين-1.rar

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

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

أخي العزيز / طارق تقبل تحياتي وتقديري على هذا العمل المميز فجزاك الله خيراً. أبو عبدالله

أخي العزيز / أبو عبدالله أرجو إرفاق ملف حتى يتم التطبيق عليه حيث أنني لم افهم بشكل دقيق طلبك الأخير . تقبل تحياتي أبو عبدالله

أخي العزيز / hben أسجل إعجابي بالكود الذي لم أقم إلا بإضافة السطرين الخاصين ب Application.EnableEvents Application.ScreenUpdating قبل وبعد تنفيذ العمل . تحياتي أبو عبدالله مشكلة تظليل خانات2.rar

أخي العزيز / أبو عبدالله الترحيل عادة لايؤثر على مصدر البيانات المراد ترحيلها المحمي ولا تعوق الحماية عملية الترحيل ولكن الورقة المرحل إليها هي التي تحتاج لفك الحماية قبل الترحيل ثم إعادتها بعده وذلك بوضع السطر الآتي في بداية كود الترحيل وبفرض أن الورقة المرحل لها إسمها database وبفرض أنها محمية بكلمة سر 123 Sheets("Database").Unprotect Password:="123" وفي نهاية كود الترحيل ضع هذا السطر : Sheets("Database").Protect Password:="123" تحياتي أبو عبدالله

أخي العزيز / خالد رجاء الاطلاع على المرفق وبه في الخلية A1 إذا كتبت صفر يظهر لك INPUTBOX لاختيار بالماوس النطاق المطلوب إخفاء صفوفهوبمجرد الانتهاء من الاختيار وضغط ENTER يتم إخفاء صفوف النطاق المختار والوقوف ب A1 لتقوم بتغيير ال صفر لأي شيء آخر رقم أو كلمة فيتم مباشرة إظهار الصفوف المخفية . أرجو أن يكون هذا ماقصدته في طلبك . تحياتي أبو عبدالله HIDE RANGE IF A1 = ZERO.rar

أخي العزيز / خالد رجاء الاطلاع على المرفق . تحياتي أبو عبدالله HIDE WHEN PRINT IF ZERO.rar

أخي العزيز / أبو عبدالله تفضل هذا الحل وإن شاء الله يكون مناسب وهذا مع كل الشكر والتقدير لأخي الحبيب خبور الذي أظن أنه ربما يكون مشغول اليوم فلم أراه بالمنتدى . تقبلوا جميعاً تحياتي أبو عبدالله sum textboxes.rar

أخي العزيز بالمرفق قم بمعاينة الطباعة ولاحظ عدم وجود أي نص بالخلايا ( A1:C1 ) وبعد الانتهاء من المعاينة إذا لم يظهر لك مفتاح إغلاق المعاينةاضغط ESCAPE للخروج من مود المعاينة - الفكرة تتم من خلال كود حدثي BEFORE PRINT على مستوى الملف تم تعيين إسم الورقة به والنطاق المطلوب تطبيق الفكرة عليه وهي جعل لون خط خلايا النطاق ابيض عند المعاينة او الطباعة ثم العودة للون الموجود مع ملاحظة أن الكود يتعامل مع النطاق المحدد على أن لون الخط الموجود فعلاً لون واحد في الخلايا الثلاثة بغض النظر عن اللون وهذا للعلم فإذا تم جعل الألوان مختلفة في كل خلية لون مختلف عن الآخر فإن الكود لن يعمل بشكل صحيح حتى يتم تعديله . تحياتي أبو عبدالله إخفاء الكتابة عند الطباعة.rar

إخواني الأعزاء الجزيرة ( أبو عبدالله ) / لك مني كل الشكر والتقدير وأرجو ألا تغيب عنا وأن نراك دائماً بخير . tofimoon4 / جزاك الله خير على كلماتك الجميلة ، ولا عليك تدلل على كيفك ونحن جميعاً إخوانك . HaNcOcK / أشكرك جزيل الشكر على كلماتك ودعواتك الطيبة ولك بالمثل أخي العزيز. خالد القدس / أجزل له لك الخير وأشكرك من كل قلبي . تقبلوا جميعاً تحياتي وحبي أبو عبدالله

أخي الحبيب / خبور خير أنت أستاذ بكل ما تحمله الكلمة من معنى . مع حبي وتقديري أخوك أبو عبدالله

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

إخواني الأعزاء أشكر لكل من شارك في هذا الموضوع هذه الروح الرائعة والمشاعر الجميلة وأخص بالشكر أستاذنا وأخونا الفاضل / محمد طاهر الذي طمئننا جميعاً على الأخ العزيز طارق وأنتهز هذه الفرصة للسؤال عن الكثير من الأخوة الأعزاء اللذين نفتقدهم جميعاً وطال غيابهم مما أقلقنا جميعاً عليهم ونسأل الله أن يكون مانع إطلالهم علينا خير وأذكر منهم أخونا الفاضل / أبو تامر وأخوناالفاضل / نزار سليمان عيد وأخونا الفاضل / عادل حنفي ( aah_aah2008 ) وهو الوحيد الذي أبشركم وأطمئنكم عليه حيث أنني على اتصال به في مصر وهو بخير والحمد لله وإن شاء الله يستأنف نشاطه ومشاركاته القيمة في القريب العاجل كمأ أحب أن أطمئنكم على أخونا إسلام سمير حيث جرى اتصال به بعد عودته من الإمارات لمصر وهو بخير أما من أشغلني عليه وأتمنى من يعرف عنه أي أخبار فهو أخونا العزيز وائل سلامي الذي ودعنا قبل فترة طويلة على أنه مسافر للعلاج للخارج ولم نسمع عنه إلى الآن ومنذ أكثر من سنة أي أخبار وهو بالمناسبة من سوريا وكان مقيم بالكويت فأتمنى على كل من يسمع عنه أي أخبار أن يطمئننا عليه ، وأعتذر إن كنت سهوت عن البعض ممن نفتقدهم جميعاً ولكن هؤلاء من أذكرهم الآن على الأقل . أسأل الله السلامة والعافية للجميع . مع حبي وتقديري أبو عبدالله

أخي العزيز / tofimoon4 رجاء الاطلاع على المرفق . تحياتي أبو عبدالله transferring by months.rar

أخي العزيز أشكرك على ردك وأشكرك على الأكواد المفيدة . تقبل تحياتي أبو عبدالله

أخي العزيز/ Mr_simo أخي العزيز / أيسم فكرتك رائعة ولإثراء الموضوع هذا حل بكودين مختلفين لنفس الفكرة الأول مستخدم للمعاينة قبل الطباعة والثاني مختلف ومستخدم للطباعة المباشرة والفكرة مبنية على تسمية نطاقات الجداول من RNG1 إلى RNG15 وأتصور أنه يستفاد من الأكواد في حال عدم وجود النطاقات المراد طباعتها في صورة جداول مرتبة إلى جوار وإلى أسفل بعضها البعض على هذا النحو فإنه في هذه الحالة لن يكون مناسب استخدام فكرة فواصل الصفحات . تقبلوا تحياتي أبو عبدالله طباعة خاصة.rar

أخي العزيز / هاني أتصور حل المشكلة في إعادة حفظ الملف بتنسيق EXCEL 97-2003 WORKBOOK وعندما تظهر لك رسالة بخصوص إعادة حساب المعادلات وافق على ذلك واحفظ وأخبرني بالنتيجة وعلى فكرة أنا عملت نفس الشيء بملفك المرفوع ولم تحدث أي مشاكل ولكن مع الأسف لم استطيع إعادة رفع الملف لموقعي الخاص برفع الملفات . تحياتي

أخي العزيز / أبو حمزة يمكنك ذلك بالطبع في الأوراق الخاصة بمعلومات الأصناف ITEMS INFO بعد فك حماية الورقة والمحمية بنفس كلمة الحماية العامة بالبرنامج وهي 123 كذلك الورقة الخاصة بالتعريفات علماً أنها غير محمية فتستطيع أن تمسح كل المعلومات عدا عناوين الأعمدة طبعاً ، أما الأهم فهو الداتا فمسحها متاح بكود وسجد أيقونة بورقة DATA خاصة بمسح بيانات الحركة بالكامل وتحديد مسلسل جديد تحب البدء به لأوامر الشراء . على فكرة اطلعت على طلبك الأخير بخصوص موضوع المستودعات وإن شاء الله يأتيك المطلوب في أقرب وقت واعذرني لإنشغالي . تقبل تحياتي أبو عبدالله

أخي العزيز وجدت لك هذا الملف من مشاركة قديمة لي وإن شاء الله يكون مناسب لطلبك وبه الشرح وأي استفسار لا تتردد. تحياتي أبو عبدالله join cells again.rar

أخي العزيز /هاني في المرفق تم تسمية نطاق إسمه MyRng وهو الخلايا (B2:B100) على أن يكون نطاق هدف لتنفيذ طلبك وهوأنه في أي خلية بهذا النطاق إذا تم تحرير الخلية وكان نص الخلية كلمة WRONG فسيتم نطق الكلمة "WRONG" وغيرهالن يتم نطقه وهذا كنوع من التنبيه إن كان هذا ما تقصده وطبعاًتستطيع تنفيذ الفكرة على أي نطاق بالورقة بمجرد إعادة تعيين النطاق MyRng للنطاق الذي ترغب فيه ، أرجو أن تكون الفكرة مناسبة لطلبك وعلى فكرة طلبك ليس "غريب ولا رخم" . تحياتي أبو عبدالله SPEAK CELL IF CELL TEXT IS WRONG.rar

أخي العزيز الماكرو الذي ذكرته يعمل عندي بدون مشاكل ومع ذلك استبدله بالآتي : Sub mg2() On Error Resume Next ActiveSheet.ShowAllData End Sub وجرب وأخبرني بالنتيجة تحياتي