علي الشيخ

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

السلام عليكم ورحمة الله وبركاته فضلا المساعدة في التعديل على الكود التالي والتي تتلخص وظيفته في التالي عند الضغط على زر الكود يتم بحث النطاق من G75:G114 وكل خليه يوجد فيها YES (و YES دي نتيجة معادلة معينة موجودة في الخلية) يتم نسخ القيمة في المقابلة الموجودة في العمود B ليتم نسخ كل الخلايا المقابلة لكلمة YES في النطاق الجديد في نفس الشيت بدأ من الخلية B29 الى الخلية B36 Sub test1() Dim rcnt As Long rcnt = Worksheets("ALEX").Range("g" & Rows.Count).End(xlUp).Row For i = 1 To rcnt If Range("G" & i).Value = "YES" Then Range("G" & i).Offset(0, -5).Copy Range("B30").Offset(1, 0).PasteSpecial xlPasteAll End If Next i Application.CutCopyMode = False End Sub أرجو ان يكون المطلوب واضح وشكرا مقدما على المساعدة. test drat 3.xlsm

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

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

عليكم السلام ورحمة الله هل في إمكانية ترفق الملف اللي بتتكلم عنه؟

السلام عليكم جرب أخي المعادلة التالية =ROUND(SUM(F6,E6)/2,0) وممكن تستبدل Round بـ Roundup ليتم جبر الرقم دائما للأعلى أو Rounddown ليتم جبر الرقم للأقل

استبدل هذه الجزئية في الكود الموجود في Module 1 .Display .Subject = "" .To = "" .CC = "" .bcc = "" .HTMLBoDy = strbody & "<br>" & .HTMLBoDy بهذه الجزئية .Subject = "" .To = "" .CC = "" .bcc = "" .HTMLBoDy = strbody & "<br>" & .HTMLBoDy .Send

تحديث للمرفق: تم إضافة إمكانية التعديل على الأكواد Items Coding System V2.rar

العفو أخي اتفضل الملف المرفق لما يكون التاريخ في الخلية A2 أكبر من التاريخ في الخلية B2 سيتم فتح رسالة في الأوت لوك يوجد كود في الصفحة Sheet1 ويوجد كود أيضا " خاص بالأوتلوك" في Module 1 بالإمكان إضافة الإيميلات التي سيتم الإرسال لها مسبقا ومحتوى الرسالة وموضوع الرسالة .. إلخ كل هذا يمكن إعداده مسبقا بحيث تضغط إرسال فقط على رسالة الأوتلوك حتى دي ممكن تكون أتوماتيك ويمكن إعداد كل هذا أيضا من خلال قيم موجوده في الخلايا بمعنى يكون عنوان الرسالة موجود في خلية معينة وجهات الاتصال في خلية معينة ومحتوى الرسالة في خلية معينة وهكذا email via outlook.rar

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

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

السلام عليكم ضع الملف الذي به المشكلة او ملف مصغر منه للمساعدة بشكل أفضل

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

العفو أخي وأكيد هتلاقي مساعدة لكل متطلباتك بإذن الله

السلام عليكم في الملف المرفق أنا استخدمت الـ Pivot Table بعيدا عن الأكواد التي شخصياً أتجنبها كلما كان أمكن لو انت تستخدم أوفيس 2013 أو 2016 هيظهرلك الـ Slicer التي تساعدك على الفلترة بشكل سهل وأنيق لو إصدار أقدم مش هتظهر عندك ولكن هيظل الـ Pivot Table يعمل ويتحدث تلقائيا في كل مرة يتم فيها فتح الملف من جديد أو يتم تحديثه يدويا بالضغط على Refresh All الجدول موجود في Sheet1 يتم الفلترة بناء على الأشهر أو الشهور التي يتم اختيارها لكل كود موظف بإجمالياته من الاستقاطاعات والاستحقاقات مع إجمالي كلُ على حدى عند الطباعة يتم طباعة كل كود موظف في ورقة مستقلة ويمكن التنسيق في الطباعة كما تريد اتفضل ألقي نظره عسى يكون المطلوب أو ع الأقل فكره مبدئية يمكنك التطوير فيها بما يتماشى مع متطلباتك طباعة كل كود فى ورقة مستقلة.rar