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

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

تفضل فكرة بسيطة يوجد شيتين الشين الاول لعرض ارصدة العملاء او الزبائن والشيت الثانى لتسجيل حركة المبيعات والواصل (ومين احمد حليم اللى بيشكك منك ده اوعى اكون انا ) تقبل تحياتى الشكك والواصل - Copy.xlsx

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

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

معك حق تم تعديل الكود تفضل جرب الملف واعلمنى بالنتيجة 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 جرب الملف

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