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

أخي الكريم محمد العنوان مخالف وغير معبر عن المضمون لا أملك الوقت لكي أطلع على الملف لكن من خلال شرح الموضوع يشبه الشرح في الفيديو التالي ..

أخي الكريم ضع الكود بين أقواس الكود ليظهر بشكل منضبط جرب التالي .. ولا يجوز تسمية أكثر من ورقة بنفس الاسم Sub Test() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("معاشات استثنائية ") ws.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = "كشف " & Format(Time, "hhmmss") ws.Activate ws.Range("F12:H36").ClearContents MsgBox "Done ...", 64 End Sub

لديك حل بالأكواد .. وهذا ما تريده ..

السلام عليكم جرب المعادلة التالية بهذا الشكل =INDEX($E$2:$E$26,RANDBETWEEN(2,26))

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

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

وعليكم السلام أخي الكريم أبو قاسم جرب المعادلة التالية وإذا لم تعطي نتائج صحيحة يرجى إرفاق بعض النتائج المتوقعة .. وكيفية حساب المتوسط المطلوب =AVERAGEIF($A$2:$A$4000,I5,$E$2:$E$4000)

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

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

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

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

أخي الكريم بيومي أهلاً بك في المنتدى في الكود الذي لديك قم بإضافة سطر قبل الكود لإلغاء الحماية وبعد انتهاء عمل الكود أضف سطر لإعادة الحماية مرة أخرى Activesheet.Unprotect "123" Activesheet.Protect "123"

وعليكم السلام في الخلية I12 ضعي المعادلة التالية =IF(I11>64,64,"")

ربما لو وضعت عناوين أوراق العمل في النطاق A9:A11 لكان الموضوع أيسر ...

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

وهذه معادلة أخرى تفي بالغرض إن شاء الله =SUM(OFFSET($J$4,0,0,COUNTIF($J$4:$J$100,">0")-1,1))

وعليكم السلام جرب الكود التالي عله يفي بالغرض Sub Test() Dim ws As Worksheet Dim lr As Long Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets(Array("1", "2", "3", "4", "5")) lr = LastRowNonZero(ws.Name, "J") - 1 ws.Range("L2").Value = Application.WorksheetFunction.Sum(ws.Range("J4:J" & lr)) Next ws Application.ScreenUpdating = True End Sub Public Function LastRowNonZero(ShtName As String, ColumnLetter As String) As Long Dim cel As Range Set cel = Sheets(ShtName).Cells(Rows.Count, ColumnLetter).End(xlUp) Do While cel.Value <= 0 Or Not IsNumeric(cel) Set cel = cel.Offset(-1) Loop LastRowNonZero = cel.Row End Function

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

جرب المرفق .. لعله يفي بالغرض Classeur1.rar

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

تأكد من المسار الصحيح بالكامل مع اسم الملف بالامتداد ..

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

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

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

أخي الكريم صلاح جرب الكود التالي ويمكن وضعه في حدث فتح المصنف .. أو كما ترغب فيما بعد Sub OpenClosedWBs() Dim wbk As Workbook Dim ws As Worksheet Dim strInput As String Dim i As Long Dim p As Long Dim lr As Long Application.ScreenUpdating = False On Error Resume Next Set ws = ThisWorkbook.Sheets("Sheet1") For i = 2 To ws.Cells(Rows.Count, "H").End(xlUp).Row p = InStrRev(ws.Range("H" & i), "\") + 1 strInput = Mid(ws.Range("H" & i), p) Set wbk = Workbooks(strInput) If wbk Is Nothing Then Set wbk = Workbooks.Open(Filename:=ws.Range("H" & i)) If wbk Is Nothing Then MsgBox ws.Range("H" & i) & " Not Found!", vbCritical Exit Sub End If End If With wbk.Sheets(1) Range("B" & .Cells(Rows.Count, 2).End(xlUp).Row + 1).Activate End With Set wbk = Nothing Next i On Error GoTo 0 Application.ScreenUpdating = True End Sub