أبو عبد النور

كل ورقة لها هذا الحدث الخاص بها تجده مرة واحدة في كود الورقة.

حاول ان تفتح الملف عن طريق : File > Open ثم احفظ الملف بامتداد xlsm

جرب هذا : SumMonney_v001.rar

جرب هذا : نقل بيانات داخل مجلد.rar

السلام عليكم، ربما هكذا : نقل بيانات داخل مجلد.rar

وعليكم السلام ورحمة الله، قم اولا يترتيب بياناتك بهذا الشكل ثم حاول مرة أخرى. سلم الاقدمية 2016.rar

آمين يارب العالمين بوركت أخي.

هذا من فضل ربي بارك الله فيك اخي عبد القادر.

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

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

السلام عليكم، - نقوم اولا بحصر نطاق الجدول 1 في متغير الجدول a وبحصر نطاق الجدول 2 في متغير الجدول b - d1 هو عبارة عن "قاموس" فائدته انه لا يقبل ادخال العناصر اليه الا لمرة واحدة وغير مكررة وهنا هو لتخزين الاسم كمفتاح و الترتيب p كقيمة للمفتاح - نقوم بمسح الجدول a وتخزين كل خانة لما يناسبها في متغير الجدول c بالاعتماد على عدم تكرار الاسم بواسطة القاموس d1 - نفعل بالمثل مع متغير الجدول b. - غي الاخير نعيد طبع محتويات الجدول c على ورقة "المطلوب" أرجو ان اكون قد افدتك ولو قليلاً

وعليكم السلام ورحمة الله، حاول ان تقدم مثالا بسيطا لما تريده.

اعدت فتحه من جديد ويعمل لدي بصورة عادية. اذا ما يزعجك هو رسائل التنبيه قم بحذف السطر : MsgBox ActiveCell.Column من الكود.

جرب هذا : حساب عدد الارقام_v001.rar

هل هذا يناسبك ؟ بحث.rar

مثلا هذا الرقم 4841884 هل نستخرج منه 48 فقط التي تكرر اعدادها او 481 بزيادة 1 الذي لم يتكرر ؟ وهذا الرقم 6525662 فرغم ان الرقم 6 تكرر لـ 3 مرات و 5 مرتين و 2 مرتين الا انه لا يستجسب للشرط الذي وضعته ؟ برجاء التفسير اكثر.

انظر الى المرفق : اصناف_v003.rar

بعد النقر على احد سطور البحث، يتم نقل المحتوى الى الخلية المفعلة في الورقة2 وفي الاعمدة A او H او J فقط. هذا ما كنت تريده ؟

كتجربة، قم بتعويض كود Private Sub ListSearch_DblClick(ByVal Cancel As MSForms.ReturnBoolean) بهذا الكود : Private Sub ListSearch_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Cancel = True With Sheets("sheet2") .Select For Each cl In Array(1, 8, 10) MsgBox ActiveCell.Column If ActiveCell.Column = cl Then ActiveCell.Value = Me.ListSearch.Value Next End With End Sub

السلام عليكم، كيف يتم اختيار الخلية التي ستضع بها نتيجة البحث ؟

السلام عليكم، بعد اذن الاستاذ طلعت، هذه طريقة اخرى للحل عن طريق الـ VBA. دمج جدولين.rar

وعليكم السلام، ضع ملف اكسل به امثلة عل ما تريد الحصول عليه سيساعد الاخوة الكرام في الرد على تساؤلاتك.

بارك الله فيك اخي وائل. تبقى مشكلة ملء الجدول بالاسفل على حسب القيم المدخلة اعلاه.

مثال : ترحيل_v002.rar

مثال على ذلك : تحويل الوحدات_v001.rar