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

شاهد المرفق بعد التعديل اوردارات العملاء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

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

السلام عليكم امثلة على طباعة السجل من (فورم ادخال وتعديل وبحث) الاصدار الثالث http://www.officena.net/ib/index.php?showtopic=51955 هذه ثلاثه امثله مختلفة في المرفق 1 - طباعة في مصنف جديد او من خلال الفورم اذا كانت الشاشة تظهر جميع بيانات السجل 2 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لجميع بيانات السجل 3 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لبعض بيانات السجل المرفقات 2003 فورم ادخال و تعديل مرن مع الطباعة 1.rar

اخى الجموعى هل تقصد هكذا البحث بتاريخ الميلاد.rar

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

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

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

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

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

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

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

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

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

الأخ الكريم/ محمد ابراهيم 78 السلام عليكم ورحمة اله وبركاته فضلا أرفق ملف به مثال عما تريد - لتوضيح المطلوب حتي لا يصبح السؤال سؤالين سؤال عن قائمة منسدلة وسؤال آخر عن مدي توافقها وكيفية دمجها ضمن بياناتك . وأنتهز الفرصة وأشكر الأخت الفاضلة/ أم عبد الله علي هذا المجهود الرائع . والسلام عليكم ورحمة الله وبركاته

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

الأستاذ / أبو وليد السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب والأعمدة M,N,O,P بها معادلات لاتحذفها لأنها أساس العمل. Book1.rar

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

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

السلام عليكم استبدل شرط البحث بهذا If LCase(TextBox1.Value) = LCase(cl) Then تحياتي

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

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

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب // السوهاجي اسال الله ان ييسر لك عملك ويتمه على خير ولا اظن ان الاخوة ينظرون الى الاسماء قبل الحلول ولكن هناك امور اخرى تتسبب في عدم حل الموضوع منها على سبيل المثال عدم فهم المراد بالضبط او تشعب الموضوع او ما يحتاجه الموضوع من وقت وجهد لكثرة طلباته ولي نصيحة ولعلها بإذن الله تصل بك الى مرادك وحل طلباتك 1 ) اغلق هذا الموضوع فلعل الطلبات التى به كثيرة جداً مما صعب على الاساتذة اتمامه ثم 2 ) افتح موضوع جديد ولكن هذا الموضوع الجديد حاول ان تختصر فيه طلباتك وليكن فيه طلب واحد فقط من مجموعة الطلبات التى تريدها وبهذا تكون توصلت الى 25% من طلباتك ثم تصيغ سوال اخر في موضوع جديد ...وهكذا الى ان يتم حل موضوعك بنسبة 100% اتمنى ان تكون وصلت الفكرة... أخوك محمد أبو البراء ( الاسيوطي )

اخى ابوحنين اتتبع خطواتك اسال الله ان يديم عليك نعمه وان يجعل اولادك قرة عين لك اللهم امين

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

اخى محمود تم تعديل الكود جرب واعلمنى تحياتى 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

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

السلام عليكم المجموعة الثانية وهي عبارة عن الزرار دون اشكال الكلمة فقط فمن يرغب في اي شكل وتعديل كلمة الرئيسية باي كلمة فانا في الخدمة.. 1 2 3 4 5 6 للتحميل في المرفقات متجدد بإذن الله المجموعة الثانية للزراير.rar

كنا ننتظره من فترة شكرا لك عقبال منتدى الثانوية العامة