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

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

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

الأخ الفاضل هشام حسب ما فهمت من المرفق ..جرب المرفق التالي .. ولكن يراعى تمام الدقة في إدخال الوظائف حتى تخرج النتائج بشكل صحيح ، لأن أي اختلاف ولو طفيف جداً لن تعمل الدالة مع الوظيفة جرب وأعلمنا بالنتيجة GroupJob UDF Function.rar

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

المشكلة في الملف ولم أنتبه إليها عموما دي حلها بسيط ادخل التبويب Page Layout ثم Print Area واختار Clear Print Area

فيما يخص المشاركة رقم 9 .. أنت غير مجهز الشيت بشكل مناسب لهذا الطلب .. أقترح عليك عمل أرقام للإدارات كما في الملف الذي أشرت إليه .. نقطة أخرى ..الفلترة هنا ستكون على شرط الإدارة فقط ؟؟!!!!!!!! حاول تعدل من الملف بحيث يناسب طلبك ..

أخي الحبيب ..قمت ببعض من المطلوب .. في آخر صف تمت إضافة صف للإجمالي ..لكن كل 25 موظف أعتقد صعبة شوية جرب الملف التالي Print Salary.rar

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

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

الأخ الفاضل الغالي حماده إضافة للمشاركة رقم 14 يا ريت إضافة هذه الروابط أيضا ثلاثة طرق لتحديد أوراق العمل بالأكواد الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) فحص الاتصال بالانترنت عن طريق الأكواد التصفية المتقدمة بالأكواد Advanced Filter نسخ كود من مصنف لمصنف آخر ، ومن مصنف للمنتدى

إليك هذا التعديل ليتم التعامل مع الشرطين .. قم باختيار الشرطين ثم انقر زر الأمر Sub PrintSpecfic() Dim strCriteria1 As String, strCriteria2 As String strCriteria1 = Sheet1.Range("AH1").Value strCriteria2 = Sheet1.Range("AI1").Value On Error Resume Next With Sheet1 .AutoFilterMode = False .Range("A2:AI2").AutoFilter Field:=34, Criteria1:=strCriteria1 .Range("A2:AI2").AutoFilter Field:=35, Criteria1:=strCriteria2 Columns("AH:AI").Hidden = True ActiveWindow.SelectedSheets.PrintOut Copies:=1 Columns("AH:AI").Hidden = False End With End Sub Print Salary.rar

أخي الحبيب تمت الإجابة في موضوعك الآخر ..عموما هنا إضافة في الملف ..إخفاء الأعمدة قبل الطباعة ثم معادوة ظهورها بعد الطباعة Print Salary.rar

أخي الكريم إليك الملف التالي .. بناءً على معيار واحد وهو الإدارة ..حيث أنك لم تحدد مكان توضع فيه الشروط .. جرب Print Salary.rar

الأخ الكبير حماده الرسايل الخاصة مقفولة عندك ليه ؟؟

حدد الإجابة في المشاركة رقم 3 كأفضل إجابة ..مفيش حاجة بالمجان ...خلينا ناخد نقطة يا جدع

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

أخي الحبيب أحمد مرجان (والإكسيل هيبقا بالمجان) إليك الملف المرفق التالي .. يوضع الكود في حدث المصنف Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Answer As Long Answer = MsgBox("Do You Want To SAVE This Workbook?", vbYesNo, "Officena Query") If Answer = vbYes Then Me.Save ElseIf Answer = vbNo Then Me.Saved = True End If End Sub Change Default Save Message.rar

اكتب المعادلة التالية في F5 =IF(AND(C5="غ",D5="غ"),"غ",SUM(C5:D5)) بدون صفيف ..معادلة عادية

إذاً ننتظر رأي الأخوة الأعضاء

مشكور أبو إيمان على الإضافة بارك الله فيك .. تقبل تحياتي

أخي الفاضل وضح أكثر بمزيد من القول .. ما هي ورقة العمل المراد طباعتها ؟؟ وما هي الشروط أو المعايير التي ستقوم بالطباعة على أساسها ؟ وأين هي الشروط أعتقد في العمود AH و AI في ورقة العمل المسماة "يناير" .. يرجى توضيح شكل المخرجات ........أو الطباعة كيف سيكون شكلها ؟؟

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

الملف فعلا يعمل بشكل صحيح جرب تنصب الأوفيس من جديد ، وإذا لم يفلح الامر جرب تنزل ويندوز جديد وممكن المشكلة في الماوس !!!!!!!!

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

أخي الكريم جربت الكود دون جدوى !! أنا مجرب الكود قبل أن أقوم بمشاركتك إياه والكود يعمل بشكل جيد جداً ... ما المشكلة التي واجهتك مع الكود .. الكود بسيط يعتمد على نسخ النطاقات ولصقها في المكان المحدد لها .. أرجو موافتي بنوع المشكلة ؟ ولا تمل بسرعة من حل المشكلة ، كن صبوراً حتى تصل لهدفك إن شاء الله