أبو سجده

حبيبى ابو البراء لا أنا هاوى ولا أنت بتاع قهاوى كلانا يسعى لخدمة نفسه وخدمة الاخرين وكلاهما دون مقابل أما عن إبنتى المهندسة salmasaied سلمى سعيد فهى سلمى سعيد هناك وليس لنا فروع أخرى سوى ابو عبدالرحمن بيرم هنا اللى كان سعيد بيرم !!!!

الله يبارك فى عمرك وفى عمر البراء ياأبو البراء والله ليك وحشة وكل عام انتم بخير بمناسبة حلول عيد الاضحى المبارك أهو تغيير وكلنا فى الهوا سوا وان كان الــ Simple فعمنا جوجل ميعرفشى أن ثقافتى وجعانى قصدى ألمانى ههههههههههههههههه أهو تخبيط بس جايب نتيجة ونتيجة كويسة على الاقل مجتشى من احبابنا وفى الاخير هى تجربة ناجحة حتى الان جزاكم الله خيرا وبارك فيكم ***** تقبل وافر تقديرى ياحبيى والله العظيم سبقتنى دائما سباق فى الخير وللخير ولاداعى لرفع ملف جزاكم الله خيرا

السلام عليكم بعد إذن السادة الزملاء الافاضل اخى ناصر تفضل ما طلبت " بموديول عادى " Public Function biram(X) N = Int(X) If X > 50 Then result = (X - 50) * 0.006 If X > 250 Then result = 1.2 + (X - 250) * 0.0065 If X > 500 Then result = 2.825 + (X - 500) * 0.007 If X > 1000 Then result = 6.325 + (X - 1000) * 0.0075 If X > 5000 Then result = 36.325 + (X - 5000) * 0.008 If X > 10000 Then result = 76.325 + (X - 10000) * 0.003 biram = result End Function وضع هذه المعادلة بالخلية C1 ثم إسحب لاسفل على اعتبار ان القيمة المعنية بحساب الدمغه العادية بالخلية A1 ثم قارن بين الكود المشار اليه وبين المعادلة المشار اليها حيث تم تصويب المعادلة بمعرفتى وفقا لنص المادة رقم 79 من قانون 111 لسنة 1981 ستجد أن جميع العمليات الحسابية مطابقة =ROUND(biram(A1);1) دائما فى خدمتكم ***** وجزاكم الله خيرا

اخى الفاضل / عمر الحسينى السلام عليكم ندخل فى صُلب الموضوع أولا الا ترى معى أن الموضوع مبهم فما هى نص الفقرة من هذا القانون الذى يرى الكثير أنه معقد فى تطبيقة رغم سهولته هذا ماكنت أتوقعه كسؤال مبدئى منك أخى الحبيب ليكون هناك نقاشا نحو مايحتويه المرفق من فكرة أما عن المرفقات الثلاثة فالاول الذى نحن بصددة فصاحب الفضل فيه بعد المولى العلى القدير هو اخى الفاضل / ياسر خليل وجاء المرفق الثانى لاخى وحبيب قلبى أبو حنين جزاه الله تعالى عنى خير الجزاء وجاء المرفق الثالث من طرفكم وجميعهم ومع إختلاف الحلول فقد أتو بالافادة ولكن بشأن المرفق المرسل من طرفكم وبعد مراجعة دقيقة تبين أن هناك خطأ جثيما ألا وهو فى حالة عدم وجود اية قيم لنفس الاسم " المماثل" أو لإسم غير مماثل يتم حذف الاسم نهائيا وهذا على غير المطلوب تقبل وافر تقديرى واحترامى **** وجزاكم الله خيرا

أخى الحبيب الغالى // ياسر خليل السلام عليكم إتوحشتك كثير **** أسأل الله تعالى ان تكون بكامل الصحة والعافية عليكم الابداع *** وعلينا تحويلها الى إبداعات أخرى لأهداف أخرى تقبل وافر تقديرى واحترامى

بسم الله الرحمن الرحيم وبه نستعين المرفق التالى تطبيقا لنص فقرة من قانون أردت وضعه هنا للإفادة تقبلوا وافر تقديرى واحترامى **** وجزاكم الله خيرا إجماليات أكثر من قيمة لنفس الاسماء المماثلة بالمصنف.xlsb.rar

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

الاستاذ الفاضل // عمر الحسينى السلام عليكم ورحمته الله وبركاته والله يا أخى أنه لشرف كبير مروركم الطيب المبارك واعتذر لعدم الرد فى حينه واليك الكود الذى أتعبنا كثيرا على مدار عدة ايام بجد رغم سعادتى بتنوع الحلول خاصة مابذله معى أخى الحبيب ابو حنين من جهد كبير فجزاه الله تعالى عنى خير الجزاء وجزاكم الله خيرا إلا أننى حزين لان ماتم عليه من تعديل تعديلا طفيفا لايذكر ولكنها مشيئة الله أسعد دائما بلقائكم جميعا **** تقبلوا وافر تقديرى واحترامى Option Explicit Sub TransferMatchingItemsUsingArrays() Dim vItems As Variant, vData As Variant, vOut As Variant, i As Long vItems = Sheet2.Range("B8", Sheet2.Cells(Rows.Count, "B").End(xlUp)).Resize(, 8).Value With Sheet1.Range("B8", Sheet1.Cells(Rows.Count, "B").End(xlUp)) vData = .Value vOut = .Offset(, 22).Resize(, 2).Value With CreateObject("Scripting.Dictionary") .CompareMode = 1 For i = LBound(vItems) To UBound(vItems) ' .Item(vItems(i, 1)) = vItems(i, 8) .Item(vItems(i, 1)) = .Item(vItems(i, 1)) + vItems(i, 8) Next i For i = LBound(vData) To UBound(vData) If .Exists(vData(i, 1)) Then vOut(i, 2) = .Item(vData(i, 1)) vOut(i, 1) = vOut(i, 1) + vOut(i, 2) Else vOut(i, 2) = "" End If Next i End With .Offset(, 22).Resize(, 2).Value = vOut End With End Sub

أخى الحبيب الغالى // ابو حنين السلام عليكم ورحمته الله وبركاته بارك الله فيك ورزقكم الله وإيانا من حيث لا تحتسب تم بحمد الله وبفضله ثم بفضلك أخى الحبيب وشاكرا جدا جدا حسن صنعيك وعلى إهتمامكم البالغ تقبل وافر تقديرى واحترامى وجزاكم الله عنى خير الجزاء

أخى الحبيب الغالى // ابو حنين وعليكم السلام ورحمته الله وبركاته بإذن الله تعالى سيكون المطلوب تم تحميل المرفق ولنا عودة بحول الله تعالى تقبل وافر تقديرى واحترامى وجزاكم الله عنى خير الجزاء

وعليكم السلام ورحمته الله وبركاته أخى ابو حنين ياحبيبى العفو *** العفو اسعدك الله فى الدارين وبارك فيكم إليك أخى هذا المرفق فيه التوضيح المطلوب تقبل وافر تقديرى واحترامى مثال + 1.rar

للرفع

أخى العزيز المحترم / ابو حنين السلام عليكم ورحمته الله وبركاته نعم أخى الحبيب كما أشرت ان القيمة 2000 حاصل جمع ( 800 + 100 ) + ( 500 + 600 ) بشأن الكود TransferMatchingItemsUsingArrays المشار اليه بالموديول رقم 2 ماهو إلا مثالا لتنفيذ الفكرة العامة للموضوع حيث يتم الاضافة بالعمود Z بمقدار القيمة المدونة بالعمود AA بالورقة Salary كلما تم تنفيذ الكود ومع تغير القيمة المدونة بالعمود I بالورقة Data يتم ترحيل القيمة الجديدة وجمعها على القيمة المدونة بالعمود Z بالورقة Salary مثالا على ذلك لديك بالرقم المسلسل " أبو حنين 9 " مبلغ 100 ج برجاء التفضل تنفيذ الكود ثلاث مرات يصبح النتاتج لديك 300 ج مع تغير المبلغ بذات الصف الى 1425.80 ستلاحظ أخى الحبيب أن مبلغ ال 100 ج ليس له محلا من الوجود وقد حل محله مبلغ ال 1425.80 وبالتالى تصبح جملة المبلغ 1725.80 أعتذر للإطالة **** تقيل وافر تقديرى واحترامى **** وجزاكم الله خيرا

أخى العزيز المحترم // أبو حنين السلام عليكم ورحمته الله وبركاته برجاء التفضل بالإطلاع على المرفق التالى تقبل وافر تقديرى واحترامى وجزاكم الله خيرا جمع العناصر المتشابهة 22.rar

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

للرفع

للرفع

بارك الله فيكم وجزاكم الله خيرا

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

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

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

أخى فى الله الاستاذ الفاضل // محمد الريفى بسم الله ماشاء الله دائما متميز فى طرحك للموضوعات بارك الله فيك وجزاكم الله خيرا

للرفع

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

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