أبو عبد الرحمن سعيد

بسم الله الرحمن الرحيم وبه نستعين المرفق التالى تطبيقا لنص فقرة من قانون أردت وضعه هنا للإفادة تقبلوا وافر تقديرى واحترامى **** وجزاكم الله خيرا إجماليات أكثر من قيمة لنفس الاسماء المماثلة بالمصنف.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

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

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

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

للرفع

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

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

بسم الله الرحمن الرحيم وبه نستعين السلام عليكم جميعا ورحمته الله وبركاته وكل عام أنتم بخير الكود المبين أمام حضراتكم بالمرفق التالى لترحيل القيم المدونة بالعمود I من الورقة Data الى الورقة salary قرين كل إسم المطلوب بحول الله تعالى معالجة الكود المشار اليه ليتم تجميع قيم العناصر المتشابهة وترحليها من الورقة Data الى الورقة Salary مثالا على ذلك بالورقة data رقمى 5 و 66 يحملا نفس الاسم مع إختلاف القيم المدونة بالعمود I النتيجة المطلوبة بإذن الله بعد معالجة الكود = 1626.04 تقبلوا وافر إحترامى وتقديرى وجزاكم الله خيرا جمع العناصر المتشابهة باستخدام المصفوفات.rar

السيد الاستاذ الفاضل / حسام البسيونى وعليكم السلام ورحمته الله وبركاته بارك الله فيكم وجزاكم الله خيرا بشأن حساب ضريبة الدمغه فهى كما ذكرت سالفا أما بشأن ضريبة الدخل على المرتبات فيختلف تحديد الضريبة المستحقة بإختلاف نسبة الحوافز والبدلات من جهة إلى أخرى وليس لى علم بنظام الحوافز والبدلات للسادة العاملين بالتموين لذا يرجى رفع ملف إكسيل يوضح تفصيلا بيان بمفردات المرتب حتى يكون حساب الضريبة كما ينبغى وفقا لنصوص مواد القانون 91 لسنة 2005 مرورا بتعديلاتة بالقانون رقم 96 لسنة 2015 تقبل وافر تقديرى وإحترامى **** وجزاكم الله خيرا

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

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

حبيبى أبو حنين السلام عليكم ورحمته والله وبركاته ياأخى لما الدماغ بيركب بيبقى حاجة صعب من الامس وهية راكبة معايا على FormatNumber بينما الصواب هو NumberFormat هناك ملاحظة تخص العمود E بالورقة " ملف الدفع الإلكترونى " ستلاحظ أن الخلية E 8 دائما تأتى يمنيا تارة وتارة أخرى يسارا أما باقى خلايا العمود فتأتى يسارا " وربنا يجعلنا من أهل اليمين " الاضافة الأخيرة بعد إذنك أخى الحبيب كود من شأنه مسح محتوى كلا الورقتين ABOHANIN و " ملف الدفع الإلكترونى " فى أن واحد تمهيدا لاستقبال بيانات جديدة تقبل الله منا ومنكم صالح الاعمال **** وجزاكم الله خيرا