ياسر خليل أبو البراء

الأخ الحبيب اسلام عمر أشكرك على كلماتك الرقيقة في حقي .. والكل هنا لا يبخل بمعلومة والله طالما أنه يعرفها .. وما العبد الفقير إلى الله إلا نقطة في محيط أوفيسنا وربما أقل من ذلك .. جرب الملف التالي لربما يكون فيه مرادك Print Selected Sheets.rar

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

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

وأنا أتعب نفسي ليه لما ممكن متعبهاش !!!!!!!! يا أخي الفاضل من قواعد المنتدى إرفاق ملف للموضوع لتسهيل الوصول لحل سريع .. ووو مش هحكي أكتر من هيك !!

الأخ الفاضل أبو تراب نفتقدك بشدة .. لعلك تكون بخير

الأخ الفاضل أحمد تفضل المرفق التالي .. Create 400 Sheets.rar

الأخ الحبيب ياسر جرب الملف التالي ... بحماية الورقة Restrict Cursor Movement To Unprotected Cells.rar

تفضل أخي الحبيب تم إضافة الكود التالي في حدث المصنف Private Sub Workbook_Open() Sheets("bb").Activate End Sub 03-فرز المنتج مع إظهار السعر.rar

أين الملف المرفق؟؟؟؟؟؟؟؟؟؟؟؟؟

بعد إذن الأخ الحبيب سليم نفس حل الأخ سليم ولكن باستخدام رقم اللوحة . TRAINING Test.rar

اضغط Alt + F11 ستجد الكود التالي ، قم بنسخه إلى ملفك Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim cel As Range If CommandButton1.Caption = "إخفاء" Then For Each cel In Range("A2:A200") If cel.Value = 0 Or cel.Value = "" Then cel.EntireRow.Hidden = True End If Next cel CommandButton1.Caption = "إظهار" Else Range("A2:A200").EntireRow.Hidden = False CommandButton1.Caption = "إخفاء" End If Application.ScreenUpdating = True End Sub قم بالذهاب الى التبويب Developer ثم Insert وأدرج زر أمر Command Button (ActiveX Control على أن يكون زر الأمر باسم CommandButton1 أو إذا لم يكن بهذا الاسم وكان باسم آخر قم باستخدام الاسم الآخر للتعديل داخل الكود ليناسب طلبك

ارفق ملفك أخي الحبيب .. أنت أصبحت من ذوي الخبرة بالمنتدى تقبل تحياتي يا برنس

كليك يمين على اسم وقة العمل واختر الأمر View Code ستجد الأكواد انسخها في ملفك .. بشرط أن يكون العمل في ملفك بنفس الظروف أي أن إدخال الأسماء سيكون في العمود الأول

جرب الملف التالي ..اعذرني لعدم متابعة الموضوع من البداية .. هل هذا هو المطلوب؟ ehab.rar

هل المطلوب نسخ البيانات الموجودة في الورد Word إلى ورقة العمل المسماة Donnée أو إلى ورقة العمل المسماة (جدول المنح المتأخرة)؟؟ هل البيانات الموجودة مسبقا في ملف الإكسيل سيتم مسحها تماما .أم أن البيانات الجديدة سيتم إضافتها على البيانات القديمة ..؟؟ مزيد من التوضيح وبلاش الفرنساوي ..لو إنجليزي ماشي عشان أنا متمكن جدا جدا في الفرنساوي أقصد الإنجليزي

ضع هذه المعادلة في الخلية D2 ثم قم بسحبها (في ورقة العمل bb) =SUMPRODUCT((aa!$B$2:$B$14=$C2)*(aa!$D$2:$D$14))

مش عارف والله كل الناس بتسأل على النقطة دي ..إنهم عايزين يتعلموا والغريبة إن فيه باب مفتوح في المواضيع المثبتة (بس محدش معبر الباب) ... فكرني يا أخي الحبيب ابن مصر نبقا نغير لون الباب ونخليه لون جذاب عشان الأخوة الأعضاء ياخدوا بالهم http://www.officena.net/ib/index.php?showtopic=56941 دا رابط فيه البدايات اللي إن شاء الله تقدر تستفيد منها وتقدر من خلالها تنطلق لعالم الأكواد الممتع تقبل تحياتي

بردو مش فاهمني ..أنا مش عايز شكر أنا عاااااااااايز دعوة ويا ريت تكون دعوة من جوا قلبك مش من لسانك .. خلوا فيه ضمير بقا في دعوتكم تصدق مخدتش بالي من الألوان (حقك عليا ظلمتك يا أخي فتيح) .. أصل عندي عمى ألوان تقبلوا تحياتي

إليك الشرح ولا تنسانا بدعوة ... كفاية راحت مني كام دعوة الليلة !!! Sub CopyTitleBeforeEachName() 'تعريف المتغيرات داخل الكود Dim LR As Long, I As Long 'تحديد آخر صف به بيانات بالعمود الأول LR = Cells(Rows.Count, 1).End(xlUp).Row 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'حلقة تكرارية تبدأ من آخر صف به بيانات حتى الصف الرابع تمهيداً لإدراج صف العنوان For I = LR To 4 Step -1 'هذا السطر لإدراج صف قبل الصف في المتغير Rows(I).Insert Shift:=xlDown 'نسخ الصف الثاني ولصقه في الصف الجديد الذي تم إدراجه Rows(2).Copy Cells(I, 1) Next I 'إلغاء خاصية النسخ بعد عمليات النسخ Application.CutCopyMode = False 'تفيعل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub

مفيش دعوة حلوة لينا إحنا كمان يا حاج فتيح مش دا كان كلامي من الأول .. عموما ملحوقة يا ابن مصر (خدت الدعوات لنفسك وسبتني من غير دعوة حلوة ..!!!!!!!!! ) تقبلوا تحياتي

جرب الملف التالي أخي الكريم Reapply Filter.rar

جرب الملف التالي أخي الحبيب PER befor.rar

بارك الله فيك أخي الغالي سليم دائماً مبدع وتأتي بكل جديد ومفيد .. تقبل تحياتي

مفيش هدية منك تحدد إجابتي كأفضل إجابة عشان تكون مرجع للبحث عند الباحثين وعشان أزيد نقطة .. يا خي بلاش بخل تقبل تحياتي

أخي الحبيب ..أنا ما قدمته ما هو إلا معادلة الأخ الغالي سليم ..فقط وضعتها في الكود ..بدون تغيير مني الحمد لله أن تم الموضوع على خير .. والشكر موصول للعملاق حسام عيسى (صقر المنتدى .. والمبدع دائماً) تقبلوا تحياتي