أبو سجده

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

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

بسم الله الرحمن الرحيم وبه نستعين السادة الزملاء الافاضل السلام عليكم ورحمته الله وبركاته الكود التالى طلب للأخ الفاضل // ناصر المصرى على الرابط أدناه حيث يشمل الطلب على شقين حسب مافهمت منه عبر الخاص وقد وفقنى الله تعالى لتنفيذ الشق الاول ألا وهو منع وإخفاء وطباعة أوراق محددة فى مصنف أما عن الشق الثانى فقد حاولت فيه ولكن لم يوفقنى الله فى تنفيذه والتى تخص الاوراق من stor1 حتى stor10لذا يرجى من الاخ ناصر برفع موضوع جديد موضحا به الاضافة التى يريد إضافتها على الكود المشار اليه حتى يتمكن السادة الزملاء الافاضل بتقديم المساعدة تقبلوا وافر تقديرى واحترامى وجزاكم الله خيرا Option Explicit Sub Print_SalmaSaied() Dim CurVis As Long, sh As Worksheet, HidShts, S Application.ScreenUpdating = 0 HidShts = Array("List", "Add", "Main store", "Archives", "Collection items", "Suppliers", "Customers") For Each sh In ActiveWorkbook.Worksheets S = Application.Match(sh.Name, HidShts, 0) If Application.WorksheetFunction.CountBlank(sh.Range("A10:I10000")) <> sh.Range("A10:I10000").Count Then If IsError(S) Then With sh CurVis = .Visible If CurVis >= 0 Then .Visible = xlSheetVisible .PrintOut sh.Range("A10:I10000").ClearContents .Visible = CurVis End If End With End If End If Next sh End Sub منع وإخفاء وطباعة اوراق عمل محددة فى مصنف - سعيد بيرم.rar

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

الاستاذ الفاضل // محمد طاهر السلام عليكم ورحمته الله ويركاته والله ياأخى أشعر وكأننى يتيم بدون هذا الصرح العظيم للأسف لم يتم فتح الرابط We could not locate the item you are trying to view عفوا لم نتمكن من العثور على طلبك جارى رفع الموضوع مرة أخرى والله المستعان تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

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

بسم الله الرحمن الرحيم وبه نستعين أخى وأستاذى القدير / محمد طاهر السلام عليكم ورحمته الله وبركاته بداية جزاكم الله خيرا وبارك فيكم ورزقنا واياكم من حيث لانحتسب عليك أن تأمر وعلينا التنفيذ فكما تعلم سيادتكم أن صدقة العلم نشرة ارجو الافادة حال عدم حل المشكلة تمهيدا لاعادة رفع الموضوع واليك رابط الموضوع تقبل وافر تقديرى واحترامى وجزاكم الله خيرا https://www.officena.net/ib/topic/76449-منع-وإخفاء-وطباعة-أوراق-محددة-فى-مصنف-سعيد-بيرم/

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

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

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

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

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

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

بسم الله الرحمن الرحيم وبه نستعين السلام عليكم ورحمته الله وبركاته فى المثال التالى بورقة البيانات النطاق من A8 الى AR8 وحتى أخر صف به بيانات فى العمود C قائمة أسماء غير مرتبة فى العمود O قيمة نصية تحت اسم " أوفسينا " والتى على أساسها سيتم ترحيل البيانات المطلوب بحول الله تعالى ترحيل بيانات الاعمدة الملونة باللون الرمادى من ورقة البيانات الى ورقة النتائج على أن تكون مؤبجدة وبنفس تنسيقات ورقة البيانات علما بأن الاعمدة الفارغة هى فى الاصل تحتوى على العديد من المعادلات شكرا لسعة صدركم وجزاكم الله خيرا ورزقنا وإياكم من حيث لانحتسب تقبلوا وافر تقديرى واحترامى ترحيل البيانات اعتمادا على قيمة نصية.rar

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

للرفع

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

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

ليس هناك داعى للإعتذار أخى وحبيبى ابو البراء العكس تماما أنا من يجب أن يعتذر لاننى أعرف جيدا مشغولياتك أعانك الله تعالى عليها نعم الكود لبى الطلب تماما وتم تعديل السطر المشار اليه بدون صور **** لديك العمود 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

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