طائع

السادة الزملاء والاساتذه أنا الان بصدد تجميع بعض الاعمال فى برنامج صغير سأطرحهه على سيادتكم بعد انجازه فالرجاء من سيادتكم مساعدتى فيما وقفت عنده فى المرفق فورم للعلامة عبدالله باقشير اريد التعديل عليه فى 1 اريد عند اختيار الدواء فى الفورم يجلب لى سعره من صفحة مخزن أدوية وكذلك عند اختيارى للمستلزم يجلب لى سعره من مخزن مستلزمات 2 الطلب الثانى فى (صفحة الحالة ) تعديل على الفورم.rar

السادة الزملاء والاساتذه أنا الان بصدد تجميع بعض الاعمال فى برنامج صغير سأطرحهه على سيادتكم بعد انجازه فالرجاء من سيادتكم مساعدتى فيما وقفت عنده فى المرفق فورم للعلامة عبدالله باقشير اريد التعديل عليه فى 1 اريد عند اختيار الدواء فى الفورم يجلب لى سعره من صفحة مخزن أدوية وكذلك عند اختيارى للمستلزم يجلب لى سعره من مخزن مستلزمات 2 الطلب الثانى فى (صفحة الحالة ) تعديل على الفورم.rar

تم المطلوب وشكرا لأستاذى أبو حنين

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

السادة أساتذتى واخوانى لدى ملف اكسل 2003 ولا اريده يفتح ولا يعمل الا على اوفيس 2003 فقط

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

ما الفرق بين هذه المشاركة والمشاركة السابقة عنها اريد فورم بحث متعدد المعايير

وياللروعة لو كان بحث بفورم يتم طباعته

نعم هذا صحيح أكمل على بركة الله الطلب الثانى أرجو أن يكون البحث بمعيارين الحالة التاريخ

وضحت المشكلة وفهمت ولكن هل من حل للتغلب على تكرار اسم الحالة أمام كل صف من صفوف الجدول

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

انظر الى هذا الكود Sub ترحيل_بيانات() LR = [C8].End(xlDown).Row If LR > 28 Then MsgBox "لا يوجد أصناف ، لن يتم أي ترحيل": Exit Sub dt = [b8]: clnt = [D6]: inv_N = [I5] If dt < 36666 Then MsgBox "التاريخ خطأ ، لن يتم أي ترحيل": Exit Sub If Len(clnt) < 2 Then MsgBox "لا يوجد عميل ، لن يتم أي ترحيل": Exit Sub If inv_N < 1 Then MsgBox "لا يوجد رقم فاتورة ، لن يتم أي ترحيل": Exit Sub For R = 9 To LR With Sheet2 nR = .[B9999].End(xlUp).Row + 1 If nR < 9 Then nR = 9 .Cells(nR, 9) = Cells(R, 10) .Cells(nR, 1) = dt .Cells(nR, 2) = clnt .Cells(nR, 3) = Cells(R, 3) .Cells(nR, 4) = Cells(R, 4) .Cells(nR, 5) = Cells(R, 5) .Cells(nR, 6) = Cells(R, 6) .Cells(nR, 7) = inv_N End With Next R a = MsgBox("هل تريد مسح بيانات الفاتورة؟", vbYesNo + vbQuestion, "مسح بيانات") If a = vbYes Then Range("C9:D" & LR).ClearContents: Range("F9:F" & LR).ClearContents [I5] = inv_N + 1 End Sub Sub recall() 'On Error Resume Next With Sheet2 .[P9:P9999].ClearContents R = .[O9999].End(xlUp).Row .Range("H7:O" & R).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.[P7:Q7], Unique:=True R = .[P10000].End(xlUp).Row Names("Inv_N").RefersToR1C1 = "=المحل!R9C16:R" & R & "C16" Names("Clnt_N").RefersToR1C1 = "=المحل!R9C17:R" & R & "C17" UserForm1.ListBox1.RowSource = "Inv_N" UserForm1.ListBox2.RowSource = "Clnt_N" End W

أتقصد هكذا ترحيل وبحث.rar

لم أفهم الرجاء التوضيح

شكرا على اهتمامك استاذى اريد من حضرتك الحل بالآكواد حيث أننى اريد كتابة البيانات للحالة وترحيلها مع امكانية مسح البيانات لإدخال بيانات أخرى

للرفع

السادة أساتذتى واخوانى لدى ملف اريد به ترحيل جدول الى صفحة اخرى المطلوب بالمرفق Book2.rar

جزاك ربك خير الجزاء الأخ الكريم أبو عبدالبارى هذا هو المطلوب

السادة الأفاضل أريد حساب نسبة ال 65 % للفصل المطلوب فى المرفق نسبة ال 65%.rar

للرفع

للرفع فعلا محتاج العمل ضرورى

رأيت الهمة والنشاط والعبقرية هناك مشكلة تقابل كل من يعامل مع موقع الوزارة وهى طباعة التقارير وتوجد حلول كثيرة ولكنها دون جدوى فهل من حل لهذه المشكلة

للرفع

للرفع

للرفع