احمدزمان

اخي سليم ما كل ما يتمنى المرء يدركه تجري الرياح بما لا تشتهي السفن لا اعرف حل آخر سوى الحماية Protect

السلام عليكم الجزء الأول استخراج اساء غير مكررة اضغط تحديث القائمة G4S - 1.rar

و عليكم السلام و رحمة الله وبركاته بعد اذن اخونا الحبيب اسلام اعتقد ان الخطوات للحل حسب ما فهمت كالتالي في ورقة مجاميع يتم تنسيق الورقة للمطلوب استخراجه تسمية النطاق لورقة الوارد و المنصرف استخدام التصفية المتقدمة بالكود لإستخراج بيانات غير مكررة للنوع و العبوة استخدام دالة sumproduct مع Index لتجميع الكميات المنصرف و الوارد حسب النوع و العبوة بعد ذلك عند طرح المنصرف من الوارد يكون لدينا الكمية المتبقية تحياتي وتقديري

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

غالي و الطلب رخيص ماهي الطريقة للحذف باستخدام رقم التسلسل - حدد مكان الرقم المطلوب حذفة باستخدام اسم الطالب - حدد الخلية التي بها اسم الطالب للحذف باستخدام الصف الحالي الذي يقف علية المؤشر للورقة و الخيار لك

اخي الحبيب عزيز اذا التغيير السابق مطلوب عمله في الخلايا في العمود "D" من نفس الورقة بمعنى اضافة الدوال الى الورقة وليس اضافة الى الكود للإرسال واذا اردت اضافة لكود VB نفسة فهنا تستخدمOffset مع علامة الدمج & مع التحية

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

اخي الفاضل استبدل .Body = rngEntry.Offset(0, 2).Value بــــ .Body = rngEntry.Offset(0, 2).Text وجرب

السلام عليكم جرب المرفق للترقية اضغط ترقية 1 AZترقية.rar

و عليكم السلام و رحمة الله وبركاته هذه النقطة غير مفهومة كيف اعرف ان هناك ترقية

السلام عليكم و رحمة الله اخي محمد بناء على طلبك السابق في ورقة درجات الأولي وضعنا الشرط اذا كان قيمة آخر تسلسل في ورقة اعدادات اكبر من قيمة آخر تسلسل في ورقة الأولي اذا نفذ الكود وربطناه بالكود في ورقة اعدادات اضفنا كود تشغيل الماكرو اذاكان تم تغيير اي خلية في العمود "B" بمعنى اذفنا اي اسم Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then ãÇßÑæ1 End Sub والآن بمجرد اضافة اي اسم جديد يتم اضافة الصفوف و الدول الجديدة في الورقة الأخرى في حال تعديل اي اسم يتم تعديله تلقائيا بموجب الدوال دون اضافة اي صفوف جديدة ارجو ان يكون كدة تمام اضافة صف من صفحة اخرى.rar

السلام عليكم و رحمة الله وبركاته اخونا المبدع محمود خالص تحياتي وتقديري اسأل الله العلي العظيم ان تكون دائما بخير وسعادة

السلام عليكم و رحمة الله وبركاته اخي عزيز استخدم الدالة CONCATENATE لجمع النصوص في خلية واحدة وحيث ان نص الرسالة في الخلية D اذا CONCATENATE(F6;G6;H6;I6) وبطريقة اخرى اذا اردت نص الرسالة ان يكون كل خلية في سطر جديد =CONCATENATE(F7;CHAR(10);G7;CHAR(10);H7;CHAR(10);I7) والله اعلم

جزاك الله خيرا

وجزاك الله خيرا نفس الكود السابق ضعه في UserForm_QueryClose

الملف اضافة صف من صفحة اخرى.rar اضافة صف من صفحة اخرى.rar

السلام عليكم تم عمل التالي في ورقة اعدادات تم تغيير دالة مسلسل بحيث تأخذ المسلسل بمجرد كتابة الإسم في خانة الإسم حتى وان ترك السابق فارغ في ورقة درجات الأولي تغيير دالة التسلسل في ورقة درجات الأولي الى =MAX($A$10:$A10)+1 تغيير الدالة لجلب بيانات الطالب الى =IF(ISERROR(INDEX(اعدادات!$A$1:$G$555;MATCH($A11;INDEX(اعدادات!$A$1:$G$555;;1);0);2));"-";INDEX(اعدادات!$A$1:$G$555;MATCH($A11;INDEX(اعدادات!$A$1:$G$555;;1);0);2)) تم عمل كود يقوم بنسخ آخر رقم تسلسل موجود في الورقة ولصقة بالأسفل مع عمل دمج الخلايا واضافة الدوال او المعادلات Sub ãÇßÑæ1() ' FRV = Range("AJ9") ER = ActiveSheet.UsedRange.Rows.Count + 9 For FR = 170 To ER If Cells(FR, 1) <> FRV Or Cells(FR, 2) = "-" Then GoTo 7 FRR = "A" & FR & ":AJ" & FR + 3 With Range(FRR) .EntireColumn.Hidden = False .EntireRow.Hidden = False .Copy End With TR = FR + 4 Range("A" & TR).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Selection.RowHeight = 8 7 Next FR End Sub لذلك في كل مرة تضغط على زر اضافة جديد يتم اضافة البيانات لواحد فقط مع ملاحظة: انه في حال وجود اي صف ليس به اسم يتم الغاء العملية ولا يضيف اي صفوف جديدة لضمان عدم الإضافة بدون سبب هذا حسب فهمي و على قدر معرفتي

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

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

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

السلام عليكم شكرا لك اخي سليم وجزاك الله خيرا

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

السلام عليكم و رحمة الله وبركاته جرب التعديل التالي Private Sub CommandButton2_Click() If ActiveWorkbook.Name <> ThisWorkbook.Name Then Exit Sub ActiveWorkbook.save ThisWorkbook.Close End Sub آمل ان يكون به ماتريد

جميل جدا استاذ احمد طيب لو كانت الطباعة في ورقة واحدة ونريد طباعة عدة نطاقات او تحديد نطاق معين للطباعة السلام عليكم و رحمة الله اخي ابو صلاح تحديد عدة نطاقات للطباعة في ورقة واحدة لا اعتقد انه ممكن في اكسل لأنه من خصائص الإكسل عند تحديد عدة نطاقات ان يتم طباعة كل نطاق على حدة و تحديد نطاق معين لكل ورقة ممكن تحياتي