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

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

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

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

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

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

قم بنسخ المعادلة وبعد وضعها اضغط على Ctrl + Shift +Enter لأنها معادلة صفيف

وعليكم السلام أخي الكريم قم بإرفاق ملف لتجد استجابة أفضل للموضوع ، مع وضع بعض النتائج المتوقعة تقبل تحياتي

وجزيت خيراً أخي العزيز بمثل ما دعوت لي والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

وعليكم السلام أخي الكريم يرجى أن يكون الموضوع لطلب واحد فقط لكي تجد استجابة أفضل تفضل الكود التالي عله يفي بالغرض إن شاء الله Sub TotalsInAllSheets() Dim ws As Worksheet Dim lr As Long Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets lr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 2 With ws .Rows(lr).Clear .Range("H" & lr).Value = "Total :" .Range("I" & lr & ":M" & lr).Formula = "=SUBTOTAL(9,I8:I" & lr - 2 & ")" With .Range("H" & lr & ":M" & lr) .Font.Size = 10 .Font.Bold = True .Font.Color = vbRed .NumberFormat = "#,##0.00_);-#,##0.00" End With .Range("K" & lr).Clear End With Next ws Application.ScreenUpdating = True End Sub

السلام عليكم جرب الكود التالي .. النتائج ستظهر في ورقة 2 Sub DataBetweenTwoDatesUsingArrays() Dim ws As Worksheet Dim sh As Worksheet Dim startDate As Date Dim endDate As Date Dim arr As Variant Dim temp As Variant Dim i As Long Dim p As Long Set ws = Sheets("ورقة1"): Set sh = Sheets("ورقة2") arr = ws.Range("C16:H" & ws.Cells(Rows.Count, "C").End(xlUp).Row).Value startDate = ws.Range("J3").Value2: endDate = ws.Range("L3").Value2 ReDim temp(1 To UBound(arr, 1), 1 To 2) For i = LBound(arr, 1) To UBound(arr, 1) If arr(i, 1) >= startDate And arr(i, 1) <= endDate Then p = p + 1 temp(p, 1) = CLng(arr(i, 1)) temp(p, 2) = arr(i, 6) End If Next i With sh .Range("A1").Resize(, 2).Value = Array("التاريخ", "العداد") .Range("A2").Resize(p, UBound(temp, 2)).Value = temp .Columns.AutoFit End With End Sub

بارك الله فيك ومشكور على دعائك الطيب والحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

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

سأحاول الإطلاع على المرفق قريباً حيث أنني غير متاح حالياً ..

وجزيت خيراً أخي العزيز أبو حنين والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

بارك الله فيك أخي الكريم زياد والحمد لله أن تم المطلوب على خير

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

إذا كانت النتائج في سطر طويل فسيكون من الصعب الطباعة بالفعل .. ولا أعلم كيف لي أن أساعدك بهذه النقطة؟ يمكنك فقط استخدام التبويب View ثم Page Break Preview وتقوم بتحديد نطاق الطباعة بشكل يدوي ، ولكن هذا سيؤثر بالسلب على الشكل العام للورقة المطبوعة .. هذا والله أعلم

الأخ الكريم إبراهيم يوجد احتمالات كثيرة للمطلوب .. المثال بسيط ولذا يمكن تنفيذه ولكن سيكون معقد لو زادات البيانات .... جرب الكود في ورقة العمل المسماة ورقة 2 .. انقر على زر الأمر وسينتج لك في أول ثلاثة أعمدة الأعداد المتوقعة .. والثلاثة الأعمدة الأخرى حاصل ضرب الأرقام في 5 و 10 و 15 ، والعمود الأخير للمجموع قمت بعمل تنسيق شرطي لعمود المجموع إذا كانت القيمة مساوية لـ 100 .. قم بتنفيذ الكود ثم قف في أول صف ثم فلتر العمود G على شرط الرقم 100 لتظهر لك الاحتمالات الممكنة تقبل تحياتي Possible Combinations.rar

عدل السطر الأول ليكون بهذا الشكل If Feuil1.Range("D19").Value > Feuil2.Cells(Rows.Count, 1).End(xlUp).Row Then Feuil1.Range("D19").Value = "": MsgBox "Last Value", vbExclamation: Exit Sub

وعليكم السلام إذا كان الشرط لشهر 7 فقط كما فهمت من موضوعك فجرب التالي ... Dim mMonth As Integer mMonth = IIf(Month(Date) = 7, 6, Month(Date)) myName = "D:\بدلات المقاولين\بدلات الخفراء والعمالة الغير فنية_" & Format(mMonth, "00") & "-" & Format(Date, "yyyy") & ".pdf" أما إذا كنت تقصد أن يتم التعامل مع الشهر السابق أياً كان الشهر فجرب التالي Dim mMonth As Integer mMonth = Month(Date) - 1 myName = "D:\بدلات المقاولين\بدلات الخفراء والعمالة الغير فنية_" & Format(mMonth, "00") & "-" & Format(Date, "yyyy") & ".pdf"

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

ليس لدي فكرة عن السبب في هذا الخلل .. لعل أحد الأخوة يفيدك في هذا الموضوع حيث لم أجربه من قبل

كل عام وأنت بخير أستاذي ومعلمي وأخي الحبيب أحمد يعقوب تقبل وافر تقديري واحترامي

الموضوع معقد جداً لأن عدد الاحتمالات كبيرة جداً جداً .. وقد لا توجد نتيجة في النهاية .. هلا أرفقت النتائج المتوقعة ..... حيث جربت احتمالات كثيرة بشكل يدوي ولم أجد النتيجة المرجوة

لربما غيرت اسم ورقة عمل في ملف الارتباط (مجرد تخمين) ..