يحيى حسين

السلام عليكم و رحمة الله فكرة جميلة و هي سهلة و أنا أرشحك أنت لتجهيز هذه المحفظة و سسنتظرها منك

السلام عليكم و رحمة الله بلاد العرب اوطاني و كل العرب اخواني انا في تونس الخضرا اعيش بين اشطاني و في السوداني السمرا احيا بيـــــــن انيلاي و في مكة المكرمة اقيم شعائر ادياني و في بلاد الشام ارض انبيــــائي و في مصر المحروسة انعم بالأمــــاني بلد الامان و خير الأجناد إخواني هذا الموضوع لمعرفة الإمتداد الجغرافي للأخوة الأعضاء في هذا الموقع الحبيب؟ و لنتذكر دائماً قاعدة مهمة نحن أخوة في الدين قبل الإنتماء لأي دولة, و عقيدة الولاء و البراء توجب علينا تقديم الدين على أي شيء آخر . دمتم في حفظ الله

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

السلام عليكم هذا كود اخر بكرة اخرى Sub Excel4us() Dim c As Range, LR As Long, lc As Integer LR = Range("A" & Rows.Count).End(xlUp).Row lc = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To LR If WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, lc))) <> lc Then Cells(i, 1).EntireRow.Delete Next i End Sub

السلام عليكم و رحمة الله بعد اذن الاخ الحبيب طارق ما هو الهدف من استخدام الدالة Sumproduct مع sumif =SUMPRODUCT((SUMIF('E:\[بدايه المشروع.xlsx]كشف حساب عميل'!$F$7:$F$37,"*560*",'E:\[بدايه المشروع.xlsx]كشف حساب عميل'!$E$7:$E$37))) هي هل الهدف منها التعامل مع الملفات المغلقة لاني اعتقد ان استخدام SUMPRODUCT لوحدها يكفي

السلام عليكم و رحمة الله أخي طلبك غير واضح و لكن جرب الكود التالي Sub Excel4us() Dim c As Range, LR As Long, lc As Integer LR = Range("A" & Rows.Count).End(xlUp).Row lc = Cells(1, Columns.Count).End(xlToLeft).Column For Each c In Range(Cells(1, 1), Cells(LR, lc)) If c.Value = "" Then c.EntireRow.Delete Next c End Sub

السلام عليكم و رحمة الله اخي طلبك غير واضح هل تريد ترحيل الاسطر B7:D7 الى اسم الصفحة الموجود في الخلية J7 يا ريت توضحلي العبارة دي هل يتم الترحيل الى نفس الصفحة ام ماذا

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

السلام عليكم جرب اضافة هذا السطر للكود Selection.AutoFilter Field:=1, Criteria1:="<>0"

السلام عليكم و رحمة الله هذه مداخلة بسيطة بعد إذن الأخوة جزاهم الله كل خير =SUMPRODUCT(--($C$3:$C$12="أنثى"),--((($D$3:$D$12<50)+($D$3:$D$12="غ"))>0),--($B$3:$B$12=1))

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

السلام عليكم و رحمة الله اخي فضل عند انتهاء عمل الكود تكون النتيجة - عربى - رياضة - كمبيوتر - علوم لاحظ وجود - زيادة و وظيفة السطر الذ ذكرته هي الغاء هذه الزيادة دمت في حفظ الله

السلام عليكم و رحمة الله أخي رايت كليك على اسم الصفحة و اختر view code و ثم الصق الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long, c As Range LR = Range("A" & Rows.Count).End(xlUp).Row If Not Intersect(Target, Range("b4:e" & LR)) Is Nothing Then Range("F4:F" & LR).ClearContents For Each c In Range("a4:A" & LR) For i = 1 To 4 Select Case c.Offset(, i).Value Case Is < Cells(3, c.Offset(, i).Column) c.Offset(, 5).Value = c.Offset(, 5).Value & " - " & Cells(1, c.Offset(, i).Column) Case Is = "غ" c.Offset(, 5).Value = c.Offset(, 5).Value & " - " & Cells(1, c.Offset(, i).Column) End Select Next i c.Offset(, 5).Value = Mid(c.Offset(, 5).Value, 4, 255) Next c End If End Sub

السلام عليكم و رحمة الله جرب هذا الكود Sub Excel4Us() Dim LR As Long, c As Range LR = Range("A" & Rows.Count).End(xlUp).Row For Each c In Range("a4:A" & LR) For i = 1 To 4 Select Case c.Offset(, i).Value Case Is < Cells(3, c.Offset(, i).Column) c.Offset(, 5).Value = c.Offset(, 5).Value & " - " & Cells(1, c.Offset(, i).Column) Case Is = "غ" c.Offset(, 5).Value = c.Offset(, 5).Value & " - " & Cells(1, c.Offset(, i).Column) End Select Next i c.Offset(, 5).Value = Mid(c.Offset(, 5).Value, 4, 255) Next c End Sub

السلام عليكم و رحمة الله اخي المعادلة اعلاه لا تحتاج الى ctrl+shift+enter و لكن يجب مراعاة الفواصل فالجهاز الذي اعمل عليه يستخدم الفاصلة العادية في حين أن جهازك ربما يستخدم الفاصلة المنقوطة جرب هذه المعادلة فلقد قمت بتحويل الفواصل الى فواصل منقوطة =SUMPRODUCT(SUBTOTAL(9;OFFSET(C$6:C$17;ROW(C$6:C$17)-ROW(C$6);;1));--(C$6:C$17<>0))/SUMPRODUCT(SUBTOTAL(3;OFFSET(C$6:C$17;ROW(C$6:C$17)-ROW(C$6);;1));--(C$6:C$17<>0))

السلام عليكم و رحمة الله أخي في الخلية C4 ضع المعادلة التالية =SUMPRODUCT(SUBTOTAL(9,OFFSET(C$6:C$17,ROW(C$6:C$17)-ROW(C$6),,1)),--(C$6:C$17<>0))/SUMPRODUCT(SUBTOTAL(3,OFFSET(C$6:C$17,ROW(C$6:C$17)-ROW(C$6),,1)),--(C$6:C$17<>0)) ثم اسحبها لليمين

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

ما دام هذه الدالة موجود لديك من قبل لماذا لم تطلب التعديل فيها ووفرت الوقت والجهد للاساتذة الكرام !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! السلام عليكم أخي الزير للتوضيح الأخ السائل وضع الموضع في المنتديين هنا و في موقعي http://excel4us.com/vb/showthread.php?t=2227 و قمت بإجابته في موقعي و بسبب وجود خطأ في ملف الأخ الذي رفعه على موقعي ضن ان هناك خطأ في المعادلة و هو لم يكن خطأ انما كان سطر مخفي في ملفه لذلك سحب الاخ المعادلة الي هنا و طلب المساعدة فيها أرجو ان تكون قد إتضحت الصورة دمتم في حفظ الله

السلام عليكم و رحمة الله جرب هذا الكود أخي Sub Excel4Us() Dim LR As Long, c As Range LR = Range("A" & Rows.Count).End(xlUp).Row For Each c In Range("d1:d" & LR) c.Value = c.Offset(, -3) & " " & c.Offset(, -2) & " " & c.Offset(, -1) Next c End Sub

السلام عليكم و رحمة الله إضافة لحلول الأخوة جزاهم الله كل خير شاهد هذا الرابط فيه شرح لفكرة مشابهه http://excel4us.com/blog/?p=161

السلام عليكم و رحمة الله أخي جرب الدالة التالية =INDEX($G$4:$G$13,MATCH(0,COUNTIF($G$4:$G$12,"<"&$G$4:$G$12)-SUM(COUNTIF($G$4:$G$12,$F$3:F4)),0)) و هي معادلة صفيف يجب الضغط على ctrl+Shift+Enter

السلام عليكم و رحمة الله أخي هذه من مشاكل الاكسيل التي يصعب التغلب عليها مشكلة الحماية في الاكسيل ضعيفة و يمكن كسرها و لكن في اعتقادي ان استخدام كلمات السر الصعبة تساعد في صعوبة فك كلمة السر و الافضل استخدام رموز بدل الكلمات و الأرقام مثل !@#$%^&* تبقى أفضل من استخدام 1234567 و على هذا المنوال دمت في حفظ الله

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

أخي أبو أحمد و لزيادة الفائدة قت بعملها بتدوينة مستقلة تحت عنوان شرح آلية إستخدام SUMPRODUCT(1/COUNTIF – الجزء الأول و البقية ستأتي إن شاء الله

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