amdelfeky

شكرا جزيلا سيدي الفاضل تمت التجربه بنجاح الف شكر ليك ايها الكريم

الجدول المرفق صورته كمثال لتسجيل بيانات فاتوره تم انشاء نموذج لسهوله ادخال البيانات الملاحظ ثبات البيانات الاتيه عند ادخال البيانات التاريخ و ورقم الفاتوره والبيانات المتغيره هي الاسم والكميه والسعر تم انشاء نموذح متعدد ولكن يتم ادخال التاريخ ورقم الفاتوره مع كل ادخال جديد المطلوب ثبات التاريخ ورقم الفاتوره مع كل عمليه ادخال للاسم والكميه والسعر شكر لسعه صدوركم وكرمكم

تم التجربه ونجت الحمد الله ويتم تكرار الجزء داخل المستطيل الاحمر ولكن مع كل ادخال جديد يتم ادخال البيانات داخل المتسطيل الاخضر المطلوب هو ثبات البيانات داخل المستطيل الاخصر مع كل ادخال ولكم الشكر ايها الكرام

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

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

السلام عليكم ايها المحترمين الكرام تم عمل قاعده بيانات وعمل فورم لادخال البيانات تم برط الجدول و الفورم ولكن اريد ان يتم تكرار الجزء بين المستطيل الاحمر مع زر حفظ يقوم بحفظ البيانات مع تكرار البيانات التي بالمستطيل الاخضر مع كل بيان تم ادخاله test1.rar

ازاي اعمل الحركه دي بقي الله يكرمك ياريت لو تقولي اعملها ازاي

السلام عليكم ورحمه الله وبركاته انا بصمم ملف اكسل لمتابعه عمل عندي وانا بصمم لقيت فكره عملها اخت عزيزه في المنتدي حاولت اطبقها بس مش عارف الصراحه المطلوب اولا :- تكرار صف الكمبوبوكس والتكست بوكس اللي في الصوره فالاطار الاحمر مع الابقاء علي البيانات حتي خانه الوحده عند تكرار الصف ثانيا : هل يمكن حفظ البيانات في جدول daily_sales مع تكرار البيانات المدخله في راس النموذج مثل التاريخ ورقم التاجر ورقم المكتوب وكود والوسيله مع كل صف تم تكراره في المطلوب الاول amd.rar

المطلوب فورم لترحيل البيانات من ورقة 1 الي ورقه 2 حسب التاريخ المطلوب مع اظهار قيمة جمع الكمية بالفورم للقيم المطلوب ترحيلها مرفق ملف اختبار text.rar

الف الف شكر يا باشا الطريقه ميه ميه وشغاله كويسه جدا بس ياريت تقولي انت عدلت امعادلات كلها ازاي كده بسرعه

يا ريت حد يفيدني اعمل ايه

السلام عليكم انا كنت عامل موضوع من يومين اسمه الجمع بشرطين واخوتنا الخبراء في المنتدي ردوا عليا ان استخدم داله SUMPRODUCT ولكن بعد استخدام الداله في الورقه كامله بقي تقيل جدا لما اعمل تعديل في الورقه a ويقولي تحت لو انا عاوز اقفل الملف واحفظ يكتبلي تحت ( جاري معالجه البيانات ) ولازم استني لما يوصل 100% وده طبعا بيعطلني جامد ياريت حد يشوفلي حل في الموضوع ده الملف مرفق للحل tryit.rar

شغال يا باشا والف شكر بس ياريت اعرف الداله اللي انت استخدمتها استخدمتها ازاي في الملف بتاعي

انا اسف هذا هوه الملف المرفق Book1.rar

اولا وقبل كل شئ السلام عليكم انا بصمم ورقه تساعدني في الشغل عندي عباره عن حساب الاصناف المصروفه لكا منطقه زراعيه ومع استخدام داله sum if تعطي تحديد شرط واحد لتجميع صف معين المطلوب في الملف المرفق هو في الورقه b هو تجميع الصنف لكل منطقه في الورقه a اي بشكل اسهل تجميع الكميات للمنطقه الاولي من الصنف الاول مثلا او ايجاد داله عند تحقيق شرطين في عمودين تقوم بتجميع العمود الثالث وشكرا Book1.rar

الف شكر يا باشا الطريقه ميه ميه

انا عندي مشكله في الكومبو بوكس انا عملت فورم اكسل وحاطط فيه كومبو بوكس وبختار منه وميه ميه بس المشكله انه لو جبت الماوس عليه بيقدر المستخدم يكتب في الكومبو بوكس والتالي البيانات بتدخل في الخليه خطأ ياريت كود او طريقه لايقاف الكتابه في الكومبو والاختيار فقط منه

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

انا بطلب منكم طلب بسيط انا باستخدم الكود التالي Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("aa") 'find first empty row in database iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row 'check iteam If Trim(Me.TextBox1.Value) = "" Then Me.TextBox1.SetFocus MsgBox "ÃÏÎá ÑÞã Úáã ÇáÇÓÊáÇã" Exit Sub End If If Trim(Me.TextBox2.Value) = "" Then Me.TextBox2.SetFocus MsgBox "ÃÏÎá ÔåÑ ÇáØÈÇÚå" Exit Sub End If If Trim(Me.TextBox3.Value) = "" Then Me.TextBox3.SetFocus MsgBox "ÃÏÎá ãÊæÓØ ÇáÈÇáå" Exit Sub End If If Trim(Me.TextBox4.Value) = "" Then Me.TextBox4.SetFocus MsgBox "ÃÏÎá ßãíÉ ÇáÎØ ÇáÇæá" Exit Sub End If 'copy the data to the database ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value 'clear the data Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox1.SetFocus بس المشكله انه بيسجل بداية من الصف الثاني انا عاوزه يسجل بداية من الصف ال 11 ياريت حد يقولي تعديل الكود علشان انا دوخت وشكرا لكم اخواتي