أبو سجده

ليس هناك داعى للإعتذار أخى وحبيبى ابو البراء العكس تماما أنا من يجب أن يعتذر لاننى أعرف جيدا مشغولياتك أعانك الله تعالى عليها نعم الكود لبى الطلب تماما وتم تعديل السطر المشار اليه بدون صور **** لديك العمود A الخاص بالترقيم بورقة SALRY الترقيم هنا ثابت بثبات الجدوال ويتلخص الشرط فى حالة لو عدد الصفوف المُرحلة من الورقة data الى الورقة salry أقل من 20 صف يتم مسح باقى الارقام المسلسلة والله مشكلة مش عارف اكمل المشاركة ليس هناك إتاحة لتعديل أية مشاركات يجب أن أختتم مشاركتى بجزاكم الله خيرا فجزاكم الله خيرا وبارك فيكم

أخى العزيز الاستاذ // ياسر ابو البراء تم تحقيق الطلب الاول بتغيير هذا السطر وبقى اضافة الشرط المطلوب تقبل وافر تقديرى واحترامى If .Cells(i, 3).HasFormula Then lastRow = .Cells(i, 3).Row + 6: Exit For

للرفع

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

المرفق به التطبيق Delete duplicate items.rar

الاخ الفاضل الاستاذ // صلاح السلام عليكم ورحمته الله وبركاته ضع قائمة الارقام لديك بالعمود A بداية من الصف الثامن وشاهد النتيجة Sub Duplicate2() Dim coll As New Collection, rng As Range, rngDelete As Range, arr, C As Long, I As Long, strKey As String, v1 Set rng = Range("A8").CurrentRegion rng.Offset(1).Interior.ColorIndex = xlNone arr = rng.Value For I = 2 To UBound(arr, 1) strKey = arr(I, 1) & Chr$(2) On Error Resume Next coll.Add Key:=strKey, Item:=New Collection On Error GoTo 0 coll(strKey).Add I Next I For Each v1 In coll If v1.Count > 1 Then C = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)) For I = 1 To v1.Count rng.Rows(v1(I)).Interior.Color = C If I > 1 Then If rngDelete Is Nothing Then Set rngDelete = rng.Rows(v1(I)) Else Set rngDelete = Union(rngDelete, rng.Rows(v1(I))) End If Next I End If Next v1 If Not rngDelete Is Nothing Then If MsgBox("هل ترغب فى حذف الارقام القومية المكررة ?", vbYesNo) = vbYes Then rngDelete.Delete xlShiftUp End If End Sub

أو حذف الارقام المكررة بذات الشيت جزاكم الله خيرا

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

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