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

بارك الله فيك أخي الفاضل عبد الباسط لو أمكن ترفق ملف فيه تطبيق عملي لكلامك ليستفيد الجميع ، ويا حبذا لو أرفقت الدالة Rank وحدها مبيناً القصور الذي يحدث في نتائجها ، وكذلك العلاج الذي توصلت إليه مبيناً القصور الذي تم التغلب عليه والأفضل أن يكون في موضوع مستقل ليستفيد الجميع تقبل تحياتي

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

وعليكم السلام أخي الكريم ابو قاسم الملف مضغوط ويجب فك الضغط أولاً .. بعد فك الضغط سيظهر معك ملف إكسيل عموماً إليك الملف مضغوط ولكن بتنسيق أوفيس 2003 VBA Time Saver Kit.rar

تصدق كنت خايف من السؤال ده .. إنت عملت اللي عليك .. وربنا يجازيك كل خير .. ولكن يبدو أن هذا فخ .. لم يكن الملف إلا ملف إكسيل عبارة عن فهرس للموضوعات الموجودة على الموقع مع بعض الأكواد الموجودة في محرر الأكواد ليس إلا اعتقدت أنه برنامج منفصل يمكن أن يكون نواة لمكتبة كبيرة عموماً حصل خير وقدر الله وما شاء فعل .. لازم الواحد يتعلم ويسمع كلام إخوانه لما قالوا بلاااااااااااااااااش موضوع الشرا ده (بس نعمل ايه في حب الفضول) جزاكم الله خيراً أخي الغالي أسامة ولا حرمنا الله منك .. وجعل عملك في ميزان حسناتك يوم القيامة وها هو الملف لمن أراد أن يطلع عليه (هنتقم منهم شر انتقام ) VBA Time Saver Kit.rar

أخي الكريم سيف الدين يرجى دائماً عدم المشاركة بطلبات في الموضوعات في المشاركات الفرعية ..لأنه عادةً لا يلتفت إليها الكثير من الأعضاء بخلاف الموضوعات الجديدة تمت الإجابة على سؤالك في موضوعك .. تقبل تحياتي

أخي الكريم سيف الدين هلا أرفقت ملف به بعض الأمثلة والنتائج المتوقعة .. أكثر من الأمثلة لتتضح المسألة ويستطيع الأخوة تقديم المساعدة المطلوبة على حسب ما فهمت من الأمثلة المقدمة جرب المعادلة التالية علها تفي بالغرض =MROUND(A2,5) تقبل تحياتي

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

الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير .. تقبل تحياتي

أخي الكريم أبو عبد الإله جزيت خيراً بمثل ما دعوت لنا ..بارك الله فيك بالنسبة لطلبك فقد قمت به بالفعل في الكود في هذا السطر LR = WS.Cells(31, 3).End(xlUp).Row حيث الرقم 31 هو رقم السطر المظلل بالأسود .. وهذا طلبك .. يمكنك استبدال الرقم 31 بكلمة Rows.Count ليتم احتساب آخر صف في العمود الثالث بالكامل إذا لم يكن هذا مقصودك فبرجاء التوضيح بالصور أو بالأمثلة أو بإرفاق شكل النتائج المتوقعة تقبل تحياتي

أخي الكريم أبو عبد الإله جرب الكود التالي عله يفي بالغرض Sub TransferFromSheets() Dim WS As Worksheet, SH As Worksheet, LR As Long, Cell As Range, lRow As Long, I As Long Set SH = Sheets("خلاصة") lRow = 5 Application.ScreenUpdating = False Application.Calculation = xlManual With SH.Range("B4").CurrentRegion .Offset(1).ClearContents: .Offset(1).Interior.Color = xlNone: .Borders.LineStyle = xlNone .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter End With For Each WS In ThisWorkbook.Worksheets If WS.Name <> SH.Name And WS.Name <> "الدروس" And WS.Name <> "العلامات" And WS.Name <> "ورقة2" Then LR = WS.Cells(31, 3).End(xlUp).Row If LR < 11 Then GoTo Skipper For Each Cell In WS.Range("E11:E" & LR) If Not IsEmpty(Cell) And IsDate(Cell) Then SH.Cells(lRow, "C").Resize(1, 4).Value = Cell.Offset(, -2).Resize(1, 4).Value lRow = lRow + 1 End If Next Cell End If Skipper: Next WS Call RemoveDuplicateRows For I = 5 To SH.Cells(Rows.Count, "C").End(xlUp).Row SH.Cells(I, "B").Value = I - 4 Next I With SH.Range("B5:F" & SH.Cells(Rows.Count, "C").End(xlUp).Row + 1) .EntireRow.RowHeight = 19: .ReadingOrder = xlRTL: .Font.Bold = True .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter End With With SH.Range("B" & SH.Cells(Rows.Count, "B").End(xlUp).Row + 1) .Resize(1, 4).HorizontalAlignment = xlCenterAcrossSelection .Resize(1, 4).Interior.Color = 5287936 .Value = "مجموع المشاركين" .Offset(, 4).Formula = "=COUNTA(F5:F" & .Row - 1 & ")" End With With SH.Range("B4").CurrentRegion .Borders.Weight = xlThin: .BorderAround Weight:=xlThin: .Range("A1").Select End With Application.ScreenUpdating = False Application.Calculation = xlAutomatic End Sub Sub RemoveDuplicateRows() Dim Rng As Range With Sheets("خلاصة") Set Rng = .Range("C4:F" & .Cells(Rows.Count, "C").End(xlUp).Row) Rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes End With End Sub تقبل تحياتي

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

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

أخي الكريم أسامة بارك الله فيك وجزاك الله كل خير على المبادرة الطيبة صراحة مش عايز أغرم حد ولا حتى ربع جنيه .. بس لو الأمور ميسرة بالنسبة لك ومفيش مشكلة بالنسبة للـ 15 دولار ..يبقا مفيش مشكلة توكل على الله ونجرب البرنامج هو حب فضول لشيء مجربتوش قبل كدا ومعرفش مدى الاستفادة الكاملة منه غير لما نجربه .. بالنسبة لعملية الشراء أنا أجهل التعامل بتلك الأمور لأنني لم أجربها من قبل ..دا رابط البرنامج يبدو أنني نسيت أن أضعه في أول الموضوع http://analystcave.com/downloads/vba-time-saver-kit/ لو الموضوع مكلف ومرهق بالنسبة لك .. لا يكلف الله نفساً إلا وسعها .. الموضوع مجرد فضول لشيء جديد قد يكون مفيد لإخواننا بالمنتدى تقبل وافر تقديري واحترامي

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

أخي وحبيبي في الله محمد صالح أين أنت معلمي ..؟ اشتقنا لوجودك فيما بيننا .. مفتقدينك والله ومفتقدين حلولك الجميلة والرائعة لعل غيابك عنا خير تقبل وافر تقديري واحترامي

أخي الحبيب سليم كودك هو الأفضل بالنسبة للطلب الكود الذي أرفقته ينفع في حالات معينة .. لكن قد يسبب مشاكل إذا كانت الخلايا الفارغة وسط خلايا بها بيانات .. لم أفهم مقصدك بقولك كيف لم تمسح الصفوف والأعمدة الفارغة من كل الورقة؟

النت فريم ورك متنصب على جهازي ... !!

تسلم يا أخي الغالي ياسر العربي على هذه الهدايا الجميلة اللهم أكثر من هداياه حملت الملف الأخير ولما جيت أفتحه لاقيت الرسالة دي (عندك خلفية أكيد بمشاكل زي دي) ..جربت أشغل الملف كمسئول نفس القصة أنا شغال على ويندوز 10 آخر تحديث وأوفيس 2013 64 بت تقبل تحياتي

أخي الكريم يرجى تغيير اسم الظهور للغة العربية ليعبر عن شخصكم الكريم لمعرفة التفاصيل قم بالإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى أخي الحبيب سليم بارك الله فيك وجزاك الله كل خير .. كود أكثر من رائع وسريع جداً جرب الكود التالي (هو غريب شوية لكن يؤدي الغرض !! الغرابة من إن السطر مكرر مرتين ..افتكاسات ياسر مع التهييس) Sub DeleteEmptyRowsAndColumns() Cells.SpecialCells(xlCellTypeBlanks).Delete Cells.SpecialCells(xlCellTypeBlanks).Delete End Sub تقبل وافر تقديري واحترامي

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

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

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

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

السلام عليكم إخواني الكرام أثناء تجوالي في مواقع الانترنت وجدت برنامج اسمه VBA Time Saver Kit فكرة البرنامج أنه يقوم بتخزين أكواد الـ VBA .. ويمكن البحث من خلاله بسهولة عن الكود المطلوب .. أعتقد أنه يمكن أن يكون نواة لمكتبة كبيرة نساهم جميعاً في إثراء تلك المكتبة .. لمن لديه خبرة في التعامل مع مواقع الانترنت والشراء من خلالها ويستطيع أن يقوم بشراء البرنامج حوالي 15 دولار فليتقدم ويتبرع إذا كان بإمكانه وبعد الشراء طبعاً عارفين ..كل الوطن العربي هيستخدم البرنامج اللي هيتم شرائه ..بس خلاص تقبلوا وافر تقديري واحترامي

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