طلب كود تجميع بيانات بتاريخ معين

[محمد السباعي]

السلام عليكم و رحمة الله وبركاته / الاخوة الافاضل

برجاء ايجاد حل لهذا الموضوع 

المطلوب تجميع البيانات الموجودة في  الشيتات الملونة  باللون الاحمرفقط في التاريخ المحدد و اجراء تعديل عليها  و اعادة توجهها ثم ترحيلها مرة اخري مع عدم التكرار بإذن الله

وقد بحثت في المنتدي و بفضل الله وجدت كود من اعمال استاذي ياسر خليل ابو البراء و عرضت الطلب علي استاذي و طلب مني اعادة فتح موضوع جديد 

تجربة جديدة للحسابات.rar

[محمد السباعي]

أسأل الله رب العرش العظيم ان ييسر الامر و يجعله سهلا يسيرا وان يجري الحل علي ايديكم اللهم امين

"اللهم لاسهل الا ماجعلته سهلا و أنت تجعل الحزن إذا شيئت  سهلا"

"يامفهم سليمان فهمنا"

"كان النبي صلي الله عليه وسلم إذا حزبه أمر فزع الي الصلاة"

[ياسر خليل أبو البراء]

أخي الكريم محمد السباعي

جرب الكود التالي ..ضع الكود في موديول ثم قم بربط الكود بزر الأمر الموجود لديك في ورقة العمل

رابط الكود من هنا

[محمد السباعي]

إستاذي ومعلمي الاستاذ المحترم  / ياسر خليل أبو البراء 

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

اولا جزاك الله خيرا و أحسن الله إليك وأسعدك الله في و الدنيا و الاخرة و سدد خطاك وأسكنك الله الفردوس الاعلي من الجنة وزوجك الله من الحور العين اللهم أمين

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

ثالثا هل يمكن ان أطمع في كرم أخلاق أستاذي و معلمي إذا سمحي لي بسؤال و هو   -  هل يمكن في حالة عمل تعديل علي هذه البيانات و إعادة ترحيلها مرة أخري  (بمعني يتم حذفها اولا من الشيتات الخاصة بها بحيث عند الترحيل مرة اخري و لاتتكر بحيث يكون كود الحذف يعمل اولا ثم كود الترحيل بعدالتعديل بعد ذالك    )

أخيرا لك مني كل إعجاب و تقدير بمجهودك الرائع في نشر العلم  و مساعدة الاخرين  ( أسال الله العظيم  رب العرش العظيم  أن يحفظ لك النعم  ويديم عليك نعمه أمين أمين أمين)

[ياسر خليل أبو البراء]

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

بارك الله فيك وجزاك الله خيراً على دعائك الطيب وعلى كلماتك الرقيقة

صراحة لم أدرك طلبك بشكل كامل .. هل تريد حذف الصفوف من أوراق العمل الملونة باللون الأحمر (الصفوف التي تم ترحيلها) أي التخلص منها أثناء عملية الترحيل؟

حاول توضح الطلب بالصور إذا أمكن لتتضح الصورة أو اذكر مثال أو مثالين للتوضيح

تقبل تحياتي

[محمد السباعي]

إستاذي ومعلمي الاستاذ المحترم  / ياسر خليل أبو البراء 

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

اولا جزاك الله خيرا و علي حسن اهتمامك وسامحني علي عدم توضيح طلبي نظرا لقلة الخبرة

ثانيا اعتذر لعدم الرد يوم الجمعة اجازة ولااكون في المكتب و يوم الخميس الدوام ينتهي الساعة 2 بعد الظهر 

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

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

هذا سؤال حضرتك  مع بعض التعديل هل تريد حذف الصفوف من أوراق العمل الملونة باللون الأحمر (الصفوف التي تم تجميعا) أي التخلص منها أثناء عملية التجميع ؟

الاجابة نعم 

ارجو ان اكون استطعت التوضيح وبرجاء النظر للمرفق سيكون الامر اكثر وضوح

تجربة جديدة للحسابات - بعد التعديل.rar

[ياسر خليل أبو البراء]

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

جرب تغيير هذا الجزء داخل الكود

                    For I = Lr To 6 Step -1
                        If .Cells(I, 2).Value2 >= Ws.Range("E2").Value2 And .Cells(I, 2).Value2 <= Ws.Range("E3").Value2 Then
                            Ws.Range("B" & Last + J).Resize(1, 4).Value = .Cells(I, 2).Resize(1, 4).Value
                            Ws.Range("A" & Ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 & ":A" & Ws.Cells(Rows.Count, 2).End(xlUp).Row) = .Name
                            .Cells(I, 2).EntireRow.Delete
                            J = J + 1
                        End If
                    Next I

 

 

[محمد السباعي]

إستاذي ومعلمي الاستاذ المحترم  / ياسر خليل أبو البراء 

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

اولا جزاك الله خيرا و أحسن الله إليك و بارك الله فيك و أطال عمرك في الخير ات و الصالحات و ورزقك الله برالوالدين و الدار الفسيحة و الزوجة الصالحة والابن البار المطيع والصديق الوفي والدابة المريحة و الجار المحسن و المال الطيب المبارك فيه و حسن الخاتمة  وبعدها جنات عدن ثم الحمد لله و الشكر لله لحمد و له الثناء كله علي نعمه التي لاتعد ولاتحص   نحمده حمد الشاكرين حمد الموحدين {فَلَمَّا رَآهُ مُسْتَقِرًّا عِندَهُ قَالَ هَذَا مِن فَضْلِ رَبِّي لِيَبْلُوَنِي أَأَشْكُرُ أَمْ أَكْفُرُ وَمَن شَكَرَ فَإِنَّمَا يَشْكُرُ لِنَفْسِهِ وَمَن كَفَرَ فَإِنَّ رَبِّي غَنِيٌّ كَرِيمٌ }

ثانيا الحمد لله جربت الكود و الحمدلله أدي المطلوب بكل دقة و روعة و أحب ان اخبرك أني  من كثرت البحث في الموضوع ولم أجد حل ظننت أنه أمر مستحيل و لكن الحمد الله أن وفقك لكل خير و جعلك الله مفتاح خير مغلاق شر و أرجو ان تسامحني علي كثرت السؤال 

[ياسر خليل أبو البراء]

وعليكم السلام أخي الحبيب محمد السباعي

بارك الله فيك وجزيت خيراً على كلماتك الرقيقة ودعائك الطيب المبارك .. (نفسي أعرف بتجيب الأدعية دي منين .ربنا يبارك فيك ويعزك في الدنيا والآخرة)

والحمد لله أن تم المطلوب على خير ، وتم بحمد الله .. واعلم أنني مجرد سبب جعله الله لك ولغيرك لأساعدكم في حل ما يطرأ عليكم من مشكلات ، وما توفيقي إلا بالله ، وما توفيقي إلا بالله ..

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

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

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

فلا مستحيل بقدرة الله ..

والحمد لله الذي هدانا لهذا ما كنا لنهتدي لولا أن هدانا الله

تقبل وافر تقديري واحترامي

[محمد السباعي]

إستاذي ومعلمي الاستاذ المحترم  / ياسر خليل أبو البراء 

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

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

إن العبارات التي سطرتها ماهي الا شعلة يجب ان يرفعها كل طالب علم يبحث عن هدف يريد أن يحققه وقد سبقنا في ذالك هدهد سليمان الذي رفع الله ذكره في كتاب الله الي قيام الساعة وهو يبحث عن الحقيقة "فَمَكَثَ غَيْرَ بَعِيدٍ فَقَالَ أَحَطتُ بِمَا لَمْ تُحِطْ بِهِ وَجِئْتُكَ مِن سَبَإٍ بِنَبَإٍ يَقِينٍ " وهذه هي الهمة الحقيقية التي يجب ان يتحلي بها كل طالب علم

وفقك الله لكل خير في الدنيا و الاخرة