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

السلام عليكم ورحمة الله وبركاته إخواني الأعزاء في المنتدى الأغر أقدم لكم حيلة بسيطة جداً .. ألا وهي : نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق يعني عندنا نطاق بيانات ، عايزين ناخد صورة من هذه البيانات وفي نفس الوقت تكون الصورة مرتبطة بأي تغير يحدث في النطاق الشرح داخل الفيديو على هذا الرابط مرفق لكم الملف لتقوموا بالتطبيق عليه ، دا للي مهتم بالتطبيق ! كان معكم أخوكم أبو البراء في حلقة Take Away دمتم في رعاية الله Test.rar

الاخ مختار شكرا لكلاماتك اضافة بسيطة نتمنى تعجبك Enter Password to run a Macro.rar

بسم الله الرحمان الرحيم اقدم لكم اليوم طريقة تحويل تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup نبدأ بالتحويل الى ملف تنفيذي تساعد هته العملية في حماية تشفيير الملف ويسعب بعدها اختراقه والعبث فيه لنقوم بهته العملية نحتاج الى برنامج يدعى XLtoEXE وهذا رابط تحميلة http://cpap.com.br/orlando/download2/XLtoEXE.zip البرنامج لا يحتاج لى تثبيت نقوم مباشرتا بفك الضغط عن الملف وفتح البرنامج اولا نختار الملف المراد تحويله كما في الصورة ثانيا الاعدادات الازمة في البرنامج ثم بعدها سيطلب منك مكان الحفظ اختر المكان ثم موافق ستلاحظ ان الملف حول الى ملف تنفيذي ولتتأكد من ذالك اعمل كليك يمين ثم خصائص وشاهد نوع الملف بعد فتحكم للملف اجري اي تغيرات و وافق على الحفط عند الخروج ستلاحظ ان الملف قد انشأ Backup اي انه صنع نسخة احتاطية لنفسه لاتقم بحذفها ملاحظة : يجب ان تكون تسمية الملف بالانجليزية لان التحويل لن ينجح اذا كانت بالعربية الأن نأتي الى تغيير ايقونت الملف الذي حولناه للقيام بذلك نحتاج الى برنامج Exe Icon Changer وهذا رابط تحميله http://www.mediafire...con_Changer.rar ملاحظة بخصوص برنامج تغيير الايقونات عليك بالغاء الحماية عند تثبيته بعد التثبيت اذهب الى التسجيل وادخل السريال المرفق مع الملف الذي حملته وهذا فيديو يشرح طريقة استعمال البرنامج http://www.youtube.c...h?v=NtZfTFVmGWc نأتي الى المرحلة الاخيرة وهي تحويل الملف الى برنامج Setup الفائدة من هذا البرنامج هي جمع جميع الاضافات التي تريدها مع الاكسل كالصور مثلا في ملف واحد وكذالك حماية الملف من الحذف حيث انه سيصبح لدينا راكورس للملف وهذا يحدث بعد التثبيت طبعا هذا رابط البرنامج http://www.jrsoftware.org/isdl.php بعد تثبيتك الى البرنامج نأتي الان الى طريقة العمل به وللقيام بذالك تابع الصور بالتوالي بعد الانتهاء ستجد عملك داخل الملف الذي اخترته على شكل Setup كأي برنامج عادي ولتشاهد ملف اجريت عليه كل ماسبق شاهد موضوعي برنامج خاص لاصحاب محلات بيع الموبيلات (شوقي ربيع) أكون الان قد انتهيت من شرحي المتواضع هذا ارجومن الله ان اكون قد وفقت فيه وأن تكون فائدته عامة على الجميع مع تحيات أخوكم شوقي ربيع

بسم الله الرحمان الرحيم السلام عليكم بعد غيابي الطويل عن هدا المنتدى العزيز لاسباب ........؟ اتركوها على الله لم اشاء ان اعود خالى اليدين لدى ارتأيت ان اضع بين ايديكم هدا الملف المتواضع وهو عبارة عن برنامج خاص لاصحاب محلات بيع الموبيلات كنت قد صممته لاحد اصدقائي بدون اطالة الباسوورد 123 لاغلاق الفورم وفتح ملف الاكسل Alt + b الباسوورد 111118 ارجو ان ينال اعجابكم تحياتي لكم Archivé Mobile V 1.001.rar الملف الاصلي بدون عمله ملف تنفيذي

السلام عليكم ورحمة الله وبركاته هدفيه للعاملين بالكنترولات المدرسيه ...... _ سجلات اعمال الكنترول كامله ... _ توزيع الملاحظين اليا على اللجان .... مع تحياتى ....

السلام عليكم ورحمة الله وبركاته جائني علي الخاص الرسالة التالية من أخونا الفاضل (رجب محمد) ===================================== عندي شيت اكسل يحتوي على بيانات اكثر من عشرين الف اسم وقد حاولت ان اطبع كل عشرين اسم في صفحة مستقلة الطريقة التي اتبعها دائما هو عمل بيج بريك للصفحة وظبط الهوامش كما تعلم حضرتك وهذا يتم في ملف صغير يحتوي على عدد قليل من الاسماء اما الملف الاكبر فقد تعبت فيه لان عند الطباعة يظهر في صفحة عدد مثلا ثلاثون وفي صفحة اخري خمسون هل هناك طريق بسيطة لعمل ذلك الرجاء الرد سريعا ولكم جزيل الشكر =================================== إنتهت الرسالة ولم يكن أخونا رجب يستطيع رفع الملف المهم نصحته باستخدام الكود التالي Sub Macro1() LR = Sheet1.[A99999].End(xlUp).Row For r = (15 + 19) To LR Step 20 ' يمكنك استبدال الرقم 15 برقم أول سطر بعد العناوين ActiveSheet.HPageBreaks.Add Before:=Cells(r, 1) Next End Sub وبعد إرسال الملف لي واستئذانه في نشره هذا هو الملف مرفق بعد عمل اللازم (ليس به معلومات تضر بمصلحة العمل) بيج بريك.rar

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

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

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

بارك الله فيك استاذي ياسر يشهد الله اني احبك بالله .

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

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

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

الأخ الحبيب رشراش علي مشكور على كلماتك الرقيقة الأخ أستيكة (همسحك بأستيكة لو مغيرتش اسمك للغة العربية ههه) جزيت خيراً على مرورك الكريم مشكور على مرورك الطيب والعطر أخي الكريم غسان بارك الله فيك وجزاك الله خيراً

أخي الأستاذ ياسر (أبو البراء) ..بارك الله فيك وفي مجهودك الطيب.. وعاشت ايدك ..اللهم ارزقنا حسن الفهم وحسن العمل..

الأخ الحبيب اللبيب: ياسر (أبو البراء) والله أخجلتني بكريم ردك وهديتك وكرمك، وتسلم عيونك وبمناسبة ترقيتك، أتمثل بـقول الشاعر: ليست الألقاب هي التي تكسب المجد .. بل الناس من يكسبون الألقاب مجداً تحياتي لك.. ولكل الأحبة في منتدانا العامر بأمثالكم.

هدية رائعة من استاذ واخ رائع !! واكرر اعجابي باتجاه التري فيو من اليمين لليسار ( عربي )

الأخ الحبيب الغالي مختار جزيت خيراً على الكود الرائع فقط جزئية بسيطة جداً لم تعجبني ..ألا وهي وجود امتداد الملف في اسم الملف المصدر قم بتغيير السطر إلى fName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & " " & .Range("C10").Value تقبل تحياتي

الشكر فيما فعلت قليل , رفع الله قدرك وجزاك الله خير ونفع بك .

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

جرب الكود ده Sub MOKHTAR_SaveAsPDF() Dim fName As String With Worksheets("Exemple facture chifrée") fName = ThisWorkbook.Name & .Range("C10").Value End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\" & Environ("UserName") & "\Desktop\" & fName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub الملف هيكون اسمه باسم الملف والخلية C10 تحياتى

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

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

أخي وحبيبي في الله وأستاذي الكبير طارق لكم تشتاق نفسي لرؤية مشاركاتك بالمنتدى ، فمنكم تعلمنا وما زلنا ننهل من علمكم الغزير .. بارك الله فيك وجزاك الله خيراً على هذا الكود المميز والرائع أحببت أن أشارك ولو بشيء بسيط ، مشاركتي مجرد شرح بسيط جداً للكود حتى يستفيد الأخوة الكرام من الكود Sub AddPageBreaks() Dim R As Long, LR As Long 'تحديد رقم آخر صف به بيانات في العمود الأول LR = Sheet1.[A99999].End(xlUp).Row 'إعادة ضبط كل فواصل الصفحات ActiveSheet.ResetAllPageBreaks 'يمكنك استبدال الرقم 15 برقم أول سطر بعد العناوين 'يمثل الرقم 20 عدد الأسطر أو الصفوف المطلوبة في كل صفحة For R = (15 + 20) To LR Step 20 'عمل فاصل للصفحات قبل نهاية كل حلقة تكرارية ActiveSheet.HPageBreaks.Add Before:=Cells(R, 1) 'الانتقال للحلقة التالية Next End Sub تقبل ودي وحبي واحترامي وتحياتي أستاذي ومعلمي الباشمهندس طارق

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

ربما كان المطلوب شرط البيع.rar

مشكورة جهودك

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

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

أبوسليمان فى هذا المرفق تم تغيير امتداد الملفات الستة الى xls مع تغيير أسماء الملفات لسهولة التعامل جلبت لك البيانات من الملفات الخمس وهى مغلقة وبضغطة واحدة الى ملف الرئيسية تحديث البيانات : عدل كما تشاء فى الملفات الخمس وانقر على الزر فى الرئيسية فقط وبكده نكون عملنا المرحلة الأولى أما الثانية سوف أسألك بعض الأسئلة فى حينها أما السؤال الأن : الرقم الطويــــــــــــــــــــــــــــــــــــــــــــــل ده بيتقسم الى خلايا هل المطلوب منه أن نستخلص منه تاريخ ووقت مثلاً ؟ أرجو الايضاح وسوف نكمل الموضوع باذن الله تعالى mokhtar get data for bosoliman.rar

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

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

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

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

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

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

ونكمل بأمر الله SubQuery2k- مثال على استخدام الاستعلام الفرعي داخل الاستعلام لاستخراج قيم تجميعية.rar SynchronizedSubforms2k - مثال على كيفية مزامنة نموذجين فرعيين ضمن نموذج رئيسي.rar TimeDiff- مثال على كيفية حساب الفرق في الوقت و التاريخ.rar TimeDiffrent- مثال يعرض الفرق بين تاريخين بالساعه.rar Unbound2k -مثال لاضافة حقول غير منضمة الى الجدول و الى قائمة لائحة ListBox.rar WipeEffects - مثال لاغلاق النموذج بعدة طرق انسايبية.rar مثال على كيفية اضافة أقساط المتبرعين لعدد 12 شهرا بطريقة اتوماتيكية.rar مثال كيفية اضافة صورة للموظف او طالب وايضا اظهارها في التقرير 2003.rar مثال كيفية اضافة صورة للموظف او طالب وايضا اظهارها في التقرير.rar مثال لاخفاء شاشة الأكسس الرئيسية عند فتح الملف.rar مثال لعرض الأرقام الشاغرة بين رقمين.rar

الجذء الثانى animation- مثال لكيفية فتح النموذج بعدة طرق انسيابية -.rar AuditTrail2k-مثال لضبط و رقابة سجلات الملف.rar AutonumberProblem2k-مثال بسيط لعمل ترقيم تلقائي مبرمج من خلال ادخال البيانات من النموذج فقط حيث سيتم اضافة رقم تلقائي لكل سجل جديد.rar calendarsolution-مثال على نموذج فيه زر يفتح التقويم.rar CascadingComboBoxes2K-مثال لكيفية تصفية مربع تحرير و سرد بناء على قيمة مقابلة من مربع تحرير و سرد آخر.rar ChangeBackColor-مثال للتحكم بلون خلفية النموذج و تغييرها من نفس النموذج.rar clipboard2k-مثال لكيفية النسخ و اللصق من و الى الحافظة.rar CndFrmt-مثال لكيفية تلوين السجل الحالي في النموذج المستمر بلون مختلف.rar ConditionalFormatting2k-مثال على التنسيق الشرطي بعدة طرق مختلفة للنماذج.rar CrosstabReport2k-مثال على صنع تقرير مبني على استعلام جدولي محوري CrossTab_Query.rar CurrentTab2k-مثال للتنقل بين حقول الصفحات Tab Pages من خلال زر أمر.rar FormSubform2k---مثال يبين كيفية توظيف الدوال لاستخراج نتائج بيانات النموذج الفرعي من خلال النموذج الرئيسي.rar HighLightComd-مثال لنموذجين فيهما عدة أزرا أمر , بمجرد تحريك الفأرة فوق أحد الأزرار يتغير لون نصه الى الأخضر.rar MultiReport - مثال لطباعة عدة تقارير دفعة واحدة.rar MultiReport up - مثال لطباعة عدة تقارير دفعة واحدة - النسخة الصح.rar NumberLettrs-مثال لتحويل الأرقام الى حروف - كتابة الرقم كتابة من أجل التفقيط.rar Openargs2k-مثال فيه فائدة كبيرة على طريقة استخدام قرائن فتح النموذج OpenArg بشكل بسيط و متعدد.rar Openargs2k-مثال فيه فائدة كبيرة على طريقة استخدام قرائن فتح النموذج OpenArg بشكل بسيط و متعدد.rar OrderListBox2k -مثال على كيفية التحكم بترتيب عناصر لائحة ListBox من خلال زر أمر.rar ParaQueryDelete2k -مثال لتشغيل استعلام حذف سجلات بناء على قيمة معينة مختارة في النموذج.rar ParaQuerySelect2k -مثال قريب للمثال السابق لكن لتشغيل استعلام اختيار حسب قيمة معينة و ليس حذف.rar ProgressBar2000--مثال على استخدام شريط التقدم الأزرق Progress Bar.rar ReadWriteWord - مثال على كيفية ارسال بيانات الى ملف وورد , و فتح ذلك الملف بعد انشائه.rar Rotateit_مثال لالتفاف مربع نص من اليمين الى اليسار أو بشكل آخر.rar search_form1- مثال على البحث المتقدم في أكثر من حقل.rar Search-مثال على البحث مع تجاهل التشابه في الحروف.rar SequenceDancing-مثال على استخدام المؤثرات البصرية في جعل الكائنات تتحرك باشكال هندسية.rar StringStuff2k - مثال على كيفية تغيير تنسيقات الحقول.rar SubForm3Levels2k - مثال على نموذج يحوي نماذج فرعية بثلاثة مستويات.rar SubformReference2k - مثال على كيفية الاشارة من النموذج الرئيسي الى اي عنصر من عناصر النموذج الفرعي.rar

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

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

منعت من الموقع بأن أسجل أعجابى بكلامكما فقد وصلت للحد الأقصى اليوم لكن الأهم هو أن تحب الاكسل فيحبك و كمان يعطيك محبة الناس الحمد لله

بالنسبة للفريق ESD نجد انه هذه النتيجة الولى ESD 3 CRBO 1 وهذه النتيجة الثانية CRBO 0 ESD 3 وعند التوزيع مسجل النتيجة تحت 3/1 و 3/0 ممكن شرح جات ازاي ولا هي غلط ولا انا مش فاهم

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

الله يبارك فيكما استاذ غسان العبيدي واستاذ ياسر خليل ويمدكما بالصحة والعافيه ويجعل الله أعمالكما في كفة حسناتكما آمين .. يارب العالمين

أخي الحبيب غسان إليك الملف المجاني .. وعيوني للأخوة الأعضاء Functions 2013-EN-US (free-unlocked).rar

للاسف غير مجانى

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

الاخ محمد الريفي بارك الله فيك وجزاك الله خيرا الأخ إبراهيم أبو ليلة الحل كان ع السريع إليك الملف التالي عله ينال إعجابك وينال رضاك Unique List No Blanks YasserKhalil.rar

الأخ الحبيب أحمد مرجان نعتذر عن التأخير في تقديم المساعدة (وكل تأخيرة فيها عطلة للناس بس أكيد فيها خيرة بردو) إليك الكود التالي (وعشان غرامة التأخير مرفق شرح لكل أسطر الكود عشان تقدر تعدل بما يناسبك إن شاء الله) Sub ImportDataFromClosedWBUsingVLOOKUP() 'تعريف المتغيرات Dim WBK As Workbook Dim Rng As Range Dim LastRow As Long 'إيقاف تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إيقاف خاصية رسائل التنبيه Application.DisplayAlerts = False 'ليساوي المصنف المسمى 1 والموجود في نفس مسار المصنف الحالي [WBK] تعيين قيمة للمتغير 'يقوم هذا السطر أيضاً بفتح المصنف في المسار المذكور Set WBK = Workbooks.Open(ThisWorkbook.Path & "\1.xlsx") 'تعيين قيمة للنطاق المراد جلب البيانات منه من المصنف المسمى 1 Set Rng = Range("A2:C" & Cells(Rows.Count, 1).End(xlUp).Row) '[Sheet1] بدء التعامل مع المصنف الحالي في ورقة العمل With ThisWorkbook.Sheets("Sheet1") 'تحديد رقم صف آخر خلية بها بيانات في العمود الأول LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'وضع معادلة دالة البحث في العمود الثاني والحصول على النتيجة من العمود الثاني في المصنف 1 With .Range("B2").Resize(LastRow - 1) .Formula = "=IFERROR(VLOOKUP(A2," & Rng.Address(, , , True) & ",2,False),"""")" .Value = .Value End With 'وضع معادلة دالة البحث في العمود الثالث والحصول على النتيجة من العمود الثالث في المصنف 1 With .Range("C2").Resize(LastRow - 1) .Formula = "=IFERROR(VLOOKUP(A2," & Rng.Address(, , , True) & ",3,False),"""")" .Value = .Value End With End With 'إغلاق المصنف المأخوذ منه البيانات بدون حفظ WBK.Close SaveChanges:=False 'إعادة تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub وبكدا نكون دفعنا غرامة التأخير والحمد لله تقبل تحياتي Import Data From Closed WB Using VLOOKUP YasserKhalil.rar

اخى شوقى والله كل يوم بيظهر عمالقة حتى نقتنع بان العالم العربى بخير اعمالك مميزة يسر الله كل امورك