أبو سجده

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

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

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

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

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

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

اهلا وسهلا بك أخى وحبيبى فى الله ابو عيد ورزقنى الله واياكم حسن الخاتمة تم تجربة الملف المرسل *** وبصراحة أرى ان الملف السابق " نقل بيانات 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

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

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