نجوم المشاركات

شاهد المرفق بعد التعديل اوردارات العملاء11.rar

أستخدم أخى هذه المعادلة وأسحبها لأسفل ، يتم وضع المعادلة فى (F5 ) =IF($B5<>"";IF($C5="الاولى";500;IF($C5="الثانية";400;200));"") تقبل تحياتى

تفضل أخى المطلوب ترحيل البيانات بشرط.rar

أخى الحبيب ( وليد فتحى ) جهد رائع وعمل ممتاز ، جعله الله فى ميزان حسناتك ياريت كمان لتعم الفائدة لجميع الأعضاء ياريت تقوم بتحويلة للعمل على أوفيس ( 2003 ) تقبل تحياتى

هذه فكرة بسيطة أخى تحقق المطلوب أما لو أستخدمنا تسمية النطاقات لعمل ( DROP DOWN LIST ) فهذا سيأخذ وقت أرجو أن تحقق ماتريد قوائم منسدلة.rar

أخى (أبو حازم ) أنا أسف بعد تتبع الشروط المختلفة لجلب الأسم بنائا على الرصيد وجدت ، أن المعادلة السابقة لاتأتى بالأسم فى حالة تشابة الرصيد بل تكرر نفس الأسم لذلك ، من الأفضل إستحدام هذه المعادلة وهى معادلة صفيف أى لابد من الضغط على ( CTRL+SHIFT+ENTER ) لكى تقوم الدالة بالعمل الصحيح والأن للمرفق وقد وضعت بهما الدالتين لتوضيح الفرق بينهم فى حالة تشابة الرصيد: تقبل : تحياتى جلب الأسم بنائا على الرصيد.rar

أليك أخى المطلوب تصفية.rar

تفضل أخى ترحيل بيانات 2.rar

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

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

تفضل أخى تقبل تحياتى نموذج نقل عاملين الى فروع المنشأه - Copy.rar

اخواني أخواتي تم بحمد الله اصدار العدد الاول عدد مارس 2014 بتاريخ 2014/03/09 علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=52349#entry326736

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

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

السلام عليكم ورحمة الله وبركاته طبعا ليس لي كلام بعد عباقرة واساتذة المنتدى الاب الروحي وعميد منتدنا والدي الفاضل الاستاذ // جمال دغيدي الاستاذ المميز دائما خفيف الطلة استاذ // حمادة عمر الاستاذ الواعد الخبير الايام القادمة _ بإذن الله _ حبيبى العزيز استاذ // وليد فتحي ولكن أخي الكريم دخلت هنا منذ تقريباً اقل من سنة وكنت اشعر بما تشعر به انت الان وكنت لا افقه شي الا الامور البسيطة عن الاكسيل ولكن بدات احاول ان اخدم نفسي بنفسي في بعض الامور حتى لا اثقل على الاخوة في المنتدى ولله الحمد وصلت بفضل الله الى مستوى يساعدنى انا في حل الكثير من مشكلاتي ولعل هذه بعض الخطوات التى قمت بها 1 ) خطوة ارى انها مهمة لتصل الى مستوى عالي في وجهة نظري وهي التى ساعدتني في ما انا فيه الان كنت بدخل على المواضيع المحلولة ثم انظر الى الدالة المستخدمة وابحث عن شرح لهذه الدالة المستخدمة مثال ذلك =sum a1+a2 كنت بدور على شروحات لدالة (sum) وهكذا 2 ) محاولة الاشتراك في الحلول للمواضيع البسيطة التى تحتاج الى حل وهذه الخطوة مهمة جدا فان لم تقم انت بالحل فسوف تساعدك هذه الخطوة لفهم كيفية الحل لانك بالتفكير اصبحت انت الان صاحب المشكلة وبالطبيعي صاحب المشكلة هو اكثر الناس يستفيد بحلها. 3 ) الصبر ثم الصبر كما قال لك الاخوة 4 ) كما قال لك الاستاذ الحبيب // حمادة عمر حب التعلم والتعامل مع الاكسيل ففاقد الشي لا يعطيه 5 ) وقبل اي شى الدعاء لله والاخلاص في التعلم 6 ) لا تستعجل على الحلول ولا تلح على الاساتذة على الحلول وكن صبورا معهم ستجد منهم افضل مما كنت تنتظره 7 ) اذا دخلت اي موضوع لا تهمل اي مشاركة فربما مشاركة في وسط الموضوع تغير لك امور كثيرة وتوفر لك كثير من الجهد والوقت واخيراً نسعد بك أخا متعلما ومعلما وبعتذر على الاطالة..

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

استاذى ابراهيم ابوليلة استاذى حمادة باشا انا اعلم انكم اساتذة عظماء احاول ان تراجعوا اكوادى لانى احاول رد جميل هذا الصرح العظبم استاذنكم ان اشارككم الاراء والحلول Sub gggg() Sheets("Sheet1").Select Sheets("Sheet1").Range("f3:h3000").ClearContents Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = 3 To Range("c3").End(xlDown).Row If Sheets("Sheet1").Cells(i, 3) = Cells(2, 6) Then Sheets("Sheet1").Cells(i, 6) = Sheets("Sheet1").Cells(i, 2) End If If Sheets("Sheet1").Cells(i, 3) = Cells(2, 7) Then Sheets("Sheet1").Cells(i, 7) = Sheets("Sheet1").Cells(i, 2) End If If Sheets("Sheet1").Cells(i, 3) = Cells(2, 8) Then Sheets("Sheet1").Cells(i, 8) = Sheets("Sheet1").Cells(i, 2) End If Range("f3:h300").SpecialCells(xlCellTypeBlanks).Delete Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub استخراج.rar

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

تفضل أخى المطلوب البحث عن القيم التى تناسب الفترة.rar البحث عن القيم التى تناسب الفترة 2.rar

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

إخواني الأعزاء أعضاء المنتدى الجميل ، تعبت مرارا وتكرارا وإلحاحا ( حلوة إلحاحا دي ) على المشرفين يشرحوا لنا VBA وأوامره وأكواده وشفراته والتطبيقات الممكنة بيه وربطه باكسيل ، المهم لم أجد مجيب علما بان الموضوع لو كان اتفتح من البداية وكل مشرف حط له كود كل يوم كان زمانه خلصنا منه دلوقتي ، وكان الشرح هيبقى على ايد اساتذة فاهمين ومجربين انا لا الومهم بالطبع عارف ان كلهم مشغولين ، وعلشان كده قلت اترجم كتب ومواقع في الموضوع ده ولقيت إني بستفيد بصراحة ، وحبيت إن الكل يستفيد معايا ، بمعنى آخر أنا زيي زيكم بالضبط معلوماتي في الفيجوال مع اكسيل زي معلوماتكوا في الكيمياء الحيوية وعلاقتها بالعدسات اللاصقة ههههههههه ... ومع بعض واحدة واحدة خالص واللي هخلصه ترجمة وتنسيق أعرضه ليكم ، بداية بتعريف VBA , VBE والواجهة والأوامر وكيفية كتابة الأكواد والعمليات البرمجية ، وفي النهاية هعملكو زي مرجع شامل بكل الاوامر الممكنة وتعريف موجز بالامر او الكود وبيعمل ايه ومثال لكل واحد ، والله المستعان بندأ وبعون الله في الدرس الاول الجزء الأول ( مقدمة إكسيل VBA ) في هذا الجزء سوف تتعلم : ** لماذا إكسيل VBA ** محرر أوامر VBE الغرض من هذه الدورة هو إظهار كيف يمكن لمستخدمي إكسيل استخدام برمجة التطبيقات (VBA ) التي تأتي مع برامج أوفيس مجانا .. هذه الأداة ستساعدك إلى حد كبير على تعزيز قوتك في استخدام البرنامج الأكثر شعبية في جداول البيانات باستخدام VBA . برمجة الكمبيوتر في أيامنا هذه أصبحت أسهل بكثير ، وحتى ما يسمون الآن أناس عاديين يعرفون أن البرمجة هي ببساطة وضع تعليمات يقوم الكمبيوتر بتنفيذها . وبرمجة الإكسيل تعني أنه يمكنك إعطاء تعليمات وأوامر لإكسيل ليقوم بأدائها تلقائيا ، تلك التي كنت تقوم أنت بها يدويا ، وذلك يوفر وقتك كثيرا . أثناء قراءتك لهذا فإنها ستكون المراهنة على تصبح مبرمج إكسيل ، مما قد يكون نابعا من أن تصبح أكثر قابلية للتسويق ، وهذه الدورة وبطبيعة الحال سوف تتعلم برمجة إكسيل ، ومع انتهائها سوف تدرك جيدا مدى سهولة هذه العملية . في نهاية هذه الدورة ، فإننا سوف نتعلم تطوير التطبيقات البسيطة مع اكسل VBA. قبل البدء في تعلم كيفية البرمجة باستخدام VBE ، يجب عليك أولاً كيفية استخدام البرنامج اللازم لإنشاء المشاريع الخاصة بك ، إن تطوير البرمجيات بواسطة ( VBA ) مدرج مع كل من برامج ميكروسوفت أوفيس ، مما يوفر لك عددا من الأدوات في تطوير المشروع . 1) ما هو محرر فيجوال بيزك (Visual Basic Editor ) ؟؟ عليك استخدام المصنفات ، والصيغ والرسوم البيانية ، وغيرها من الأشياء الجيدة لإكسيل معظم الوقت ، حان الوقت الآن لتوسيع النطاق الخاص بك ، واستكشاف آفاق جديدة تماما من جوانب إكسيل ، إنه محرر الفيجوال بيزك Visual Basic Editor ، عليك معرفة كيفية استخدامه ، وتعكف على مهمة كتابة بعض أوامره . إن محرر فيجوال بيزك ( VBE ) هو عبارة عن برنامج منفصل عن طريقه يمكنك كتابة وتعديل VBA أو الماكرو ، وهو يعمل بسلاسة مع إكسيل ، ويمكنك تنشيط هذا المحرر (VBE ) عن طريق الضغط على{ Alt+F11 } عندما يكون إكسيل منشطا ، أو عن طريق استخدام القوائم من أدوات – ماكرو – محرر فيجوال بيزك .. كما بالشكل التالي : الشكل يوضح كيفية استدعاء محرر أوامر الفيجوال بيزك( VBE ) أ) شريط القوائم : تماما مثل أي برنامج آخر يمكنك استخدامه ، فشريط قوائم VBE يتضمن الأوامر المختلفة ومكوناتها ، يمكنك استخدام هذه الأوامر والمكونات في VBE على فعل الأشياء ، والعديد من أوامر القائمة لديها مفاتيح الاختصار المرتبطة بها . الشكل التالي يوضح واجهة محرر البرامج VBE والتي تحتوي على الكثير من المكونات .. ب) مستعرض المشروع (Project Explorer ) : نافذة عرض المشروع تعرض شجرة توضح كل المصنفات المفتوحة في ملف إكسيل الحالي ( بما في ذلك المصنفات الإضافية والخفية ) عندما تعمل على VBE تعتبركل المصنفات والإضافات المفتوحة كمشاريع ، يمكنك اعتبار أن المشروع هو عبارة عن مجموعة من objects أو كائنات رتبت حسب مخطط معين . اضغط على علامة ( + ) الموجودة على يسار اسم المشروع في نافذة عرض المشاريع لتوسيع المشروع . ج) نافذة الأكواد ( objects ) : يضم VBE أداة أخرى ، تحتوي على نافذة الأكواد Code window أو Module window ، كل object في المشروع يرتبط بنافذة أكواد خاصة به . على سبيل المثال ، للإطلاع على نافذة أكواد للورقة Sheet1 ، انقر نقرا مزدوجا فوق Sheet1 في نافذة مستعرض المشروع . وحتى تضيف بعض أوامر VBA فإنها ستظل فارغة ... د) مستعرض الكائنات (Object Browser ( : ويضم VBE أداة أخرى ، تحتوي على نافذة الكائنات المتاحة لك خلال المشروع ، للوصول إلى مستعرض الكائنات ، اضغط F2 في شاشة VBE ، أو من قائمة عرض ( VIEW ) – مستعرض الكائنات (Object Browser ) القائمة المنسدلة في الأعلى قائمة تحتوي على مكتبة بها جميع وجوه الكائنات المتاحة حاليا .,. إذا كنت ترغب في تصفح كائنات إكسل ، حدد إكسل من القائمة المنسدلة. هـ ) نافذة الخصائص (Properties Window ) : الشكل يوضح نافذة الخصائص لأحد الكائنات بالمشروع ، وهو على سبيل المثال (CommandButton1 ) أو زر أمر 1 ، فعندما تريد تغيير عنوان هذا الزر فإنك تغير في إعدادات Caption لهذا الزر وتضع أي عنوان تريده مثل ( اضغط هنا – خروج – حفظ ... ) يمكنك ايضا أن تلعب مع بعض الخصائص الأخرى مثل الخط ، الطول لون الخلفية العرض ، والارتفاع لتغيير مظهر CommandButton1 . موجز سريع : آمل أن أكون قد وفقت في الجزء الأول في عرض المقدمة وأساسيات البرمجة عن طريق VBA ببرنامج إكسيل ، وعليك أن تفتح محرر أوامر بيزك في إكسيل وحاول استعراض الكائنات الخاصة بالمشروعات وتغيير بعض الخصائص ... ومنتظر ردودكم أكمل والا لأ لانها بصراحة أول مرة أعمل موضوع بالشكل ده ...

يتيح لك البرنامج وظيفة طباعة الكتيبات تتم طباعة البيانات على كلا وجهي الورقة. ويضمن لك البرنامج إمكانية ترتيب الصفحات بصورة صحيحة، بترتيب أرقام الصفحات عندما تكون الأوراق المطبوعة مطوية ومُدبسة من المنتصف. بطريقة سهلة و للغتين العربية و الإنجليزية يعنى لو لديك ثمانية صفحات وورد يتم طباعتها فى ورقتان مثل الشكل التالى و المثال فى الصورة عن مستند إنجليزى و البرنامج يتيح أيضا الترتيب وفق النظام العربى صور البرنامج أنا جاهز للرد على أى تساؤل مصرح بالنقل مع ذكر المصدر البرنامج مجانى تماما حجم البرنامج خفيف جدا 3.8 ميجا بايت رابط التحميل https://www.mediafire.com/?ykp0hykqp8t39s5 فى أمان الله

التهنئة بترقية الاخ الجموعي الى عضو مميز

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

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

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

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

نعم أخى الأمر يكتنفه بعض الصعوبة لكن يمكن تذليل هذه الصعوبة و كنت فعليا أفكر فى الأمر لحل مشكلة طباعة عدد صفحات لا يقبل القسمة على 4 مثلا 6 صفحات يستلزم أن تكون آخر صفحتان خاليتان (راجع أول صورة فى الموضوع لتفهم مقصدى) جعل البرنامج هو من يتولى الملف (أو الملفات ) سيجعل ذلك الآمر سهل أشكرك لمتابعتك و لإقتراحك الجميل

جزاك الله خير استاذ حمادة باشا الله يعطيك العافية

السلام عليكم الاخ الكريم / هاني مصطفي الاخ الحبيب / إسلام الشيمي تقبلوا خالص تحياتي

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

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

أخي وأستاذي وليد فتحي شرفني مرورك العطر جزاك الله كل خير على هذه التهنئه

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

الأخ الكريم/ حاتم مبروك السلام عليكم ورحمة الله وبركاته تم إستخدام Vlookup - تعقيبا علي كلام حضرتكم المعادلات دقيقة وآمنة بالفعل لكنها لا تغني أبدا عن المراجعة اليدوية ولو بالنظر ليطمئن قلبك تقبل تحياتي محاولة ترحيل بيانات.rar

الاخ الكريم الحبيب / اسلام الشيمي بارك الله فيك عذرا فلم افهم المطلوب .. حيث ما ذكرته هو مايتم بالضبط في المرفق الأخير حيث انه لا يتم طباعه الا الاعمدة ( الموديل /العدد / السعر/ الاجمالى ) فقط الخاص بالعميل المفلتر وكذلك النطاق المطلوب ... فاين المشكلة برجاء مزيد من التوضيح او ارسال صوره لما تريده ان يظهر في الطباعه بعد الفلتره كمثال وللطباعه مباشرة في الكود السابق استبدل السطر التالي الموجود في الكود السابق Sheets("بيانات العملاء").PrintPreview بالسطر التالي Sheets("بيانات العملاء").PrintOut تقبل خالص تحياتي

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

اخى الجموعى اشكرك على المحاولات والمساعده بارك الله فيك

احسن الله اليك

أخي وليد فتحي جزاك الله كل الخير دمت بخير

عليكم السلام ورحمة الله وبركاته اخي الحبيب الجموعي أتفضل الملف واتمني من الله ان يكون طلبك تقبل مروري ترحيل وتنسيق_11.rar

السلام عليكم الاخ الحبيب / إسلام الشيمي بعد اذن استاذي الحبيب / أبو حنين ... جزاه الله خيرا وعلي حسب فهمي لطلبك استخدم الكود التالي Sub SAMA_PRINT() LR = Sheets("بيانات العملاء").[D20000].End(xlUp).Row On Error Resume Next Sheets("بيانات العملاء").PageSetup.PrintArea = Range("A1:D" & LR) Sheets("بيانات العملاء").PrintPreview End Sub تقبلوا خالص تحياتي اوردارات العملاء.rar

شاهد الرابط التالي في المشاركة رقم 8 المرفق طريقة وضع باسورد لمحرر الاكواد فيديو http://www.officena.net/ib/index.php?showtopic=47554&hl=%2B%D8%A8%D8%A7%D8%B3%D9%88%D8%B1%D8%AF+%2B%D9%85%D8%AD%D8%B1%D8%B1+%2B%D8%A7%D9%84%D8%A7%D9%83%D9%88%D8%A7%D8%AF#entry287890

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

اظن ان ذلك ( علي حسب علمي وحسب فهمي لطلبك ) دون كود لا يمكن تنفيذه حيث انه باستخدام المعادلات ستتغير قيمة الخلايا في الشيت المحمي بمسح المحتويات تقبل خالص تحياتي

أخى الكريم بداية كامل إحترامى لقدرات الأكسل أنا بصدد عمل برنامج لحماية ملف الأكسل بطريقة تمكنك من ضمان حقك فى تلقى المال كثمرة لمجهودك الذهنى سيكون برنامج حاضن لملف الأكسل سيتولى هو إخراج الشاشة الإفتتاحية التى ستحررها أنت على هواك سيضمن البرنامج الحاضن عدم الإطلاع على المحتويات الحساسة سيضمن عدم تعديل المناطق المحمية سيخبر العميل بطريقة الوصول إليك ستتولى أنت وضع معادلة السيريال وفقا لهاردوير كل عميل (المعادلة فقط و ليس برمجة معقدة) سيتولى البرنامج صنع مولد المفاتيح الخاص بك كود الأكسل سيزرع آنيا لملف الإيكسل وقت التشغيل لضمان أن المستخدم لو تمكن من إستخراج ملف الأكسل(شبه مستحيل) فلن يحصل إلا على ملف خالى من الأكواد سيحمى الملف من النسخ المباشر من الذاكرة سيكون إسم البرنامج Excel Protection Studio سيكون ستوديو كامل تتحكم فيه بأدق و أعقد التفاصيل المتعلقة بحماية الملف و تفاصيل الفترة التجريبية إن وجدت بدون أى خلفية برمجية الآن أترك الأمر للمتخصصين بالإيكسل لإفادتك

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

اخى محمود تم تعديل الكود جرب واعلمنى تحياتى Sub saad() Application.ScreenUpdating = False Sheets("Entry").Select al = Sheets("Database").[e10000].End(xlUp).Row If [d1] = "" Or [d2] = "" Or [d3] = "" Then MsgBox "Ãßãá ÇáÈíÇäÇÊ ÃæáÇ" Exit Sub ElseIf Not [c4].Value = [d4].Value Then MsgBox "!ÊÃßÏ ãä ÅÏÎÇá ÇáÞíÏ ãÚ ÊæÇÒä ÇáØÑÝíä", vbExclamation, "ÅÏÎÇá ÎÇØÆ" Exit Sub ElseIf Sheets("Database").Range("e" & al).Value = [d2].Value Then MsgBox "!ÊÃßÏ ãä ÚÏã ÊßÑÇÑ ÇáÝíÏ", vbExclamation, "ÅÏÎÇá ÎÇØÆ" Exit Sub 'Else End If For r = 7 To Sheets("Entry").[c3000].End(xlUp).Row With Sheets("Database").[d10000].End(xlUp) .Offset(1, 0) = Sheets("Entry").[d1].Value .Offset(1, 1) = Sheets("Entry").[d2].Value .Offset(1, 2) = Sheets("Entry").[d3].Value .Offset(1, 3) = Sheets("Entry").Cells(r, 3) .Offset(1, 4) = Sheets("Entry").Cells(r, 4) .Offset(1, 5) = Sheets("Entry").Cells(r, 5) .Offset(1, 6) = Sheets("Entry").Cells(r, 6) End With Next r Application.ScreenUpdating = True End Sub مثال على الترحيل.rar

شعار لمصرنا الحبيبة اللهم احفظها من كل سوء ومن كيد كل من يكيد لها اللهم امين

الاخ الكريم / عبد الرحمن شفيق بارك الله فيك كلمات جميلة تنم عن روعة شخصكم الكريم تقبل خالص تحياتي