يحيى حسين

السلام عليكم و رحمة الله أخي طريقة ترتيبك للداتا في الصفحة الثانية غريبة على كل حال في المدى من B2:B20 ضع المعادلة التالية =VLOOKUP(A2,Sheet1!$A$2:$E$20,MATCH(Sheet2!B$1,Sheet1!$A$1:$E$1,0),0) و في المدى من B22:B40 ضع المعادالة التالية =VLOOKUP(A22,Sheet1!$A$2:$E$20,MATCH(Sheet2!B$21,Sheet1!$A$1:$E$1,0),0) و في المدى B42:B60 ضع المعادلة التالية =VLOOKUP(A42,Sheet1!$A$2:$E$20,MATCH(Sheet2!B$41,Sheet1!$A$1:$E$1,0),0) و في المدى الأخير B62:B80 ضع المعادلة التالية =VLOOKUP(A62,Sheet1!$A$2:$E$20,MATCH(Sheet2!B$61,Sheet1!$A$1:$E$1,0),0) دمتم في حفظ الله

السلام عليكم copy then Paste Special as value

السلام عليكم و رحمةالله شاهد هذا الملف اخي Yahya Hussien.rar

السلام عليكم و رحمة الله استخدم اخي النسخ اللصق الخاص كقيم

السلام عليكم و رحمة الله و بركاته أخي خالد أول الغي الارتباط التشعبي الموجود على الخلية N4 ثم ضع المعادلة التالية =HYPERLINK("#"&LOOKUP(L4,A2:A10,B2:B10),"اضغط هنا للتوجه الى الخلية المعنية") دمت في حفظ الله

السلام عليكم و رحمة الله أخي أبو فيصل كما ذكرت فإن الدالة السابقة لا تعطي إى من القيم النصية و لحل ذلك جرب المعادلة التالية =INDEX(D:D,MATCH(REPT("z",255),D:D)) دمت في حفظ الله

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

السلام عليكم و رحمة الله اخي ضع هذه المعادلة في الخلية E4 =T(INDEX(B:B,MIN(IF(COUNTIF($E$3:E3,$B$4:$B$101),2^15,ROW($B$4:$B$101))))) و هي معادلة صفيف يجب الضغط على Ctrl+Shift+Enter ثم اسحبها للأسفل

السلام عليكم و رحمة الله و بركاته و هذا حل آخر بالمعادلات =SMALL(IF(COUNTIF($A$1:$A$6,ROW(INDIRECT(MIN($A$1:$A$6)&":"&MAX($A$1:$A$6))))=0,ROW(INDIRECT(MIN($A$1:$A$6)&":"&MAX($A$1:$A$6)))),ROW(1:1)) و لا تنسى انها معادلة صفيف يجب الضغط على Ctrl+Shift+Enter

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

السلام عليكم و رحمة الله و بركاته أخي في الخلية g6 في صفحة التقرير ضع المعادلة التالية =SUM(IF(Sheet1!$A$5:$A$22<Sheet2!$B$2,IF(Sheet1!$B$5:$B$22=Sheet2!$B$1,Sheet1!$E$5:$E$22)))-SUM(IF(Sheet1!$A$5:$A$22<Sheet2!$B$2,IF(Sheet1!$B$5:$B$22=Sheet2!$B$1,Sheet1!$F$5:$F$22))) و هي معادلة صفيف يجب الضغط على Ctrl+Shift+Enter أما للحصوول على قائمة غير مكرره باسماء الحسابات ضضع في الخلية k2 في الصفحة الأولى المعادلة التالية =T(INDEX(B:B,MIN(IF(COUNTIF($K$1:K1,$B$5:$B$22),2^15,ROW($B$5:$B$22))))) و هي معادلة صفيف يجب الضغط على Ctrl+Shift+Enter ثم أسحبها للأسفل و قم بتعريف مدى يقرأ من هذه القائمة دمت في حفظ الله

السلام عليكم و رحمة الله أخي الموسطي لتحويل اي تاريخ الى هجري فقط قم بإضافة الرمز B2 قبل التاريخ على فرض dd/mm/yyyy تصبح b2dd/mm/yyyy دمت في حفظ الله

السلام عليكم و رحمة الله و بركاته أخي جرب الكود التالي على فرض أن الأرقام التي تبحث عن تسلسلها المفقود موجودة في العمود A Sub Excel4Us() Dim LR As Long, MyRng As Range, MinV As Long, MaxV As Long, r As Long, i As Long LR = Range("a" & Rows.Count).End(xlUp).Row Set MyRng = Range("a1:a" & LR) MinV = Application.WorksheetFunction.Min(MyRng) MaxV = Application.WorksheetFunction.Max(MyRng) For r = MinV To MaxV For i = 1 To LR If r = Range("a" & i).Value Then GoTo 1 End If Next i y = y + 1 Range("b" & y).Value = r 1 Next r End Sub دمت في حفظ الله

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

السلام عليكم و رحمة الله و بركته أخي جزاك الله كل خير على عملك و نسأل الله أن يكون جميع هؤلاء الأخوة الصغار من حفاظ كتاب الله عز و جل و ان يكون لنا نصيب من دعائهم اخي المعادلة التي استخدمتها كبيرة و معقدة و احتمال الخطأ بها عالي جدا جرب ضع هذه المعادلة في الخلية D2 =INDEX(الفهرس!$A$2:$A$115,MATCH(C2,الفهرس!$B$2:$B$115,0)) دمتم في حفظ الله

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

السلام عليكم و رحمة الله و بركاته أخي شاهد الملف المرفق Formula To Value .rar

السلام عليكم و رحمة الله أخي شاهد هذا الرابط فعليه شرح الطريقة لجميع النسخ 2003 و 2007 و 2010 http://excel4us.com/vb/showthread.php?t=83 دمت في حفظ الله

السلام عليكم و رحمة الله أخي جرب هذا الكود فكرته جميلة و رائعة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range Static Cell As Range Static TheFormula As String Set Rng = Range("A1:A20") If Not Application.Intersect(Target, Rng) Is Nothing Then If Not Cell Is Nothing Then Cell.Formula = TheFormula End If Set Cell = ActiveCell With Cell TheFormula = .Formula .Value = .Value End With Else With Cell .Formula = TheFormula End With End If End Sub

السلام عليكم و رحمة الله اخي اضف الكود و الملف حتى تتضح الصورة

السلام عليكم و رحمة الله اخي لعمل طلبك من تنسيق الخلايا في المخصص, ضع الكود التالي : [$-10A0000]mmmm

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

السلام عليكم و رحمة الله أخي لو فرضنا ان عناصر القائمة موجودة في المدى A1:A5 اي اضافة جديدة ستتم في الخلية A6 و هكذا في حال إضافة اي بيانات جديدة اتبع الخطوات التالية لتعريف مدى ديناميكي : 1) من القامئة معادلات Formula اختر Define Name 2) ضع إسم ليكون فرضاُ MyList 3) في خانية الـ refers To ضع المعادلة التالية : =OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A)) و هكذا سيتكون لدينا مدى ديناميكي اسمه MyList في القائمة المنسدلة عندما تختار القائمة اضغط F3 سيظهر اسماء جميع النطاقات المعرفة اختر منها MyList ثم اوكي دمتم في حفظ الله

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

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