علي الشيخ

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

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

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

السلام عليكم ورحمة الله وبركاته 

فضلا المساعدة في التعديل على الكود التالي والتي تتلخص وظيفته في التالي

عند الضغط على زر الكود يتم بحث النطاق من 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

السلام عليكم

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

عليكم السلام اخي وعيدك مبارك 

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

51 دقائق مضت, elrazaz said:

وان لم اجد المساعدة يكفيني الاهتمام 

حسنا سوفاقوم بعمل موضوع جديد 

شكرا لك جدا جدا 

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

السلام عليكم 

في الملف المرفق أنا استخدمت الـ Pivot Table بعيدا عن الأكواد التي شخصياً أتجنبها كلما كان أمكن 

لو انت تستخدم أوفيس 2013 أو 2016 هيظهرلك الـ Slicer التي تساعدك على الفلترة بشكل سهل وأنيق

لو إصدار أقدم مش هتظهر عندك ولكن هيظل الـ Pivot Table يعمل ويتحدث تلقائيا في كل مرة يتم فيها فتح الملف من جديد أو يتم تحديثه يدويا بالضغط على Refresh All

الجدول موجود في Sheet1

يتم الفلترة بناء على الأشهر أو الشهور التي يتم اختيارها 

لكل كود موظف بإجمالياته من الاستقاطاعات والاستحقاقات مع إجمالي كلُ على حدى

عند الطباعة يتم طباعة كل كود موظف في ورقة مستقلة ويمكن التنسيق في الطباعة كما تريد

اتفضل ألقي نظره عسى يكون المطلوب أو ع الأقل فكره مبدئية يمكنك التطوير فيها بما يتماشى مع متطلباتك

طباعة كل كود فى ورقة مستقلة.rar

6 ساعات مضت, elrazaz said:

السلام عليكم 

انا بكل صراحة حاولت كثير في صنع فورم بحث يسمح لي البحث

باسم المسجل او رقم التسجيل بهذا المثال 235/576/567  حيث ان رقم التسجيل لدينا بهذا الشكل او المبلغ او الاجراء

اتمني من الزملاء مساعدتي لاتمام العمل

 

Book1.rar

السلام عليكم

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

السلام عليكم

اتفضل أخي شوف المرفق

بعد ظهور نتائج البحث في الليست بوكس عند الضغط مرتين على أي سطر

يتم إدراج العمود الأول ( اللي به الكود على حسب ما فهمت ترتيب جدول نتائج البحث) إلى التكست بوكس الموجود في اليوزفورم 2

ومن ثم إظهار اليوزرفورم 2

بحث بفورم ممتاز2.rar

السلام عليكم

اتفضل شوف الملف المرفق لعله المطلوب بإذن الله 

الجزء اللي اشتغلت عليه هو المظلل بالأصفر 

بمجرد ما تكتب الدرجة في "الدرجة قبل الخصم" يتم الحساب تلقائي

لو ده المطلوب ان شاء الله اكملك باقي الملف في حالة ما قدرت انت تكمله

اقتصاد.rar

السلام عليكم

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

C

Windows

System32 

المفترض وجود ملف يسمى  Fm20.dll

اذا لم يكن موجود يمكن تحميله بكتابة اسمه في جوجل أو ممكن نجبهولك مفيش مشكلة

ثانيا في حالة وجود الملف او اضافته الخطوة الثانية من قائمة ستارت

تشغيل Run

واكتب التالي

Regsvr32.exe fm20.dll

واضغط انتر المفترض يظهرلك رسالة كالتالية تفيد نجاح تثبيت الملف

DllRegisterServer in c:\windows\system32\fm20.dll succeeded.

اضغط أوكي وجرب تفتح الاكسل عسى خير ان شاء الله

السلام عليكم 

يبدو أنه يمكن أن تكون المشكلة في اللغة العربية للويندوز نفسه وليس لبرنامج الإكسل

جرب الخطوات التالية 

كليك يمين على أيقونة ستارت ومن ثم اختر Control Panel

ثم اختر Clock, Language, and Region

ثم Language

هتلاقي في الشمال Change date,time or number formats

هتفتح نافذه اضغط على Administrative

ثم Change system Locale

وأختر اللغة العربية Arabic

ثم أوكي اوكي حتى تغلق كل النوافذ وتعمل ريستارت وان شاء الله تفيدك

السلام عليكم

أنا استخدم أوفيس 2016 ولم يظهر معي خطأ في الكود

من النافذه اللي في الصورة فضلا تضغط Debug وتصور الشاشة

السلام عليكم

هناك ما يسمى بالسعر المتوسط المرجح ويكون حسابه كالتالي

الكمية الأولى = 1000 حبة

السعر الأول = 2 جنية

الكمية الثانية بتساوي 700 حبة

السعر الثاني = 1.5 جنية

فيكون طريقة الحساب لمتوسط السعر المرجح = ((الكمية الأولى x السعر الأول) + (الكمية الثانية x  السعر الثاني )) / الكمية الإجمالية

1000*2 = 2000

700*1.5 = 1050

إجمالي السعر = 3050

متوسط السعر المرجح = 3050/ الكمية الإجمالية ( 1700) = 1.79 جنية للحبة

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

ده ملف بسيط فيه الطريقة ويمكن زيادة الكميات والأسعار بما تراه مناسبا

حساب متوسط السعر .rar

السلام عليكم

على حد علمي المشكلة في اللغة العربية وليست طبيعة الملف المحول إليه سواء إكسل أو ورد لأن المواقع لا تدعم اللغة العربية

وأغلب البرامج كذلك لا تدعم اللغة العربية إلا برنامج وحيد جربته من قبل ولكنه ليس مجاني واسمه PDF Grabber يحول إلى اللغة العربية بشكل سليم.

السلام عليكم 

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

الشيت الأول هو لإدخال البيانات ويبدو أنه لا يحتاج إلى معادلات لأن بها فقط بيانات يتم إدخالها

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

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