احمد عبدالحليم

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

1.xlsm

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

1.xlsm

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

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

1.xlsm

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

تفضل اخى جرب الملف 

book9.xlsm

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

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

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46 Then
    Else
        KeyAscii = 0
        MsgBox "يجب ادخال ارقام فقط", vbCritical
    End If
End Sub

جرب الكود التالى ربما هو المطلوب

عذرا أتصفح المنتدى من الهاتف

بما ان شئت stock هو يعتبر قاعده بيانات أضف الصنف 100 في مخزن 5 أيضا وضع رصيد اول المده صفر ورصيد الصنف الحالي صفر 

وهكذا مع باقي الأصناف  توضع كلها في شيت stock حيث أنه المصدر الرئيسي للاصناف ويتم وضع رصيد اول المده الفعلي والرصيد الحالي وان لم يكن للصنف رصيد يتم وضع صفر 

تقبل تحياتى

وكل عام وانت بخير وتقبل الله منا ومنكم صالح الاعمال 

وانت بخير وصحة وعافية وتقبل الله منا ومنكم الصيام القيام وتلاوة القرآن وجعلنا واياكم من المعفور لهم ومن العتقاء من النار

شكرا اخى الفاضل @mahmoud nasr alhasany 

على كلماتك الطيبة 

تفضل اخى جرب الملف

قكت بتعديل كود MajStkProv وكود  xx() لتاكيد الحصول على الرصيد الصحيح 

وتم اضافة هذا الكود الى كود التحويل او الحفظ 

Dim rng As Range
Dim cll As Range
Dim cll2 As Range
Dim lastRow As Long
    lastRow = ThisWorkbook.Sheets("Stock").Cells(Rows.Count, "A").End(xlUp).Row
    Set rng = ThisWorkbook.Sheets("Stock").Range("A4:A" & lastRow)

For Each cll In rng
    If cll.Value = Me.CB_Pièce.Text And cll.Offset(0, 11).Value = Me.ComboBox1.Value Then
        cll.Offset(0, 3).Value = Val(Me.stocktr.Value) - Val(Me.Quantitetr.Value)
        Exit For
    End If
Next cll
For Each cll2 In rng
    If cll2.Value = Me.CB_Pièce.Text And cll2.Offset(0, 11).Value = Me.ComboBox2.Value Then
        cll2.Offset(0, 3).Value = Val(Me.TextBox_Stock_Initial.Value) + Val(Me.Quantitetr.Value)
        Exit For
    End If
Next cll2

تقبل تحياتى

نقل المخزون بين المخازن.xlsm

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

تفضل اخى حل سريع ........ تم اضافة عمود مساعد فى شيت الاصناف للحصول على اخر تاريخ لشراء الصنف ومنه نحصل على اخر سعر شراء للصنف بناءا على اخر تاريخ شراء للصنف

المعادلة هى صيغة مصفوفة هتلاقيها بين قوسين {} ولعمل ذلك اذا اردت التعديل على المعادلة تضغط من الكيبورد على Ctrl + Shift + Enter معا

ايضا يتم الحصول على احر تاريخ واخر سعر بناءا على كود الصنف وليس اسم الصنف 

تقبل تحياتى

لاخر سعر.xlsx

حضرتك كاتب فى الصف رقم 44 هكذا 1و2و3و4و5و6والخ ......

احذف الارقام دى وسوف يتم وضع النتيجة اسفل الجدول مباشرة

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

فى كود Compare()

عدل الحلقة التكرارية  For j = 5 To lr

الى  For j = 27 To lr

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

تقسيم الاسم الرباعى الى اربعة اسماء منفصلة.xlsm

تفضل جرب الملف 

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

تقبل تحياتى

مساعده بتغيير محتوى قيم خليه بالجمع والنقص (1).xlsb

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

واعذرنا على التأخير لكل منا مشاغله

ملاحظة يجب اضافة الاسم المركب الجديد فى الكود كما فى هذا الجزء 
 

    MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _
    , " الله", " الدين", " الإسلام", " الاسلام", " الحق")

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

    MyArray = Array(" عبد", " أبو", " ابو", " آل" _
    , " الله", " الدين", " الإسلام", " الاسلام", " الحق", " الهدى")

جرب الملف واعلمنا بالنتيجة

تقبل تحياتى

تقسيم الاسم في ثلاثة اعمدة.xlsm

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

نعم اخى الفاضل @yaser_m

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

تقبل تحياتى

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

تقسيم الاسم في ثلاثة اعمدة.xlsm

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

الصورة غير واضحة وربما الخطأ بسبب اسماء الشيتات تاكد من كتابة اسماء الشيتات بشكل صحيح Sheet2 Sheet1 كما فى الملف الخاص الخاص بك

هل تريد ان يكود جدول الدفعات فى شيت جديد

File.xlsm

جرب الملف 

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

جرب الملف اولا واعلمنى بالنتيجة 

وان شاء الله سوف اقوم بشرح كل سطر فى الكود

السلام عليكم

هل يمكن التعديل بحيث يكون عرض البيانات والصور في UserForm بدلا من الاكسل 

ام يجب عمل المطلوب على الاكسل كما في الملف

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

قرأت المطلوب 3 مرات مش فاهم اي حاجة 
ولكن.....

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

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

السلام عليكم

بدلا من انشاء شيت لكل بنت وكثرة الشيتات طالما نفس البيانات كما هي 
اولا استخدمت vba لعمل المطلوب وليس المعادلات
ثانيا لا يمكن عمل merge للخلايا فى كلا من عمود التاريخ وعمود البيان

هتلاقى فائمة منسدلة فى الخلية c1 فى sheet3 اختر البند وسوف يتم الحصول على البيانات الخاصة للبند 

عند فتح الملف قم بتفعيل الماكرو ليعمل الكود 

File 001 Test.xlsm