يحيى حسين

السلام عليكم و رحمة الله أخي حاول قدر المستطاع تجنب استخدام دمج الخلايا لمى فيها من مشاكل على كل حال في صفحة شغل الدفاتر ضع المعادلة التالية d6 ثم اسحبها لليمين =INDEX(OFFSET($D$10,2,MATCH($E$4,$D$10:$AM$10,0)-1,9,3),MATCH($E$3,$B$12:$B$20,0),MATCH(D$5,$D$5:$F$5,0)) أما في صفحة تجميع الاقرارات ضع المعادلة التالية في الخلية i2 ثم اسحبها لليمين و لا تنسى انها معادلة صفيف =SUM(IF($B$10:$B$1000=$E$2,INDEX(OFFSET($C$7,3,MATCH($E$3,$C$7:$BV$7,0)-1,991,6),0,MATCH(I$1,$I$1:$L$1,0)))) معادلة الصفيف يجب إدخالها بالضغط على Ctrl+Shift+Enter دمت في حفظ الله

السلام عليكم و رحمة الله إضافة لحل الاخ ابو احمد جرب المعادلة التالية =IF(SUMPRODUCT(1/COUNTIF(B2:E2,B2:E2))=COUNT(B2:E2),0,1)

السلام عليكم و رحمة الله أخي شاهد هذا الرابط به فكرة تجميع من عدة ملفات http://www.officena.net/ib/index.php?showtopic=39563 دمت في حفظ الله

السلام عليكم جزاك الله كل خير اخي عبدالفتاح

السلام عليكم و رحمة الله شاهد الملف المرفق حساب عميل.rar حساب عميل.rar

السلام عليكم و رحمة الله شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=39524

السلام عليكم و رحمة الله انا معاك اخي الحبيب و لقد تم اضافة الموضوع على صفحتي على الفيس بوك لمشاركة أكبر عدد ممكن من الأعضاء http://www.facebook.com/pages/Excel4Us-Page/215466671797531 دمت في حفظ الله

. حياك الله اخي ابو احمد

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

السلام عليكم و رحمة الله في الخلية C11 ضع المعادلة التالية =IF(F11>C5,0,F11-C5) في الخلية D11 ضع المعادلة التالية =IF($F$11>SUM($C$5:D5),0,SUM($C$5:D5)-$F$11) في الخلية E11 ضع المعادلة التالية =IF($F$11>SUM($C$5:E5),0,SUM($C$5:E5)-$F$11-SUM($C$11:D11)) أرجو تجربتها و أعلمني بالنتيجة

السلام عليكم و رحمة الله أخي ابو احمد شرح جميل و جزاك الله كل خير

السلام عليكم و رحمة الله أخي أبو احمد موجودة و لكن يجب تفعيل ال Add-In الخاص ب Analysis ToolPak من خلال Tools Add-Ins ثم ضع علامة صح مقابل Analysis ToolPak و بعدها قم بتجربة الملف مرة أخرى

السلام عليكم و رحمة الله أخي جرب هذا الكود Sub FromAllSheets() Dim ws As Worksheet, Dws As Worksheet, LR As Long Set Dws = Sheets("Form") For Each ws In Sheets If ws.Name <> "Form" Then LR = Dws.Range("D" & Rows.Count).End(xlUp).Row + 1 If WorksheetFunction.CountA(ws.Range("b2:b" & LR)) <> 0 Then ws.Range("A2:C" & ws.Range("b" & Rows.Count).End(xlUp).Row).Copy Dws.Range("b" & LR).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False End If End If Next ws Application.CutCopyMode = False Dws.Range("B" & LR).Select End Sub

السلام عليكم و رحمة الله إضافة لحل الأخ ابو احمد جرب المعادلة التالية =MROUND(A1,5)

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

السلام عليكم و رحمة الله أي جرب هذا الكود Sub Excel4Us() 'Yahya Hussien Dim FName As String, wbs As Workbook, FileName As String, ArrFile() As Variant, i As Integer Dim Mainwb As Workbook, NewWb As Workbook Set Mainwb = ActiveWorkbook FName = ActiveWorkbook.Path FileName = Dir(FName & "\*.xls*") Do Until FileName = "" i = i + 1 ReDim Preserve ArrFile(1 To i) ArrFile(i) = FileName FileName = Dir Loop For i = LBound(ArrFile) To UBound(ArrFile) If ArrFile(i) <> Mainwb.Name Then Workbooks.Open FName & "\" & i Set NewWb = ActiveWorkbook NewWb.Sheets(1).Range("A1:b1").Copy Mainwb.Sheets(1).Range("a1:b1").PasteSpecial xlPasteValues, xlAdd, False, False NewWb.Close False End If Next i End Sub

السلام عليكم و رحمة الله حفظك الله اخي علي شكراً على كلماتك الطيبة

السلام عليكم و رحمة الله أخي جرب معادلة الصفيف هذه في الخلية R3 =AVERAGE(IF($F$10:$F$18=$O$3,IF($J$10:$J$18>=$P$3,IF($J$10:$J$18<=$Q$3,G$10:G$18)))) و لا تنسى أن تضغط Ctrl+Shift+Enter ثم اسحبها لليمين مع ملاحظة ان متسوط السعر للفترة تم احتسابه من العامود J و الذي يمثل First Date دمت في حفظ الله

السلام عليكم و رحمة الله جرب هذا الكود اخي Sub AddTotalE() Dim LR As Long, i As Integer LR = Range("b" & Rows.Count).End(xlUp).Row With Cells(LR + 2, 2) .Value = "Total" For i = 1 To 3 .Offset(, i).Value = WorksheetFunction.Sum(Range(Cells(2, .Offset(, i).Column), Cells(LR, .Offset(, i).Column))) Next i End With End Sub

السلام عليكم و رحمة الله قم بإضافة السطر التالي Dws.Range("b2:d100").ClearContents

السلام عليكم و رحمة الله أخي جرب هذا الكود لتجميع الأوراق Sub FromAllSheets() Dim ws As Worksheet, Dws As Worksheet, LR As Long Set Dws = Sheets("Form") For Each ws In Sheets If ws.Name <> "Form" Then LR = Dws.Range("D" & Rows.Count).End(xlUp).Row + 1 ws.Range("A2:C" & ws.Range("b" & Rows.Count).End(xlUp).Row).Copy Dws.Range("b" & LR).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False End If Next ws Application.CutCopyMode = False Dws.Range("B" & LR).Select End Sub ثم قم بعملية تسجيل ماكرو لعملية فرز مخصص (لان الفرز المخصص سيعتمد على ترتيب البيانات في جهازك الشخصي ) دمت في حفظ الله

السلام عليكم و رحمة الله إضافة لحل الأخ ابو احمد يمكنك استخدام المعادلة التالية =EOMONTH(A2,0) و هي تعمل على الاكسيل 2007/2010 اما اذا كنت تعامل مع الاكسيل 2003 فيجب تثبيت Analysis Tolpak

السلام عليكم و رحمة الله حل شبيه بحل الاخ معتصم مع اختلاف بسيط في الخلية c2 ضع المعالدلة التالية =LEFT(B2,FIND(" ",B2)) في الخلية d2 ضع المعالدلة التالية =MID(B2,LEN(C2)+1,255)

السلام عليكم أخي الحبيب على نفس ملف الاخ محمد صالح في الخلية I10 جرب معادلة الصفيف التالية : =SUM(IF($D$4:$D$25=I$9,IF($E$4:$E$25=$G10,1))) معادلات الصفيف يبج الضغظ على Ctrl+Shift+Enter

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