أبو سجده

الاخ الكريم الاستاذ // صلاح السلام عليكم وماذا لو هناك أكثر من رقم مكرر ارى أن رسالة التنبيه هنا لا تجدى نفعا الا إذا أردت ترحيل الارقام المكررة بشيت منفصل هذا والله أعلى وأعلم بطبيعة عملك جرب هذا الكود وبحول الله تعالى نتيجته 100% Sub duplicate() Dim arr As Variant, d As Object, rng As Range, I As Long Set d = CreateObject("scripting.dictionary") arr = Range("F1:F" & Cells(Rows.Count, "F").End(3).Row) For I = 1 To UBound(arr) If Len(arr(I, 1)) > 0 Then d(arr(I, 1)) = d(arr(I, 1)) + 1 If d(arr(I, 1)) > 1 Then If rng Is Nothing Then Set rng = Cells(I, "F") Else Set rng = Union(rng, Cells(I, "F")) End If End If End If Next rng.Interior.Color = vbYellow Set d = Nothing End Sub

السلام عليكم ورحمته الله وبركاته لديك على سبيل المثال عدد 200 جدول ثابت وتُنقل البيانات اليها من شيت أخر أحيانا لا يتم نقل البيانات الإ لعدد 150 جدول فقط " حسب مقتضيات العمل " فكيف يمكن مسح باقى الجدوال الفارغة من البيانات من بعد أخر جدول يحتوى على بيانات أرجو الإطلاع والافادة وجزاكم الله خيرا وبارك فيكم جميعا حذف العديد من الجدوال التى لاتحتوى على بيانات.xlsb.rar

عَنْ أَبِي هُرَيْرَةَ قَالَ قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ مَنْ سَلَكَ طَرِيقًا يَلْتَمِسُ فِيهِ عِلْمًا سَهَّلَ اللَّهُ لَهُ طَرِيقًا إِلَى الْجَنَّةِ

الاستاذ الفاضل // عبدالبارى السلام عليكم يرجى رفع البرنامج هنا بالمنتدى نظرا لإحتواء رابط التحميل على برامج ضارة The site ahead contains harmful programs جزاكم الله خيرا

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

هههههههههههههههه يعنى هو خلاص على راسى ريشه المقصود بالانتظار انك لاتستعجل فى تنفيذ اقتراحك نحو تبديل الملف حيث يمكنك تبديله وقتما يسمح وقتك بذلك هذا هو المقصود ما إنت عارف كل واحد وثقافته ماهى ألمانى ههههههههههههههه اليك أخى الحبيب المرفق الجديد والجديد به تطبيق لمثال عملى بالمعادلات واى إستفسار فأخيكم دائما فى خدمتكم برجاء تعديل كلمة " لخليتين " بالصف السابع من المشاركة الاولى مع تفضلت به من إقتراح جزاكم الله خيرا ***** تقبل وافر تقديرى واحترامى حساب الدمغه العادية ق 111 لسنة 1981 بالمعادلات والدلات المعرفة + التطبيق - سعيد بيرم.rar

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

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

نعم هو نفس الشيىء ولكن التعديل لم يأتى بثمارة ولا حتى مع IFERROR وافر تقديرى واحترامى

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

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

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

اللهم امين *** اللهم امين *** اللهم امين وتقبل الله منك اخى الحبيب ابو البراء صالح الاعمال

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

السلام عليكم ورحمته الله وبركاته طلب لاخى الفاضل الاستاذ / ناصر المصرى أحببت أن أضع هذا المرفق بموضوع مستقل للإفادة وسهولة البحث المرفق لحساب الدمغه العادية وفقا لنص المادة رقم 79 من القانون رقم 111 لسنة 1981 بالمعادلات والاكواد وبالطريقة المعتادة وعلى طريقة فصل المبلغ لخليتين أحدهما للقروش والاخرى للجنيهات لاتنسوا الاعفاءات المقررة بقوانين ثم توضع هذة المعادلات او الكود المشار اليه بالمرفق على صافى المبلغ قبل مبلغ الــ 50 جنيها المعفاة ولاتنسونا من دعائكم **** جزاكم الله خيرا **** وكل عام انتم بخير حساب الدمغه العادية ق 111 لسنة 1981 بالمعادلات والدلات المعرفة + التطبيق - سعيد بيرم.rar

أخى ناصر السلام عليكم ورحمته الله وبركاته غالى والطلب رخيص وبعد إذن اخى الحبيب / ابو البراء قم بوضع المعادلة التالية بالخلية F1 خانة القروش =CEILING(ROUND(MOD(biram(C3+B3/100);1);2);0.05)*100 وهذه المعادلة بالخلية G1 خانة الجنيهات **** ثم اسحب لاسفل لكلا المعادلتين =INT(ROUND(biram(C3+B3/100);1)) دائما فى خدمتكم ***** جزاكم الله خيرا وبارك فيكم وكل عام أنتم جميعا بخير

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

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

حبيبى ابو البراء لا أنا هاوى ولا أنت بتاع قهاوى كلانا يسعى لخدمة نفسه وخدمة الاخرين وكلاهما دون مقابل أما عن إبنتى المهندسة 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 موظف وتم إجتياز هذة الجزئية بالمرفقين المرسلين من أخى الحبيب ابو حنين ومن سيادتكم تفبل وافر تقديرى واحترامى