عبد الفتاح كيرة

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

أشكرك أخى الحبيب بن علية جهودك رائعة فى مساعدة الإخوة بارك الله لنا فى علمك وزادك منه

ما المطلوب يا أم باسل؟

تفضل لا حاجة لجدولين فقط غير فى قيمة العمود b If Target.Column = 2 Or Target.Column = 3 And Target.Row > 2 Then Call Macro1 End If ' Macro1 Macro ' ' Range("A2:B7").Select ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B3:B7"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").Sort .SetRange Range("A2:B7") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("B3").Select Exampel-kemas.rar

أرسل ملفا يساعدك الإخوة بإذن الله

ما شاء الله على الإبداعات مرحبا بأستاذنا عادل إن شاء الله فى قابل الأيام إن يسر الله و أعان هذا كود أكثر اختصار و يمكننا اعتباره كودا لمعرفة أول خلية مفلترة Sub Button4_Click() With ActiveSheet.AutoFilter.Range Set kemas = .Columns(2).Resize(.Rows.Count, 1).Offset(1, 0) _ .Cells.SpecialCells(xlCellTypeVisible) Range("d2") = kemas End With End Sub معادلة لمعرفة أول عنصر مصفى2.rar

السلام عليكم الشائع أن تكون الفلترة تبعا لقيمة خلية وليس العكس عموما هذا ما يحضرنى الآن استخدم هذا الكود Set kk = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible) kk.Copy Range("z1") Range("d2") = Range("aa2") Range("aa:z").ClearContents Set kk = Nothing الملف المرفق test -kemas.rar

جزاك الله خيرا على جهدك

استخدم معادلة الصفيف هذه =MID(MID(A2;MIN(SEARCH({0,1,2,3,4,5,6,7,8,9};A2&"0123456789"));255);1;6) اضغط مفاتيح Ctrl+Shift + Enter معادلة لاستخلاص الأرقام من خلية مختلطةkemas.rar

أو هذا لنفس الغرض

ربما انتفعت بهذا تعلمه و طبقه

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

شكرا على هذه الإبداعات و تلك الإفادات أرفق ملفا ليس به جديد سوى بعض الاختصار فى المعادلة الثانية =INDEX(K4:L13;MATCH(C2;K4:K13;0);2) kemas.rar

فكرتك أفضل أستاذ جمال شكرا للجميع

ممتاز جدا أول مرة أتعرف على next تعديل بسيط On Error Resume Next ActiveSheet.Next.Select مع الشكر

أشكرك أستاذ ياسر جزاك الله خيرا الأخ تاكو ممكن تستخدم أزرار الفلترة فيما طلبت

مع أنك لم تبين المطلوب لكن جرب الملف التالى حدد من الفئة وحدد المجموعة ثم اضغط زر " نفذ" مفاتيح المواد-kemas.rar

الأخ طاهر هذا رابط مباشر لتحميل البرنامج http://download.microsoft.com/download/9/2/2/9222d67f-7630-4f49-bd26-476b51517fc1/FileFormatConverters.exe

الأستاذ الشهابي ضع زرا فى صفحة الدين ضع فى الكود الخاص بهذا الزر - حدث النقر هذا الكود و هو نفس الكود الموجود ثم كرر ذلك بباقى الصفحات Dim ws As Worksheet For Each ws In Worksheets 'If ws.Name <> "1" And ws.Name <> Sheets("1").Range("b1").Value Then 'ws.Visible = False 'End If If ws.Name = Sheets("1").Range("b1").Value Then ws.Visible = True ws.Select End If Next ws المرفقات التنقل بين الشيتات تبع قيمة الخلية-kemas.rar

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

حل بالمعادلة =SUMPRODUCT((B1:E1=H6)*(B2:E6<25)) و مقابله بالكود Range("G6").FormulaR1C1 = _ "=SUMPRODUCT((R[-5]C[-5]:R[-5]C[-2]=R[0]C[1])*(R[-4]C[-5]:RC[-2]<25))"

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

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

الأخ كثير العطاء الأستاذ جمال شكر الله لك هذا النشاط فى مساعدة الأعضاء فى حين لم نعد نجد نحن الوقت الكافى هذا تدريب على استخدام الدالة الجديدة sumifs و هى مقاربة ل sumproduct تنوع فى الحلول كما يريد الأستاذ خبور =SUMIFS(D5:D18;C5:C18;">=" &F3;C5:C18;"<=" &G3)