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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

شاهد الرابط التالي في المشاركة رقم 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 سيكون ستوديو كامل تتحكم فيه بأدق و أعقد التفاصيل المتعلقة بحماية الملف و تفاصيل الفترة التجريبية إن وجدت بدون أى خلفية برمجية الآن أترك الأمر للمتخصصين بالإيكسل لإفادتك

السلام عليكم ورحمة الله وبركاته أخي الحبيب // السوهاجي اسال الله ان ييسر لك عملك ويتمه على خير ولا اظن ان الاخوة ينظرون الى الاسماء قبل الحلول ولكن هناك امور اخرى تتسبب في عدم حل الموضوع منها على سبيل المثال عدم فهم المراد بالضبط او تشعب الموضوع او ما يحتاجه الموضوع من وقت وجهد لكثرة طلباته ولي نصيحة ولعلها بإذن الله تصل بك الى مرادك وحل طلباتك 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

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