محمود_الشريف

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

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

إستكمالا للمشاركة السابقة رقم 26 أضفت على النموذج كود ترحيل الناجحين والراسبين والدور الثانى وربطه بزر موجود بشيت الكنترول النموذج التجربة الثانية بالمرفقات شيت كنترول تحت التجربة.rar

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

إستكمالا للنماذج أسس حساب علاوة الحد الادنى للأجور للساده العاملين بالتربية والتعليم وفقا للقرار رقم 22 لسنة 2014 للأستاذ القدير / سعيد بيرم http://www.officena.net/ib/index.php?showtopic=51518#entry319190 يتبع بإذن الله

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

إستكمالا للنماذج نموذج لقاعده بيانات الطلاب ومتابعه أعمال السنه قام برفعه الأستاذ / نجم الدين ابراهيم http://www.officena.net/ib/index.php?showtopic=51512#entry319144 يتبع بإذن الله

أخى الكريم الأستاذ / نجم الدين بارك الله فيكم وتقبلوا منى وافر الإحترام والتقدير

أخى الكريم بارك الله فيكم وتقبلوا منى وافر الإحترام والتقدير

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

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

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

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

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

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

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

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

أخى الكريم بارك الله فيكم وتقبل منى وافر الإحترام والتقدير

أخى الكريم بارك الله فيكم وتقبل منى وافر الإحترام والتقدير

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

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

الساده / أعضاء المنتدى المحترمين السلام عليكم ورحمه الله وبركاته أقدم لكم طريقة مبسطة لشرح آلية الترحيل بالكود وقد إستخدمت كود مبسط لكى يكون سهل التعديل عليه حسب ما ترغبون وهذا الكود للترحيل مع مسح البيانات المدخله مع آلية الترقيم التلقائى الشرح في المثال المرفق ستجد ورقتا عمل " Invoice " " List" وسيتم إدخال البيانات في الورقه " Invoice " ثم بعد الإنتهاء نضغط على الزر لتنتقل في أماكن محدده بورقة العمل " List " .. * تعالوا نرى الكود كود: Sub MoveData() Dim EndRow As Long If Sheets("Invoice").Range("B3").Value = "" Or Sheets("Invoice").Range("D3").Value = "" Or Sheets("Invoice").Range("a5").Value = "" Or Sheets("Invoice").Range("D6").Value = "" Or Sheets("Invoice").Range("B8").Value = "" Or Sheets("Invoice").Range("D8").Value = "" Then MsgBox prompt:="تأكد من إدخال كافة البيانات", Title:="خطأ" Else EndRow = Sheets("List").Range("A1").CurrentRegion.Rows.Count Sheets("List").Cells(EndRow + 1, 1).Value = EndRow Sheets("List").Cells(EndRow + 1, 2).Value = Sheets("Invoice").Cells(3, 2).Value Sheets("List").Cells(EndRow + 1, 3).Value = Sheets("Invoice").Cells(3, 4).Value Sheets("List").Cells(EndRow + 1, 4).Value = Sheets("Invoice").Cells(5, 1).Value Sheets("List").Cells(EndRow + 1, 5).Value = Sheets("Invoice").Cells(6, 4).Value Sheets("List").Cells(EndRow + 1, 6).Value = Sheets("Invoice").Cells(8, 2).Value Sheets("List").Cells(EndRow + 1, 7).Value = Sheets("Invoice").Cells(8, 4).Value Sheets("Invoice").Range("B3,D3,A5:D5,D6,B8,D8").ClearContents MsgBox prompt:="تم ترحيل البيانات بنجاح", Title:="رسالة تأكيد" End If End Sub * الكود السابق هو الخاص بعملية الترحيل من الورقه " Invoice " الي الورقه " List " ولكن ماذا يعني الكود وكيف نعدل فيه حسب الرغبه ؟ * في الكود التالي وضعنا شرط على الخلايا التي يتم إدخال البيانات بها بالورقه "Invoice" بحيث تظهر رساله تفيد بأنه يجب التأكد من إدخال كافة البيانات مع العلم أنه يمكن الأستغناء عن بعض الخلايا أو كلها بحذف الشرط أو جزأ منه كود: If Sheets("Invoice").Range("B3").Value = "" Or Sheets("Invoice").Range("D3").Value = "" Or Sheets("Invoice").Range("a5").Value = "" Or Sheets("Invoice").Range("D6").Value = "" Or Sheets("Invoice").Range("B8").Value = "" Or Sheets("Invoice").Range("D8").Value = "" Then MsgBox prompt:="تأكد من إدخال كافة البيانات", Title:="خطأ" * وهنا سيبدأ البحث عن أول صف فارغ لنقل البيانات أليه مع الترقيم في العمود A كود: EndRow = Sheets("List").Range("A1").CurrentRegion.Rows.Count * هنا سيقوم بنقل البيانات المدخله في الورقه "Invoice" في الخليه الموجوده في الصف الثالث - العمود الثاني الي الورقه " List " في الخليه الموجوده في العمود الثاني - الصف الأول كود: Sheets("List").Cells(EndRow + 1, 2).Value = Sheets("Invoice").Cells(3, 2).Value * وهكذا ينطبق الكود السابق على باقي الخلايا المدخل بها البيانات الي أن نصل الي * هذا الكود يقوم بمسح البيانات المدخله بالورقه " Invoice" بعد نقلها للورقه " List " كود: Sheets("Invoice").Range("B3,D3,A5:D5,D6,B8,D8").ClearContents * بقي كود يظهر رسالة تأكيد بإنتهاء العمليه بنجاح كود: MsgBox prompt:="تم ترحيل البيانات بنجاح", Title:="رسالة تأكيد" أسأل الله العلى القدير أن أكون وفقت فى الشرح ومرفق نموذج للتطبيق العملى وتقبلوا منى وافر الإحترام والتقدير شرح الترحيل.rar

ما شاء الله عليكم إخوانى فى الله بارك الله فيكم وزادكم الله من فضله وتقبلوا منى وافر الإحترام والتقدير

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

أخى الكريم بارك الله فيكم وتقبل منى وافر الإحترام والتقدير