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

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

أخي الفاضل أبو إلياس لا أريد اعتذار أخي الحبيب إنما أريد الالتزام بالتوجيهات قدر الإمكان .. الالتزام يسهل الكثير على كلا الطرفين : صاحب الموضوع ومن يحاول المساعدة بالنسبة للخطأ في المشاركة رقم 7 بدون الإطلاع على الملف .. في السطر السابق للسطر باللون الأصفر غير السطر ليكون بهذا الشكل With Sheets("Data") حيث تم الإشارة إلى ورقة العمل بشكل مباشر بدون استخدام كلمة Sheets الأخطاء ستعلمك الكثير فحاول أن تستغل الأخطاء في التعلم .. أرجو أن تكون الفكرة قد وصلت تقبل تحياتي واعتذاري

أخي الكريم زوهير جرب الملف التالي عله يفي بالغرض Export & Import Text File YasserKhalil.rar

أخي الكريم أحمد الرشيدي جرب الملف التالي عله يفي بالغرض =VLOOKUP($D$3,INDIRECT(ADDRESS(MATCH($E$2,'بيانات أساسية'!B:B,0)+3,2,,,"بيانات أساسية")&":"&ADDRESS(MATCH($E$2,'بيانات أساسية'!B:B,0)+42,7)),3,0) لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي تقبل تحياتي Pupils Follow Up.rar

أخي الغالي زوهير ارفق الملف والكود الذي تقصده لنحاول العمل عليه

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

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

إضافة بسيطة سطر لتجنب حدوث خطأ حيث أن العمود F لو كان فارغ أو قيمته صفر يؤدي لخطأ فقمت بإضافة سطر يقوم بجعل قيمة الخلية في العمود F قيمته 1 قبل تنفيذ السطر في الكود .Range("G" & I).GoalSeek Goal:=0.1, ChangingCell:=.Range("F" & I) ليصبح الكود بهذا الشكل Sub Goal_Seek() Dim I As Long With Worksheets("Sheet1") For I = 6 To .Cells(Rows.Count, "C").End(xlUp).Row .Range("F" & I).Value = 1 .Range("G" & I).GoalSeek Goal:=0.1, ChangingCell:=.Range("F" & I) Next I End With End Sub تقبل تحياتي

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

أخي الكريم أبو تيم جرب الكود التالي عله يفي بالغرض Sub Goal_Seek() Dim I As Long With Worksheets("Sheet1") For I = 6 To .Cells(Rows.Count, "C").End(xlUp).Row .Range("G" & I).GoalSeek Goal:=0.1, ChangingCell:=.Range("F" & I) Next I End With End Sub وإليك الملف المرفق تقبل تحياتي Goal Seek YasserKhalil.rar

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

أخي الكريم جرب الملف بهذا الشكل لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي YasserKhalil Officena V2.rar

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

الحمد لله الذي بنعمته تتم الصالحات تقبل الله منا ومنكم

أستاذنا الكبير أ / محمد طاهر بارك الله فيك ولا حرمنا الله من مواضيعك الجديدة والمميزة

الأخت الفاضلة رشا يوسف إليكي الكود التالي عله يفي بالغرض إن شاء المولى Sub Final() Dim WS As Worksheet Dim I As Integer Set WS = Sheets("Final") Application.ScreenUpdating = False With WS.Range("A3:L1000") .Offset(1).ClearContents .Borders.LineStyle = xlNone End With For I = 1 To 3 Sheets(I).Range("A4:L" & Sheets(I).Cells(Rows.Count, "C").End(xlUp).Row - 1).Copy WS.Range("A" & WS.Cells(Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial xlPasteValues Next With WS.Range("C" & WS.Cells(Rows.Count, "C").End(xlUp).Row + 1) .Value = "الجملة" .Offset(, 2).Resize(, 5).Formula = "=ROUND(SUM(E4:E" & WS.Cells(Rows.Count, "C").End(xlUp).Row - 1 & "),2)" End With With WS.Range("A3:L" & WS.Cells(Rows.Count, "C").End(xlUp).Row) .Borders.Weight = xlThin .BorderAround Weight:=xlThick End With Application.CutCopyMode = False Application.ScreenUpdating = False End Sub قمت بإنشاء ورقة عمل باسم Final لعمل المطلوب في هذه الورقة .. إليكي أيضاً الملف المرفق فيه تطبيق الكود لا تنسي أن تحددي أفضل إجابة ليظهر الموضوع مجاب ومنتهي ، كما لا تنسي أن تضغطي على كلمة "أعجبني هذا" في حال أن المشاركة أعجبتك تقبل الله منا ومنكم Copy Sheets To Final Sheet YasserKhalil.rar

أخي الكريم الوليد جرب المعادلة بهذا الشكل =IFERROR(IF(B85="","",SUMPRODUCT(($D$8:$D$80=B85)*(INDIRECT(ADDRESS(8,MATCH($D$84,$G$7:$AK$7,0)+6)&":"&ADDRESS(80,MATCH($D$84,$G$7:$AK$7,0)+6))=8))),"") ودائماً يفضل إرفاق الملف الأصلي لسهولة التعامل مع المشكلة الرقم 3 الذي تم تغيير يمثل عدد الأعمدة السابقة لأول عمود في أعمدة التواريخ .. في المرفق الأول كان الرقم 3 لكن المرفق الجديد الرقم سيكون 6 أعمدة A إلى F لأن بداية التواريخ في العمود G كما تم الاستغناء عن الجزء في المعادلة المسئول عن معرفة عدد الصفوف أي نهاية النطاق وكتابة الرقم 80 الذي يمثل آخر صف للبيانات ... لاحظت أنك استبدلت رقم 8 في المعادلة برقم 2 ؟؟!! لا أدري السبب .. الرقم 8 يمثل عدد ساعات العمل كما ذكرت .. ولو كنت تقوم بإدخال البيانات أي عدد الساعات ربما يكون أقل من 8 يمكنك التغيير في المعادلة ... بإنك تشيل علامة يساوي اللي قبل الـ 8 وتخليها أكبر من 1 أو أقل من أو يساوي 8 .... أرجو أن تكون الصورة قد اتضحت الآن تقبل الله منا ومنكم

أخي الكريم أبو حنين لا أدري هل تريد تنفيذ السطر قبل تحويل الملف لـ PDF أم بعد التحويل .. عموماً إذا كنت تريد الرسالة في بداية الكود قبل تحويل الملف لـ PDF فيمكنك ببساطة إضافة السطر التالي بعد المتغيرات If MsgBox("هل تريد إرسال الملف المرفق إيميل أم لا؟", vbYesNo, "Send Email") = vbNo Then Exit Sub أما إذا كنت تريد أن تتم عملية التحويل إلى PDF أولاً ثم السؤال عن إرسال الملف من عدمه فيمكنك استخدام نفس السطر لكن في مكان آخر داخل الكود بهذا الشكل Sub PDF() Dim MyName As String MyName = "D:\Drivers Tarek\PDF\Drivers_" & Format(Date + 1, "dd-mm-yyyy") & ".pdf" Range("B5").Select Range("B5").Select Sheets(Array("حركة")).Select Sheets("حركة").Activate MyMsg = MsgBox("هل أنت متأكد من اتمام عمليه الحفظ", 4, "تنبيه") If MyMsg = 6 Then ChDir "D:\Drivers 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, "ahmed@yahoo.com", " بيان بحركة السائقين ", vbNewLine & "مع تحيات ..إدارة الشئون الادارية بحقول طارق", False Else MsgBox "لم يتم الحفظ" End If Sheets("حركة").Select ActiveWindow.SmallScroll Down:=-12 Range("B5").Select End Sub أرجو أن يكون في هذا السطر حل لمشكلتك إن شاء المولى عزوجل

أخي الكريم الوليد زين العابدين إذا كان الأمر كما فهمت فقم بتجربة الملف المرفق التالي لعله يكون المطلوب جرب المعادلة بهذا الشكل =IFERROR(IF(H2="","",SUMPRODUCT(($C$2:$C$9=H2)*(INDIRECT(ADDRESS(2,MATCH($K$2,$D$1:$G$1,0)+3)&":"&ADDRESS(SUMPRODUCT(MAX(ROW($A$1:$A$100)*($A$1:$A$100<>""))),MATCH($K$2,$D$1:$G$1,0)+3))=8))),"") لا تنسى أن تحدد المشاركة التي أدت المطلوب كأفضل إجابة Test This.rar

أخي علاء يبدو إن عندك حق والدليل على كلامك المشاركة رقم 8 أعتقد أخي الوليد أنك غيرت اتجاه الموضوع تماماً .. ولم توضح بالشكل الكافي المطلوب الجديد .. هل المطلوب عد الغياب A أم عد تكرار المهنة ؟ وهل التواريخ تكون مكتوبة بهذا الشكل 1 و 2 و 3 و 4 ؟ يرجى إرفاق بعض النتائج المتوقعة ... لتسهيل الوصول لحل

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

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

أخي الكريم الوليد يرجى اتباع التعليمات واختيار أفضل إجابة ليظهر الموضوع مجاب ومنتهي تقبل الله منا ومنكم

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

أخي الكريم الوليد في الخلية I2 قم بإدراج هذه المعادلة =SUMPRODUCT(--($C$2:$C$8=H2)) أو هذه المعادلة =COUNTIF($C$2:$C$8,H2) تقبل تحياتي