عبدالله المجرب

اخي منسق شكراً جزيلاً لك والمرفق فيه ملفين احدهم بشاشة كاملة والاخر عادي رقم حماية اوراق العمل 1 تقويم أم القرى 2.rar

اخي الفاضل ضع الكود التالي في زر امر في الورقة 4 وان شاء الله يكون لك ما اردت ** تم الاستعانة بكود للاستاذ عماد الحسامي بنفس الفكرة** Sub officna() Dim x As Worksheet Application.ScreenUpdating = False For Each x In Application.Worksheets For i = 3 To 50 If x.Cells(i, 5).Value = Sheet4.Range("F2") Then x.Cells(i, 5).Value = Empty End If Next i Next x End Sub

اخي الفاضل هل هذا ما تقصده Book1 (1).rar

الاساتذة الكرام جمال الدغيدي عماد الحسامي اعمال مميزة ورائعة

اخي لارفاق ملف قم بضغطه اولاً ببرنامج وينرار او وينزيب ومن ثم قم برفعة او راجع الرابط http://www.officena.net/ib/index.php?showtopic=31250

اخي جمال الفار ملف به شرح واسع تشكر عليه كما نسال الله في هذه الايام المباركة ان يعود الينا الاستاذ هادي سالم وان يجزيه الله خير الجزاء على هذا العمل التحفة بصراحة وانا اعيد رفعة ليصبح التحميل مباشر الفار.rar

اخي الفاضل وبعد اذن استاذي بن عليه ضع معادلة الصفيف في الخلية C8 في ورقة المطلوب واسحبها للاسفل =AVERAGE(IF(INDIRECT(A8&"!D2:I2")>20;INDIRECT(A8&"!D2:I2"))) و لا تنسى ان تضغط Ctrl+Shift+Enter المطلوب غير واضح بالنسبة لي ابواحمد

اخي الفاضل تابع الرابط ادناه فلعلك تجد ضالتك فيه ابواحمد http://www.officena.net/ib/index.php?showtopic=37537

اخي الفاضل المطلوب اولاً نرجو منك تعديل العنوان بما يتماسب ومضمون الطلب ولعمل ذلك ستجد في اسفل اول مشاركة في جهة اليسار ثلاثة خيارات 1. تعديل 2. رد 3. اقتباس متعدد فقم باختيار تعديل وقم بتعديل العنوان ثانياً المطلوب غير واضح فطاولة النحاس للزبون علي غير متكررة واجماليها 1 وكذلك بالنسبة لباقي الزبائن والمنتجات ثالثاً ارفق ملف للعمل عليه مباشرة وليس صورة ابواحمد

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

الاستاذ بن عليه عمل مميز ومعلومة جميلة نتعلمها عن طريقة عمل مدى متغير بالمعادلات

اخي ابو الاء جرب المرفق المركز المالى للمدرسة1.rar

استاذ بن عليه يبدو ان افكارنا واحدة (طبعاً ما عدا دالة المرجع ) ووقت رفع المشاركة واحد ** القلوب عند بعضها** رمضان كريم وكل عام وانت بخير

اخي leprince2007 جرب المرفق كما يمكنك تغيير الشرط في الخلية الصفراء Inquiry.rar

اخي seao راجع هذه المشاركة ففيها طلب مشابه لطلبك واي تعديل انا وجميع اخواني في الخدمة بما نستطيع http://www.officena.net/ib/index.php?showtopic=38041

اخي ابو الاء شكراً لمرورك استاذنا الفاضل جمال هذا اقل من بعض ما عندكم رمضان كريم وخواتم مباركة

اخي استبدل هذا الجزاء من الكود xx = ws.Range("J6").Value بهذا الجزاء xx = Format(ws.Range("J6").Value, "dd-mm-yyyy") وعدل تنسيق خلية المصدر الى تاريخ وضح اكثر؟؟؟؟

اخي الفاضل تفضل الملف المرفق ابواحمد التاريخ مجزاء.rar

اخي ابو الاء تفضل المرفق تمت اضافة كودين في الملف ان شاء الله هذا ما اردت ابواحمد Sub officna() On Error Resume Next Set ws = Sheets("الشيت الاساسى ") ws.Range("A7:P46").Copy xx = ws.Range("J6").Value Worksheets.Add().Name = xx Range("A7").Select ActiveSheet.Paste Range("A7").Select Sheets(xx).Move After:=ws Sheets(xx).Select Application.CutCopyMode = False officna1 End Sub Sub officna1() Application.ScreenUpdating = False Set ws = Sheets("الشيت الاساسى ") ws.Select For i = 11 To 36 For s = 3 To 6 For w = 9 To 12 Cells(i, s).ClearContents Cells(i, w).ClearContents Next w Next s Next i Application.ScreenUpdating = True End Sub المركز المالى للمدرسة.rar

اخي kingdz2011 اهلا بك بين اخوانك ونرجو منك تغيير عنوان المشاركة من ((طلب مساعدة )) الى (( كيفية تحويل ملف الاكسل الى ملف تنفيذي)) او اي عنوان تراه يتناسب ومضمون المشارك ابواحمد

اخي ياسر شكراً لمرورك وكل الشكر للاخ نور الرياض ابواحمد

اخي فضل اولاً نرجو منك تعديل العنوان بما يتناسب مع المضمون ثانياً جرب المرفق تم اضافة الكود لعمل اللازم Sub Officna() If ActiveCell.Column <> Range("A1").Value Then MsgBox ("عمود الخلية لا يساوي قيمة الخلية A1") Exit Sub End If X = "ح" XX = Range("A1").Value Selection.Value = X & XX End Sub عمل زر ماكرو.rar

اخي ابو شرف تم اضافة مرفق في مشاركتك السابقة

اخي ابو شرف جرب المرفق لعل هذا ما تريده حسابات (1).rar

اخي ابوشرف نرجو منك تغيير العنوان كما انه من الاولى عدم فتح موضوع جديد والاكتفاء بالموضوع المفتوح مسبقاً