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

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

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

حيرتني معاك .. الملف مختلف ..لما دخلت على محرر الأكواد لاقيت إن الأسم البرمجي لأوراق العمل مختلفة إليك هذا التعديل وشوف الفرق بنفسك عشان تتعلم Sub Test() Dim arr Dim LR As Long Set arr = ورقة1.Range("D4,J4,P4,D15,J15,P15") LR = ورقة2.Cells(Rows.Count, 1).End(xlUp).Row If LR = 1 Then LR = LR Else LR = LR + 1 End If arr.Copy ورقة2.Range("A" & LR) End Sub

الأخ أبو آية أهلا بك عضوا جديدا في المنتدى يرجى إرفاق ملفك بعد ضغطه للعمل عليه

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

هسهل عليك وأقولك فاااااااااكر المكتبة ..الزاخرة بالشرح اكتب في البحث كلمة (قائمة) وشوف كدا هتلاقي حاجة ولا لا

المعادلات الموجودة في الملف المرفق الذي تفضل به أخي وحبيبي في الله بن عليه .. قد قدمتها لك في المشاركة رقم 2 ... وبعدين توهتنا بالفرنساوي !!! ممكن أعرف أستاذي بن عليه : هل المعادلات التي قدمتها كانت باللغة الفرنسية وتتحول الدوال إلى اللغة الإنجليزية في حالة تشغيلها على نسخة إنجليزية (مجرد فضول) تقبل تحياتي

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

هاهو الكود الذي يقوم بمسح البيانات من عمود المحقق ..دون مسح المعادلات .. بالنسبة للطلب الأخير اعفيني منه ..عشان أنا هنجت !!!!!!!!!!!!! Sub ClearConstants() Dim ICol As Long Application.ScreenUpdating = False For ICol = 5 To 122 Step 3 Sheet2.Range(Cells(6, ICol), Cells(51, ICol)).SpecialCells(xlCellTypeConstants).ClearContents Next ICol Application.ScreenUpdating = True End Sub

الطلبات الكثيرة ترهقني والله .. واحدة واحدة عليا ..أنا بقالي نص ساعة في الطلب الأول .. ومقلتش هل الكود ضبط معاك أم لا .. هل النتائج مضبوطة كما هي متوقعة !!؟؟

الأخ كريم أنا عندي النسخة إنجليزية وليست فرنسية عموما جرب الملف التالي الخلايا غير الفارغة.rar

أخي ياسر إنت رجل قديم ..يعني المفروض عنوان الموضوع يكون معبر عن الموضوع . متعملهاش تاني !!! إليك الكود التالي ... الكود سوف يستغرق حوالي 4 أو 5 دقائق نظرا لحجم البيانات الهائلة الموجودة بالملف .. وأنصحك ألا تستخدم التنسيقات الكثيرة التي تسبب كبر حجم الملف Sub SUMIFSVBA() Dim Cell As Range Dim LR As Long Dim rngNetValue As Range Dim rngNames As Range Dim rngGroup As Range Dim X As Double, Y Dim ICol As Long LR = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row Set rngNetValue = Sheet1.Range("F2:F" & LR) Set rngNames = Sheet1.Range("L2:L" & LR) Set rngGroup = Sheet1.Range("C2:C" & LR) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False On Error Resume Next For ICol = 5 To 122 Step 3 For Each Cell In Sheet2.Range("A6:A51") If IsNumeric(Cell) Then Y = Application.WorksheetFunction.Index(Rows(4), 1, Cell.Offset(, ICol - 1).Column - 1) X = Application.WorksheetFunction.SumIfs(rngNetValue, rngNames, Cell.Offset(, 1), rngGroup, Y) Cell.Offset(, ICol - 1).Value = X End If Next Cell Next ICol MsgBox "تم بحمد الله" Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub

الإكسيل عندك فرنساوي !!! استخدم كلمة NB.SI بدلاً من Countif واستخدم كلمة NBVAL بدلا من كلمة Counta

استخدم المعادلة التالية =COUNTIF(G7:G13,"=" &"?*")

ضع المعادلة التالية في الخلية E201 =COUNT(E10:E199) ثم كليك يمين Format Cells واختر التنسيق عام General ثم دبل كليك داخل الخلية التي بها معادلة ثم إنتر

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

ببساطة شديدة ..بدل علامة الفاصلة في المعادلة , بفاصلة منقوطة ; بس خلاص

=COUNTA(A3:A52) وهذه المعادلة لعد الغياب =COUNTIF(A3:A52,"غ") وهذه الدالة لعد الحاضرين بدون الغياب =COUNTIF(A3:A52,"<>" &"غ") بس خلاص

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

أخي الفاضل بالنسبة للخلايا المدمجة يكفي أن تشير إلى خلية واحدة ..قف في الخلية المدمجة لتعرف المرجع الخاص بها بالنسبة للمعادلة في الخلية C2 تكون كالتالي: ='مصطفى شاهين'!A1

شوف المسافات الموجود في الصيغة امسحها .. الدالة NBVAL هي البديل للدالة COUNTA

مليش في الفرنساوي بس ترجمتها على جوجل = NBVAL (BA8: Bb57)

بسم الله ما شاء الله هو دا الكلام يا كبير ..عايزين كل يوم من ده وإلا .. ولا بلاش وإلا .. مختار شاطر وبيسمع الكلام من غير وإلا تقبل تحياتي

الحمد لله أن تم الموضوع على خير ... ومتنساش تختار الإجابة كأفضل إجابة (دا لو عجبك الملف !!)

الأخ الفاضل طارق أو خليل أحمد (حيرتنا باسمك) أعتقد أن هناك موضوع مشابه تماما لهذا الموضوع وتمت الإجابة عليك مسبقاً .. وهذا يعتبر هدر لوقت الجميع ، فيرجى عدم تكرار هذا الأمر إليك الملف المرفق بعد القيام بالتعديل المناسب ليناسب عملك دا رابط الموضوع الآخر http://www.officena.net/ib/index.php?showtopic=59871 Tarhil Bill Data.rar