كل الانشطه

كده تمام

عليكم السلام طلبك غير دقيق .. اقصد ان البحث غير دقيق .. لانه يمكن وجود الصنف نفسه في اكثر من مكان ومع اكثر من نوع ( فأي منها تريد تكراره ) فاهمني ؟ تم التعديل حسب المطلوب التوريد2.rar

اذا كانت الفرصة ما زالت متاحة لك ، الغ افضل اجابة عن نفسك أولاً ، ثم اختر اجابة الإستاذ @kkhalifa1960 ، أنت عضو فضي ومن المفترض أنك تعلم هذه الأمور

اخي طلبك غير واضح بالنسبة لي ما هي علاقة الغرفة 1 بالمادة 13 مثلا !!!!!!!!!!!! حتى لو قمت بتجربة الدهاب الى عمود الغرفة 1 وقمت بفلترتها على الخلايا الغير فارغة لن تجد غرفة 13 في عمود (نوع اللوازم و مواصفاتها ) ربما يجب عليك اعادة صيغة طرح طلبك مع مزيدا من التوضيح او ارفاق عينة للنتائج المتوقعة المرجوا جعل كل طلب في موضوع مستقل

شكرا لحضرتك وسامحني ولسه معرفش ازاي اختار لحضرتك افضل إجابة ؟

اهي فرصة علشان تتعلم .

أنا مش عارف اغيرها ؟ اغيرها ازاي أنا مبتديء ؟ أنا عارف ان حضرتك تعبت كثيرا معي وربنا يجزيك خير الجزاء

عدل افضل اجابة أولاً !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! انا الذي تعب وأخذت من وقتي الكثير

بعد اذن حضرتك عايز اعرف غيرت البرمجة في الليست بوكس ازاي هههه أنا آسف جدا

يا استاذ انت نسبت لنفسك أفضل اجابة !!!!!!!!!!!!!

لا تنسى اذا كان هذا طلبك الضغط على أفضل اجابة .

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

جرب التعديل . غيرت برمجة الليست بوكس . mas-3.rar

اريد كود برمجى لعمل بطاقة صنف تفصيلى برنامج تصنيع.xlsm

عملت البدع معاه ومش عارف ليه مش عايز يظهر عير ت عرض الأعمدة كذا مرة ونفس الموضوع

Dim dat, dat_bon As Date Dim X As Integer Dim v As Integer Dim Uf As Integer Dim i As Long Dim J As Long Set fa = Sheets("Stock") With Feuil1 Uf = fa.Range("A" & Rows.Count).End(xlUp).Row For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 Then If Me.OptionButton1 = True Or Me.OptionButton2 = True Then dat_bon = .Cells(J, 9) If dat_bon < dat Then dat_bon = dat End If End If End If Next J Next i For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 And .Cells(J, 9) = dat_bon Then If Me.OptionButton1 = True Then .Cells(J, 4) = .Cells(J, 4) + Val(ListBox1.List(i, 3)) .Cells(J, 6) = .Cells(J, 6) - Val(ListBox1.List(i, 3)) If (Cells(J, 4).value) = 0 Then Cells(J, 4).EntireRow.Delete End If ElseIf Me.OptionButton2 = True Then .Cells(J, 4) = .Cells(J, 4) - Val(ListBox1.List(i, 3)) .Cells(J, 7) = .Cells(J, 7) + Val(ListBox1.List(i, 3)) If (Cells(J, 4).value) = 0 Then Cells(J, 4).EntireRow.Delete End If End If End If Next J Next i End With السلام عليكم ورحمة الله وبركاتة ممكن ان تساعدونى هذا الكود يقوم بحذف الخلية 4 كاملة اذا كانت تحتوى الخلية على رقم صفر ولاكن اريد ان اقوم بدمجها مع الخلية 5 وهى اسم المخزن ولاكن اذا كان اسم المخزن غير مكرر فلا يقوم بالحذف وذلك يرجع عندما اقوم باختيارها من combobox1 وشكرا جزيلا

جرب التعديل . لانه يعمل عندي . mas-2.rar

شكرا جزيلا أخي الفاضل

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

عليكم السلام تفضل اخي الكريم هذه التقارير جاهزة من تصميم الاستاذ جعفر اشكال للتقارير.mdb

تفضل استاذ @2saad محاولتي حسب ما فهمت اليك المرفق بعد اضافة طلبك . ووافني بالرد . mas-1.rar

خالص التحية والتقدير لك أٍستاذ (أبو عيد) نفع الله بك

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

تفضل استاذ @2saad محاولتي حسب ما فهمت اليك الشرح والمرفق بعد التعديل . ووافني بالرد . ReportList.rar

وعليكم السلام ورحمة الله تعالى وبركاته جرب هل هدا ما تقصده Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim A As Range For Each A In Range("M3:P28") If Not IsError(A) Then Application.ScreenUpdating = False Application.EnableEvents = False If A.Interior.ColorIndex <> xlNone Then A.Offset(0, -9).Interior _ .ColorIndex = A.Interior.ColorIndex Else A.Offset(0, -9).Interior.ColorIndex = xlNone End If End If Next A Application.ScreenUpdating = True Application.EnableEvents = True End Sub Book1 V2.xlsb