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

الله اكبر الله اكبر 

وتحيا اليمن وتحيا مصر

يا أبو عيد هات دماغك ابوسها

روعة روعة روعة

فى انتظار بما يمُن الله عليك من فضلة

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

اهلا وسهلا بك أخى وحبيبى فى الله ابو عيد

ورزقنى الله واياكم حسن الخاتمة

تم تجربة الملف المرسل *** وبصراحة أرى ان الملف السابق " نقل بيانات 2 " هو الانسب

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

او كما أشرت لسيادتكم من خلال رسالتى *** وفقنا الله تعالى لما يحب ويرضاه

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

السلام عليكم ورحمته الله وبركاته

بسم الله ماشاء الله *** بسم الله لا قوة إلا بالله

هل يمكن أن أُقبل جبينك *** عاشت دماغك " بالمصرى " *** وعاشت يمناك وجعلكم الله وايانا منارة للعلم والمعرفة

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

هل معنى ذلك انه يمكن تحقيق فكرة الموضوع كترحيل وحذف تلقائيا مع تغييرتاريخ الويندوز

دون الحاجة الى اختيار التاريخ من خلال الــ التكست بوكس والاستغناء كليا عن الفوروم ان كان الامر كذلك فعلى الرحب والسعة وأكون ممنونا لك

وإن لم يكن فهناك إستفسار وإضافه هذا بعد طلب الاذن منك أخى وحبيبى فى الله و ننهى هذا الموضوع بحول الله تعالى 

عن الاستفسار هل يمكن مسح محتويات ورقة المحالون مع تغيير رقم الشهر والعام            

مثال *** تم اختيار شهر 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

بسم الله الرحمن الرحيم

وبه نستعين

اخى وحبيبى فى الله ابو صالح

السلام عليكم ورحمته الله وبركاته

اود فى البداية وقبل تحميل المرفق ان تتقبل اعتذراى الشديد

لعدم الرد فى حينة لظروف خارجة عن إرادتى

ثانيا اشكرك من صميم قلبى على هذة اللفتة الطيبة المباركة

النى احتسبها ان شاء الله تعالى فى موازيين حسناتك يوم القيامة

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

بعد تجربة المرفق على الملف الاصلى الذى أرغب العمل عليه على اعتبار ان التجربة جديدة من نوعها

وفقنا الله واياكم الى مايحبة ويرضاه

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

 اخى واستاذى الفاضل // اسامة البراوى

السلام عليكم ورحمته الله وبركاته

متعكم الله تعالى بالصحة والعافية ورزقكم من حيث لاتحتسب

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

فجزاكم الله تعالى عنى خير الجزاء وجعله فى ميزان حسناتكم بإذن الله

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

نقل البيانات من الرئيسية الى ورقتين بشرطين مختلفين مع ادراج فواصل الصفحات وترك 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