أبو سجده

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

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

للرفع

للرفع

للرفع

للرفع

السلام عليكم ورحمته الله وبركاته كل عام انتم بخير واسعد الله أخرتكم بكل خير المطلوب بحول الله كود يتولى مهمة نقل البيانات من الصفحة الرئيسية الى صفحة المحالون اعتمادا على العمود M " تاريخ إخلاء الطرف " على أن تتم عملية نقل البيانات فى حالة لو أن أى تاريخ بخلايا العمود M يساوى بداية الشهر القادم من بدايته وحتى نهايته مع حذف تلك الصفوف من الورقة الرئيسية واعادة عملية تسلسل البيانات بالورقة الرئيسية تقبلوا وافر تقديرى واحترامى وجزاكم الله خيرا نقل البيانات من الرئيسية الى ورقة أخرى اعتمادا على تاريخ الشهر المقبل.xlsb.rar

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

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

اخى وحبيى فى الله الاستاذ // ابو عيد السلام عليكم ورحمته الله وبركاته مهلا أخى العزيز الغالى *** اليك هذا الكود وهو لمسح النطاق من A8 الى خلايا العمود T8 وحتى أخر صف به بيانات Sub Clear_Data() Dim LastRow As Integer LastRow = Range("a" & Rows.Count).End(xlUp).Row Sheet2.Range("A8:T" & LastRow).ClearContents End Sub أريد هنا إضافة على هذا الكود ليشمل مسح النطاق من U9 الى خلايا العمود BJ9 وحتى أخر صف به بيانات وبذلك نكون إحتفظنا بنطاق المعادلات دون مساس حتى تتمكن من حمايتها من العبث وإخفاؤها لعدم رؤيتها لغير المستخدم الاصلى وهذة هى الاضافة المطلوبة على كود سيادتكم **** تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

اخى الاستاذ الفاضل // ابو عيد السلام عليكم ورحمته الله وبركاته دمت لنا مُعينا بعد المولى العلى القدير الله أسأل أن يديم عليكم نعمة الصحة والعافية وأن يرزقكم وإيانا نعمة الإخلاص فى القول والعمل عُلم وتم التنفيذ وأطمع فى طلبين هذا إن لم يكن لدى سيادتكم مانع الاول اضافة على الكود والطلب كود منفصل لمسح البيانات عن الاضافة بالكود أرغب فى حماية نطاق المعادلات من الخلية U8 و حتى BJ8 " غير مرئية لغير المستخدم " اما عن كود مسح البيانات فيتمثل فى نطاقين معا النطاق الاول من الخلية A8 الى الخلية T8 واخر صف به بيانات النطاق الثانى من الخلية U9 الى الخلية BJ9 واخر صف به بيانات وفقنا الله تعالى لما يُحب ويرضاه *** تقبل وافر تقديرى واحترامى *** وجزاكم الله خيرا

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

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

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

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

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

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

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

اخى واستاذى الفاضل // اسامة البراوى السلام عليكم ورحمته الله وبركاته متعكم الله تعالى بالصحة والعافية ورزقكم من حيث لاتحتسب بعد طلب الاذن من حضرتك ملحوظة بسيطة بشأن الرقم المسلسل بالورقتين شرط اول وشرط ثانى أخى الحبيب المحترم احتمال وارد أن يتحقق الشرطان بالورقة الرئيسية على سبيل المثال على جدولين كاملين وعددهم 40 موظف تمت التجربة على هذا الجزء ولكن لاحظت المسلسل على هذا النحو الجدول الاول بالورقة شرط اول انتهى عند رقم 25 اما بداية الجدول الثانى بدأ من الرقم 30 والمفترض ان يبدأ من 26 الجدول الاول بالورقة شرط ثانى انتهى عند رقم 30 اما بداية الجدول الثانى بدأ من الرقم 35 والمفترض ان يبدأ من 31 فهل من سبيل لمعالجة جزئية الترقيم التلقائى جزاكم الله خيرا **** تقبل وافر تقديرى واحترامى نقل البيانات من الرئيسية الى ورقتين بشرطين مختلفين مع ادراج فواصل الصفحات وترك 4 صفوف فارغة للتذييل- والترتيب.xlsb.rar

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

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

وعليكم السلام ورحمته الله وبركاته اخى واستاذى الفاضل // اسامة البراوى بداية جزاكم الله خيرا ورزقنا الله واياكم من حيث لانحتسب صراحة مش عايز اتعب حضرتك أكتر من كده تم اجراء التعديلات المشار اليها بعاليه وتم إضافة هذا السطر لمراقبة ترتيب العمود D WS.Sort.SortFields.Add Key:=Range("D8", "D" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal وتبين أن مشكلة عدم إدراج حدود الجدوال بورقة العمل " شرط اول " قائمة فهل من محاولة أخرى هذا بعد طلب الاذن **** ولله الامر من قبل ومن بعد تقبل وافر تقديرى واحترامى **** وجزاكم الله خيرا

وعليكم السلام ورحمته الله وبركاته اخى واستاذى الفاضل // اسامة البراوى اعتذر استاذى الفاضل للتأخير فى الرد على سيادتكم نظرا لمحاولاتى العديدة فى اكتشاف عدم ادراج حدود الجدوال بالورقة " شرط اول " فمع اضافة السطر المشار اليه بعاليه يحدث أمر ما فى عدم ادراج حدود الجدوال بالورقة شرط اول ومع حذفه تعود الامور الى نصابها WS.Sort.SortFields.Add Key:=Range("D8", "D" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal علما سيادتكم ان هناك نطاقين مطاطين بالتسمية Creterial 1 و Creterial 2 يمكن لسيادتكم بعد طلب الاذن الاطلاع عليهما من الــ Name Manager لاستخدامهما فى التنسيقات الشرطية لنطاق الطباعة فى الورقتين شرط اول وشرط ثانى من الصف رقم 8 الى الصف 1048576 فربما يكون هناك ما أغفوا عنه ***** برجاء الاطلاع والافادة بإذن الله تعالى ***** تقبل وافر تقدير واحترامى **** وجزاكم الله خيرا نقل البيانات من الرئيسية الى ورقتين بشرطين مختلفين مع ادراج فواصل الصفحات وترك 4 صفوف فارغة للتذييل- والترتيب.xlsb.rar

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

للرفع