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

وعليكم السلام ورحمة الله وبركاته بارك الله فيك أخي الحبيب الزباري وجزيت خيراً على موضوعاتك المتميزة على الدوام تقبل تحياتي

وأحرز أخونا عبد السلام هدفاً رائعاً ..يا له من هدف ممتع ..لقد أمتعني بشكل كبير جداً حقاً إنك لرائع ، وملحوظة قوية جداً .. لم أنتبه على الإطلاق لاسم الموديول فلم أعتاد أن يسمي الناس الموديولات الخاصة بهم ، ولهذا لم أفكر بالأمر رغم أنني في تصميم البرامج لا أترك الاسم الافتراضي للموديول بل أقوم بتسميته باسم معبر عن الهدف منه وعادةً أبدأ التسمية بكلمة mod اختصار كلمة module ومن ثم رجوعاً إلى الملف الأصلي في المشاركة في الموضوع على الأخ ناصر أن يقوم بالتالي الذهاب لمحرر الأكواد Alt+ F11 الذهاب لنافذة المشروع والنقر على اسم الموديول Kh_Mustowa ثم الذهاب إلى نافذة الخصائص وتغيير اسم الموديول إلى مثلاً Mod_Kh_Mustowa

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

أخي الحبيب أحمد الرشيدي أحبك الله الذي أحببتني فيه .. حمداً لله على سلامتك وعوداً حميداً تقبل وافر تقديري واحترامي

جرب التعديل التالي أخي العزيز Sub Test() Application.Calculation = xlManual With Sheets("اللجان") .Calculate For J = [am3] To [an3] Step 20 [I2] = IIf(J <= [an3], J, ""): [R2] = IIf(J + 1 <= [an3], J + 1, ""): [aa2] = IIf(J + 2 <= [an3], J + 2, ""): [aj2] = IIf(J + 3 <= [an3], J + 3, "") [I7] = IIf(J + 4 <= [an3], J + 4, ""): [R7] = IIf(J + 5 <= [an3], J + 5, ""): [aa7] = IIf(J + 6 <= [an3], J + 6, ""): [aj7] = IIf(J + 7 <= [an3], J + 7, "") [I12] = IIf(J + 8 <= [an3], J + 8, ""): [R12] = IIf(J + 9 <= [an3], J + 9, ""): [aa12] = IIf(J + 10 <= [an3], J + 10, ""): [aj12] = IIf(J + 11 <= [an3], J + 11, "") [I17] = IIf(J + 12 <= [an3], J + 12, ""): [R17] = IIf(J + 13 <= [an3], J + 13, ""): [aa17] = IIf(J + 14 <= [an3], J + 14, ""): [aj17] = IIf(J + 15 <= [an3], J + 15, "") [I22] = IIf(J + 16 <= [an3], J + 16, ""): [R22] = IIf(J + 17 <= [an3], J + 17, ""): [aa22] = IIf(J + 18 <= [an3], J + 18, ""): [aj22] = IIf(J + 19 <= [an3], J + 19, "") With .PageSetup .LeftHeader = "اللجنة " & Sheet2.Range("Q5").Value & vbCrLf & "القاعة " & Sheet2.Range("Q6").Value .CenterHeader = "امتحانات الطلبة" & vbCrLf & "للعام " & Sheet2.Range("Q7").Value .RightHeader = Sheet2.Range("Q3").Value & vbCrLf & Sheet2.Range("Q4").Value End With .Calculate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next J End With Application.Calculation = xlAutomatic End Sub تقبل تحياتي

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

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

جرب استخدام اسم ورقة العمل بدلاً من الاسم البرمجي Sheet2 أي استخدم كلمة Sheets يليها قوس مفتوح Shift + 9 ثم قوس تنصيص واكتب اسم ورقة العمل ثم قوس تنصيص ثم قوس إغلاق Shift + 0 بدلاً من الاسم البرمجي لو استمرت المشكلة يرجى إرفاق صورة من الخطأ ، مع ذكر نسخة الأوفيس لديك ..فقد تكون المشكلة في نسخة الأوفيس في تصدير ملفات الـ PDF

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

بارك الله فيك وجزاك الله خيراً على مساهمتك الرائعة تقبل الله منا ومنكم صالح الأعمال

أخي الكريم رشراش احتمال وجود نسخة الأوفيس لديك باللغة الفرنسية تستلزم منك أن تقوم عند نسخ المعادلة بتغيير اسماء الدوال ..فمثلاً الدالة Sumproduct يقابلها بالفرنسية sommeprod والدالة Row يقابلها بالفرنسية ligne والدالة Mid يقابلها بالفرنسية stxt ومن ثم أعتقد لنسخ المعادلة التي تفضل بها أخونا العزيز عبد السلام ، يجب استبدالها بالفرنسية بهذا الشكل =sommeprod(--(stxt(A2,ligne(A1:A101),1)=$B$2)) لاحظت في التوقيع الخاص بك تحيا الأمة الإسلامية - الشيعة (رجاء إزالة التوقيع منعاً لأي جدال أو نقاش حول الأمر .. المنتدى تعليمي وكلنا هنا يجمعنا المصلحة العامة للجميع بصرف النظر عن الانتماءات أو التحزبات أو خلافه ، وبرجاء عدم الدخول في نقاش أو جدال في هذا الأمر - أردت فقط التنويه) تقبل تحياتي

أخي الكريم أحمد رائد إليك حل لمشكلتك في الرابط التالي الرابط من هنا تقبل تحياتي

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

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

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

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

أخي العزيز عبد السلام يبدو أن كلامك صحيح بدليل أنه عندما قمنا بحذف العلامة _ تم حل المشكلة ، ولكن أعتقد ليست هذه المشكلة لأنه لدي الكثير من الدوال المعرفة وبها هذه العلامة وتعمل بشكل جيد قد يكون السبب وجود متغيرات باللغة العربية بها نفس العلامة - يبقى مجرد احتمال ... لم أطيل في التجربة نظراً لضيق الوقت ، ولكن على الأرجح هناك سبب خفي لا أعلمه سبب لهذه المشكلة تقبل وافر تقديري واحترامي

أخي الكريم أبو حنين بصراحة معالم الموضوع غير واضحة بعض الشيء وتحتاج لمزيد من التفاصيل عموماً جرب الكود التالي (لم أجرب الكود بشكل عملي ..) Sub PDF_SALAM() Dim MyName As String Dim sh As Worksheet MyName = "D:\MANAFIST TAREK\PDF\MANAFIST TAREK TO SALAM_" & Format(Date + 1, "dd-mm-yyyy") & ".pdf" Range("B5").Select Sheets(Array("زراعى", "صحراوى", "طائرة")).Select For Each sh In ThisWorkbook.Windows(1).SelectedSheets With sh .Activate If Not IsEmpty(.Range("B5")) Then MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه") If MyMsg = 6 Then ChDir "D:\MANAFIST TAREK" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False If MsgBox("هل تريد إرسال الملف المرفق إيميل أم لا؟", vbYesNo, "Send Email") = vbNo Then Exit Sub OutlMail_PDF MyName, "Mohamed.Tawfek@khalda-eg.com;Mohamed.Amria@khalda-eg.com;mohamed.abonour@khalda-eg.com", "مانفست حقول طارق", _ vbNewLine & "مع تحيات ..إدارة الشئون الادارية بحقول طارق - 8240", False Else MsgBox "لم يتم الحفظ" End If .Activate .Range("B5").Activate End If End With Next sh End Sub تقبل تحياتي

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

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

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

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

إخواني الكرام بصرف النظر عن منطقية الطلب حسب طبيعة العمل إليكم الكود الذي يؤدي الغرض Sub Goal_Seek() Dim I As Integer Application.ScreenUpdating = False For I = 5 To 29 With Sheet1 .Range("P" & I).GoalSeek Goal:=3000, ChangingCell:=.Range("G" & I) End With Next I Application.ScreenUpdating = True End Sub وأنا منذ البداية رغم عدم خبرتي بمجال المرتبات إلا أنني لم أقتنع بالطلب .. ولكن لكل مؤسسة طبيعة خاصة بها والله أعلم تقبلوا تحياتي

جرب الكود التالي بعد التعديل .. Sub Print_Task() Application.ScreenUpdating = False Rows("8:32").Hidden = False For I = 8 To 32 If Cells(I, 3).Value = "" Then Cells(I, 3).EntireRow.Hidden = True End If Next I If MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") = vbYes Then ActiveSheet.PrintPreview ActiveSheet.PrintOut For I = Range("E5").Value + 1 To Range("F5").Value For I = 8 To 32 If Cells(I, 3).Value = "" Then Cells(I, 3).EntireRow.Hidden = True End If Next I Range("E5") = I If I <= Range("E5") Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Rows.Hidden = False Next I Range("E5").Select Rows.Hidden = False Else MsgBox "Cancelled", vbExclamation End If Application.ScreenUpdating = True End Sub تقبل تحياتي

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