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

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

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

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

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

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

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

اخى الحبيب حضرتك عامل فى الملف المرفق بتاعك ان قيمة التكلفه تساوى اخر قيمة تم شراء بضاعه بها وهذا غير صحيح علشان تحسب متوسط تكلفه الصنف مجموع قيم الكميات اول المده+مجموع قيم الكميات من المشتريات - مجموع قيم مردودات المشتريات متوسط تكلفه الصنف = ------------------------------------------------------------------------------------------------------------ مجموع الكميات اول المده+مجموع الكميات من المشتريات - مجموع مردودات المشتريات مثال الصنف أ الكمية سعر الحبه القيمة اول المده 5 10 50 مشتريات 6 11 66 مردود مشتريات 2 10 20 --------------------------------------------------- المجموع 9 96 50 + 66 - 20 96 متوسط التكلفه فى هذه الحاله هى = --------------------- = ------ = 10.66 5 + 6 -2 9 طبعا حضرتك مش عندك اول المدة ولا عندك مردود مشتريات كله بس شراء وبيع حركة الشراء تؤثر على تقيم المحزون أما حركة البيع لا تؤثر على تقيم المخزون اتمنى ان اكونا وضحت الفكرة تقبل تحياتى

لمعرفة رقم الصف لاول خلية غير فارغة في العامود A مثلاً (هذا الامرلا يأخذ بالحسبان الغراغات) المعادلات صفيف (ctrl+shift+enter) =MATCH(1,IF($A$1:$A$500<>0,IF($A$1:$A$500<>"",1)),0) لمعرفة عنوانها =ADDRESS(MATCH(1,IF($A$1:$A$500<>0,IF($A$1:$A$500<>"",1)),0),1) لمعرفة ماذا تحتوي =INDEX($A$1:$A$500,MATCH(1,IF($A$1:$A$500<>0,IF($A$1:$A$500<>"",1)),0)) لمعرفة رقم الصف لاخر خلية غير فارغة في العامود A مثلاً =MAX(($A$1:$A$500<>"")*ROW($A$1:$A$500)) لمعرفة عنوانها =ADDRESS(MAX(($A$1:$A$500<>"")*ROW($A$1:$A$500)),1) لمعرفة ماذا تحتوي =INDEX($A$1:$A$500,MAX(($A$1:$A$500<>"")*ROW($A$1:$A$500)))

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

بالاذن من اخي الحبيب ياسر دعني اجيب على هذا السؤال هذه العملية لا تتطلب اكثر من ثوانٍ معدودة حتى ولو كان عندك 5000 اسم و الكود عبارة عن سطرين او ثلاثة هل توافقني الراي يا ياسر

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

جزاك _الله_ خيراً أخي محمد. الحمد لله الذي بنعمته تُقضى الحاجات

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

كل المعانى الجميلة تتضاءل امام قدرك لدى اعضاء المنتدى حفظك الله لنا دوما وبارك لنا فيك

أخي الحبيب مختار جزاكم الله خير الجزاء على هذا الملف الرائع إن شاء الله بقول إن شاء الله عشان لسه مشتغلش معايا كويس أنا دلوقتي الحمد لله انتقلت لأوفيس 2013 .. والمكتبة اللي أشرت إليها Microsoft Word 12.0 Object Library اللي عندي 15.0 مفيش مشكلة متفعلة ..! وجيت أنفذ الكود خد وقت طويـــــــل - المهم صبرت - وصبرت - وفي الآخر جالي رسالة بتقول : الهاتف الذي طلبته غير موجود بالخدمه !! Microsoft Excel is waiting for another program to complete an OLE action جربت مرة تانية قلت يمكن الكود زعلان من حاجة عندي وصبرت وصبرت وصبرت ... إنما للصبر حدود أخي مختار على رأي الست وفي الآخر لسه الكود شغااااااااااال .. حاسس إنه بيخترع الذرة وأخيرا جاتلي رسالة بتقولي : مبروك جالك ولد (قلت له كنت عايز بنت ) قالي لا جالك ولد .. الحمد لله تم العمل على خير بس استغرق وقت طويل جداً ..فهل من حل؟ قبل تحياتي

من قدّك يا رمهان ومثل ما نحن العمانيين نقول: صرت فوق النخل جعفر

تفضل أخى الكريم هذا النوذج show Images in a Cell based on a condition.rar

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

الأخ الفاضل أبو يوسف المصري بداية أهلاً ومرحباً بك في المنتدى ونورت المنتدى يا مصري مشكور على كلماتك الرقيقة والرائعة ، والله وحده يعلم أني لا أستحقها بارك الله فيك ونفع بك .. وإن شاء الله نرى منك في القريب العاجل .. تقبل تحياتي :fff:

ياسر خليل خلق .. ليبتكر ليبادر ليقدم يد العون ليبتسم و نبتسم معه ليقدم لنا علم ننتفع به خلق لكي لا يقول الناس ذهب الابتكار و المبادره و مد يد العون و العلم النافع من الدنيا . نشكرك بكل لغات الدنيا و الاخر الاخ العزيز ياسر خليل

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

استاذى الحبيب هانى بدر انا سعيد جدا بدخول حضرتك على خط النقاش الساخن حول هذا الموضوع اسمح لى وبكل تواضع منى لشخصكم الكربم حركات فواتير المبيعات ومردودات المبيعات لا تؤثر على متوسط تكلفه المخزون بأى طريقه نهائيا طبعا علشان اوصل لحضرتك على اى اساس كتبت الكلام ده لازم لى ساعات علشان اكتب ووضح لحضرتك بالامثله المثال اللى حضرتك بتستشهد بيه اليك المثالين يوضحون الفرق مثال 1 تاريخ الحركه نوع الحركة الكمية السعر القيمة 2015-4-1 مشتريات 10 4 40 2015-4-4 مبيعات 5 5 25 ( ملحوظه هنا سعر البيع طبقا لسياسة الشركه وادارة المبيعات هى من تقرر السعر وبافتراض هنا انها 5 جنية) 2015-4-4 اذن صرف من المخازن 5 4 20 ( هنا تم عمل سعر التكلفه بناء على المتوسط المرجح قيمة المشتريات 40/ كمية المشتريات 10= 4** يعنى تم تقييم المخزون صرفه من المخزن وبسعر المتوسط عند الخروج وليس البيع) 2015-4-15 مشتريات 10 6 60 ----------------------------------------------------------------------------------------------------------------------------------------------------------- المثال 2 تاريخ الحركه نوع الحركة الكمية السعر القيمة 2015-4-1 مشتريات 10 4 40 2015-4-4 مبيعات 5 5 25 ( ملحوظه هنا سعر البيع طبقا لسياسة الشركه وادارة المبيعات هى من تقرر السعر وبافتراض هنا انها 5 جنية) 2015-4-15 مشتريات 10 6 60 2015-4-16 اذن صرف من المخازن 5 5 25 ( هنا تم عمل سعر التكلفه بناء على المتوسط المرجح قيمة المشتريات 100/ كمية المشتريات 20 = 5 ** يعنى تم تقييم المخزون عند صرفه من المخزن وبسعر المتوسط عند الخروج وليس البيع) هنا اصبح قيمة المخزون 5 بدلا من 4 والسبب فى ذالك هى حركة المشتريات بتاريخ 15-4-2015م التى أثرت على التكلفه ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- من المثالين السابقين يتضح لنا ان عملية تقيم تكلفه المخزون مختلفه والسبب هنا هو حركة المشتريات وليس المبيعات علشان كدا انا بقول لحضرتك ان عملية البيع ليس لها اى علاقه بتقييم المخزون لا بطريقه الجرد الدورى ولا طريقه الجرد المستمر طبعا الكلام فى هذا الموضوع كتير جدا وانا سعيد جدا بالنقاش حول هذه النقطه ودار بينى وبين الاستاذ احمد عبدالناصر والاستاذ الحبيب محمد الريفى نقاش طويل حول هذا الموضوع واتمنى مشاركتهم لنا بالنقاش

أخي الحبيب محمد الخازمي .. لابد أن ألوم عليك أن توضح طلبك بشكل أكثر تفصيلاً .. لأن ما تطلبه الآن لم يخطر ببال أحد .. ولذلك دائماً يراعى طرح النتائج المتوقعة إليك الملف التالي وإن شاء المولى يفي بالغرض سيظهر في الخلية E10 آخر اسم تم تسجيله.. Private Sub Worksheet_Change(ByVal Target As Range) Dim X If Not Intersect(Target, Range("B17:B400")) Is Nothing Then Application.ScreenUpdating = False Application.EnableEvents = False X = Range("B" & Cells(Rows.Count, 2).End(xlUp).Row).Value Range("B17:B400").Sort Key1:=Range("B17"), Order1:=xlAscending, Header:=xlYes Application.EnableEvents = True Application.ScreenUpdating = True Range("E10").Value = X End If End Sub وأخيراً لا تنسى التوجيهات تقبل تحياتي Last Name Recorded By YasserKhalil.rar

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

الأخ الكريم علاء رسلان بارك الله فيك على تقديم المساعدة أخي رشراش علي .. يرجى فيما بعد عند طرح موضوع أن تذكر هل تريد الحل بالأكواد أم بالمعادلات .. عموماً عشان متزعلش إضافة لحل الأخ علاء إليك حل بالمعادلات ..عله ينال رضاكم لاتنسى التوجيهات .. تقبل تحياتي Sort Data Based On Dates By Formulas.rar

السلام عليكم اتفضل اخى الكريم الداله TRUNK لفصل العدد او الجزء الصحيح ( بافتراض ان A2 فيها المبلغ) =TRUNC(A2) فى الخليه C2 طرح المبلغ من ناتج الداله TRUNK حيث الخليه A2 التى تحتوى على المبلغ . والخليه B2 تحتوى على المبلغ بدون الكسور =A2-B2 تحياتى 55.rar

الأخ الكريم صلاح الدين جزيت خيراً على كلماتك الرقيقة ودعائك الطيب وبعدين من حقك تعترض (إنت مواطن ومن حق كل مواطن إنه يعترض .. اللي عايز يعترض يتفضل .. وإحنا هنعمل اللي إحنا عايزينه بردو .. سياسة مصرية) الدستور يكفل لك حق الاعتراض بلاش كلام في السياسة عشان دا مخالف للقواعد .. مبقاش مشرف وأخالف (متجيش مني) بالمناسبة هل اطلعت على التوجيهات http://www.officena.net/ib/index.php?showtopic=60147 عشان شكلك نسيت تحدد أفضل إجابة تقبل تحياتي

السلام عليكم انا استعمل اوفس 2013 بالتوفيق

السلام عليكم البرنامج يعمل عندي وجربت النسخة المضغوطه ووجدتها تعمل تفحص نسخة الاوفس عندك شاهد الفديو http://up.top4top.net/downloadf-top4top_cf169978681-zip.html

اخى صلاح حل جميل وموفق ولكن فى حالة اختيار قيمتين او ثلاثه تاتى بالقيمه الاولى فقط

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

اخى الكريم تفضل المرفق هل هو طلبك تقبل تحياتى Book2.zip

السلام عليكم عندي يعمل بشكل جيد تفضل حسب طلبك بالتوفيق ssm+tast1.zip

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

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

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

جزاك الله خيراً أخي الحبيب صلاح على هذه الكلمات الرقيقة .. روح ربنا يبارك فيك .. المهم تكون استفدت من الملف الكود بيعتمد على جلب بيانات من ملف حسابات العملاء .. ففيه حلقة تكرارية لكل ورقة من أوراق العمل في المصنف " الأقساط الشهرية" اللي فيه الشهور المفروض تتوزع عليها البيانات .. وداخل كل حلقة بيتم التعامل مع المصنف التاني "حسابات العملاء" بيتم أيضا الحلقات التكرارية لكل أوراق العمل ، وداخل كل ورقة عمل بيتم عمل حلقة تكرارية للعمود الأول لاستخراج رقم الشهر .. ومن خلال رقم الشهر بنشوف هل رقم الشهر بيساوي أي رقم ونترجمه لمرادفه من أسماء الشهور .. يعني الرقم 1 معناه يناير وهكذا ..عشان يتم وضع كل بيان في ورقة العمل المناسبة في المصنف "الأقساط الشهرية" ..يعني الملف فيه حلقات جننتني ..عشان دي أول مرة أكتب فيها 3 حلقات في كود واحد ..أنا كان آخري حلقتين بس الحمد لله تم بحمد الله وتحقق المطلوب وتم جلب البيانات في كل ورقة عمل بما يتناسب مع التاريخ لكل بيان تقبل تحيااتي

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

جزاك _الله_ خيراً

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

جزاك _الله_ خيراً أستاذ سعيد وحياك ربي

أخي سليم أيوا .. بس الفترات ما بين الثلاثة ورقات عمل 10 - 15 - 20 على أوراق العمل ورقة العمل 3 - 4 - 5 وبيتكرر مرة تانية !! يعني عدد مرات التكرار مرتين .. والفترات ثابتة ..

جزاك _الله_ خيرا أستاذ أبو الآء وما هي صفات طالب العلم؟

الأخ الحبيب محبوب تعبت والله ..بقالي ساعتين عشان أعمل الكود الملعبك ده بس الحمد لله بفضل الله تم المطلوب .. افتح ملف "الأقساط الشهرية 2015" ستجد الكود بداخله .. في ورقة الفهرس يوجد زر امر انقر عليه لتنفيذ الكود .. Sub YasserKhalil() Dim WBK As Workbook Dim SH As Worksheet, WS As Worksheet, Cell As Range Application.ScreenUpdating = False Application.DisplayAlerts = False Set WBK = Workbooks.Open(ThisWorkbook.Path & "\حسابات العملاء 1.xlsx") For Each SH In ThisWorkbook.Sheets If SH.Name <> "الفهرس" Then SH.Range("C6:F99,H6:I99").ClearContents For Each WS In WBK.Sheets If WS.Name <> "الفهرس الرئيسى" Then With WS If IsEmpty(.Range("A6")) Then GoTo 1 For Each Cell In .Range("A6:A" & .Cells(Rows.Count, 1).End(xlUp).Row) If Month(Cell.Value) = MonthNumber(SH.Name) Then SH.Range("H" & SH.Cells(99, 8).End(xlUp).Row + 1) = Cell.Value SH.Range("C" & SH.Cells(99, 3).End(xlUp).Row + 1) = .Range("C2").Value SH.Range("E" & SH.Cells(99, 5).End(xlUp).Row + 1) = Cell.Offset(, 2) SH.Range("F" & SH.Cells(99, 6).End(xlUp).Row + 1) = Cell.Offset(, 3) SH.Range("I" & SH.Cells(99, 9).End(xlUp).Row + 1) = .Range("M8").Value End If Next Cell 1 End With End If Next WS End If Next SH WBK.Close SaveChanges:=False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Function MonthNumber(MonthName As Variant) As Variant Select Case MonthName Case "": MonthNumber = "" Case "يناير": MonthNumber = 1 Case "فبراير": MonthNumber = 2 Case "مارس": MonthNumber = 3 Case "ابريل": MonthNumber = 4 Case "مايو": MonthNumber = 5 Case "يونيو": MonthNumber = 6 Case "يوليو": MonthNumber = 7 Case "اغسطس": MonthNumber = 8 Case "سبتمبر": MonthNumber = 9 Case "اكتوبر": MonthNumber = 10 Case "نوفمبر": MonthNumber = 11 Case "ديسمبر": MonthNumber = 12 End Select End Function تقبل تحياتي ولا تنسى أن تحدد المشاركة إذا أعجتك الإجابة كأفضل إجابة (ساعتين مني قصاد ثانيتين منك .. أظن كدا عدل والحمد لله) Three Loops In Two Excel Files By YasserKhalil.rar

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

السلام عليكم ورحمة الله اخي الغالي ابو البراء الله يجزيك خير الجزاء نموذخ آخر للإستفاده كود الاخ الاستاذ الفاضل ابن مصر الله يحفظة عمله علي الخلية A1 وقد قمت بإضافة التاريخ علي الخلية B2 واضفت فورم بالتاريخ والوقت الوقت والتاريخ كود ابن مصر.rar

شكرا استاذى الحبيب

السلام عليكم استاذى الحبيب جرب الملف المرفق واعلمنى بالنتيجة قنديل الصياد.rar

السلام عليكم إخواني وأحبائي وجدت علي موقع أجنبي قائمة للمبتدئين في تعليمات وبرمجيات الفيجوال بيزيك للاكسل القائمة علي شكل فهرس ولم أفعل غير تنسيقها فقط بالإكسل تفضلوا القائمة بصيغتي 2003 ، 2007 عسي الله أن ينفع بهما Excel VBA Index.rar

الاخوة الافاضل يوجد خطأ بسيط فى معادلة ترحيل اسم المنددوب فى هذة المعالة C هتكون B ثم سحبها لأسفل وذلك بالمرفقين المعادلة الخطأ =IF(C7="","",INDEX(INDIRECT($D$3&"!i4:i1004"),MATCH(C7,INDIRECT($D$3&"!B4:B1004")),0)) المعادلة الصحيحة =IF(C7="","",INDEX(INDIRECT($D$3&"!i4:i1004"),MATCH(B7,INDIRECT($D$3&"!B4:B1004")),0))