عبدالله باقشير قام بنشر يناير 5, 2008 قام بنشر يناير 5, 2008 (معدل) السلام عليكم ملف للترحيل كان طلب احد الاخوة حبيت ان يراه الجميع لتعم الفائدة ومعرفة الميزات التالية اولا : ورقة الترحيل 1- اذا كانت لديك خلايا متفرقة و تريد جمعها في الكود باختصار Set myRng1 = Range("E6,I8,H6,B8,B10,I10,I11") 2- الفاتورة توجد فيها سبعة صفوف يتم انتقاء الصفوف التي اكبر من اصفر في خانة الاجمالي ليتم ترحيلها For E = 19 To 25 If Cells(E, 1).Value > 0 Then Y = Y + Cells(E, 1).Count End If Next 3- مسح قيم الخلايا بعد الترحيل حتى لو كانت الخلايا مدموجة ولا توجد بها صيغ myRng1.Cells.SpecialCells(xlCellTypeConstants).ClearContents ثانياً: ورقة البيانات تلوين الصف الاول من كل عملية ترحيل للفصل بين البيانات Range("A" & N & ":R" & N).Interior.ColorIndex = 8 اخوكم / خبور خير ____________.rar تم تعديل يناير 6, 2008 بواسطه خبور خير 2
شحادة بشير قام بنشر يناير 6, 2008 قام بنشر يناير 6, 2008 جزاك الله خيراً أخ خبور نسأل الله أن يبارك بك
الســـــــاهر قام بنشر يناير 6, 2008 قام بنشر يناير 6, 2008 (معدل) السلام عليكم ماشاء الله تبارك الرحمن كالعادة تفاجئنا بالجديد جزاك الله خير لا عدمناك يا خبور الخير تم تعديل يناير 6, 2008 بواسطه assahir
أبوعبد الله قام بنشر يناير 6, 2008 قام بنشر يناير 6, 2008 أخي الحبيب / خبور خير جزاكم الله كل خير ووفقكم لكل خير وجعلكم دائماً أهلاً لكل خير . أخوكم أبو عبدالله
عبدالله باقشير قام بنشر يناير 6, 2008 الكاتب قام بنشر يناير 6, 2008 (معدل) السلام عليكم ورحمة الله وبركاته جزاك الله خيراً أخ خبورنسأل الله أن يبارك بك الاخ ابو اكرم الله يجزيك خيرا اخي الحبيب السلام عليكم ماشاء الله تبارك الرحمن كالعادة تفاجئنا بالجديد جزاك الله خير لا عدمناك يا خبور الخير شكرا اخي الحبيب اطا لالله عمرك على طاعة الله حفظكم الله ورعاكم الاخ اسلام حفظك ربي واكرمك وازال همك أخي الحبيب / خبور خير جزاكم الله كل خير ووفقكم لكل خير وجعلكم دائماً أهلاً لكل خير . أخوكم أبو عبدالله الاخ ابو عبدالله حفظه الله ولك مثل دعائك من فاطر السموات عدد خلقه ورضاء نفسه وزينة عرشه جزاك الله خير الاخ / بوماهر الله يجزيك خيرا اخي الحبيب ودمتم في حفظ الله و رعايته اخوكم خبور خير تم تعديل يناير 7, 2008 بواسطه خبور خير
الجزيرة قام بنشر يناير 6, 2008 قام بنشر يناير 6, 2008 ما شاء الله أخي الحبيب خبور جزاك الله الف خير وجعله في موازين حسناتك : )
kabq قام بنشر يناير 6, 2008 قام بنشر يناير 6, 2008 مما لا شك به ان الملف كان وافي وجميل والشكر ع الجهد المبذول وما أريده هو ترحيل صفوف من صفحة الى أخرى وذلك بوضع check mark بخلية مقابل الصف المراد ترحيله مع العلم حفظ البيانات في صفحة الترحيل وان جدة بيانات بعد ذلك تأتي بعدها .Trans.rar
عبدالله باقشير قام بنشر يناير 8, 2008 الكاتب قام بنشر يناير 8, 2008 السلام عليكم ورحمة الله وبركاته اخي اكرم الغامدي اكرمك الله وعافك تقبل شكري وامتناني
h63 قام بنشر يناير 8, 2008 قام بنشر يناير 8, 2008 هلا بالافكار الرائعة والله ولا اروع من كده حياك الله هشام
ابو اسامة العينبوسي قام بنشر يناير 8, 2008 قام بنشر يناير 8, 2008 السلام عليكم ما توفر لدى من وقت و ارجو من الاخ خبور ان يطبق التالى كترحيل و ليس كمسح محتويات و هو ما طلبه الاخ في مشاركته قب الاخيره وما أريده هو ترحيل صفوف من صفحة الى أخرى وذلك بوضع check mark بخلية مقابل الصف المراد ترحيله Trans1.rar
محمد مصراوى قام بنشر يناير 9, 2008 قام بنشر يناير 9, 2008 جزاك الله خيرا لى طلب ارجو افادتى فية شرح الاكواد التى قمت بعملها Application.ScreenUpdating = False For E = 19 To 25 If Cells(E, 1).Value > 0 Then Y = Y + Cells(E, 1).Count End If Next With Sheets("ÍÝÙ ÇáÈíÇäÇÊ") N = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 T = 18 For R = 1 To 7 For M = 1 To Y .Cells(N - 1 + M, R) = myRng1.Areas® .Cells(N - 1 + M, 8) = Cells(T + M, 7) .Cells(N - 1 + M, 9) = Cells(T + M, 3) .Cells(N - 1 + M, 10) = Cells(T + M, 5) .Cells(N - 1 + M, 11) = Cells(T + M, 1) .Cells(N - 1 + M, 11 + R) = myRng2.Areas® Next Next End With لانى محتاج فعلا افهم الترحيل ولكنى لست دارس لل v.b هذا لينتفع به جميع الاخوة
kabq قام بنشر يناير 18, 2008 قام بنشر يناير 18, 2008 (معدل) مشكووووووووووووووووووووور ين أخوتي ع الأهتمام تم تعديل يناير 18, 2008 بواسطه kabq
kabq قام بنشر يناير 18, 2008 قام بنشر يناير 18, 2008 أخي خبور مشكووووووووووور ع الجهد الرائع والجميل كـ عاداتك والشكر موصول للأخ ابو أسامة حيث عقب عما يدور بخلدي وهو: عندما نعمل Check Mark ع الصف المراد ترحيله يضل في مكانه على ان يكون الترحيل الى الصفحة الأخرى متتالي في الصف الخالي وان كان ذلك في ملف منفرد
alhomrani قام بنشر يناير 19, 2008 قام بنشر يناير 19, 2008 السلام عليكم ورحمة الله وبركاتهاتمنى اخي خبور خير الاطلاع على الرابط التاليطلب ترحيل بيانات
عبدالله باقشير قام بنشر يناير 20, 2008 الكاتب قام بنشر يناير 20, 2008 عندما نعمل Check Mark ع الصف المراد ترحيله يضل في مكانهعلى ان يكون الترحيل الى الصفحة الأخرى متتالي في الصف الخالي وان كان ذلك في ملف منفرد اخي تفضل المرفق اتمنى اخي خبور خير الاطلاع على الرابط التالي طلب ترحيل بيانات سياتيك الرد ان شاء الله قريبا خبور خير Trans2.rar 1
ابو اسامة العينبوسي قام بنشر يناير 20, 2008 قام بنشر يناير 20, 2008 السلام عليكم مشكور استاذ خبور مجهود رائع
عبدالله باقشير قام بنشر يناير 20, 2008 الكاتب قام بنشر يناير 20, 2008 السلام عليكم مشكور استاذ خبور مجهود رائع الاخ ابو اسامة العينبوسي حفظه الله لا شكر على واجب ادام الله قدرك وجزاك الله الف خير
الليث 77 قام بنشر يوليو 2, 2008 قام بنشر يوليو 2, 2008 (معدل) جزاك الله خيرالى طلب ارجو افادتى فية شرح الاكواد التى قمت بعملها Application.ScreenUpdating = False For E = 19 To 25 If Cells(E, 1).Value > 0 Then Y = Y + Cells(E, 1).Count End If Next With Sheets("ÍÝÙ ÇáÈíÇäÇÊ") N = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 T = 18 For R = 1 To 7 For M = 1 To Y .Cells(N - 1 + M, R) = myRng1.Areas® .Cells(N - 1 + M, 8) = Cells(T + M, 7) .Cells(N - 1 + M, 9) = Cells(T + M, 3) .Cells(N - 1 + M, 10) = Cells(T + M, 5) .Cells(N - 1 + M, 11) = Cells(T + M, 1) .Cells(N - 1 + M, 11 + R) = myRng2.Areas® Next Next End With لانى محتاج فعلا افهم الترحيل ولكنى لست دارس لل v.b هذا لينتفع به جميع الاخوة بسم اله الرحمن الرحيمالصلاة على أشرف خلقه أجمعين سيدنا محمد وعلى آله وصحبه أجمعين بعد الشكر الجزيل للأخ خبو رالخير نرجو منه شرح الكود لكي تعم الفائدة ذلك من بعد إذنه وإذا تكرم بذلك فنكون له من الشاكرين وإن لم يقعل نكون له من الشاكرين لما يقدمه من أعمال لها عمل ثمين أخي خبور عملك بإذن الله مقبول وذنبك بعون الله وفضل الله مغفور وأكوادك وشرحك عند الأعضاء له قبول فلا تبخل علينا مما علمك الله الغفور فشرحك يضيف على قلبنا الحبور ويجعلنا ندعو لك بأن ينفع بك الله العباد على طول بارك الله فيك وتقبل مروري والحمد لله رب العالمين تم تعديل يوليو 2, 2008 بواسطه os77
hoodahooda قام بنشر يوليو 3, 2008 قام بنشر يوليو 3, 2008 برجاء المساعدة في عمل كود ترحيل لهذه الصفحة Book2.zip
وحيد صبور قام بنشر يوليو 6, 2008 قام بنشر يوليو 6, 2008 السلام عليكم ورحمة الله مشكور ين اخوانى على هذا المجهود الرائع واطلب من سيادتكم الآتى انا اعمل سكرتير باحدى المدارس بمصر وكل عام اقوم بعمل المكافأة السنوية بالأكسيل ( معادلات ) القرش والجنيه معا ثم اقوم بوضع القرش فى خانه والجنيه فى خانة اخرى ثم قام احد الأشخاص واعطانى هذا البرنامج الذى يقوم بجميع العمليات الحسابية المطلوبة فى المكافأة ولكنه رفض ان يعطينى فكرتها وفى هذا العام تغيرت طريقة حساب المكافأة وهى كالآتى المدرس الحاصل على كادر المعلم تكون حساباته كالآتى 1 - خانة جملة المكافأة تحسب عن طريق ضرب اساس المرتب فى عشرة 2 - خانة الدمغة النسبية نخصم 50 ج من جملة المكافأة ثم نقوم بالعمليات الحسابية الآتية من 50 الى 249 تضرب فى 6 فى الألف من 250 الى 499 تضرب فى 6.5 فى الالف من 500 الى 999 تضرب فى 7 فى الالف من 1000 الى 4999 تضرب 7.5 فى الالف من 5000 الى 9999 تضرب 8 فى الالف 3 - خانة المعاشات اذا كان المدرس يحصل على الكادر نتبع الخطوات الآتية * اذا كان الراتب الأساسي للمدرس اقل من او يساوى 205.99 يخصم منه 10 % من قيمة المكافاة الاجمالى * اذا كان الراتب الأساسي للمدرس يساوى 206 وحتى 300 نتبع الآتى نقول ( 300 ناقص الراتب الأساسي فى 2 ) والناتج يعتبر هو المعاشات * اذا كان الراتب الأساسي للمدرس يساوى 300 وحتى 500 نتبع الآتى نقول ( 500 ناقص الراتب الأساسي ) والناتج يعتبر هو المعاشات * اذا كان الراتب الأساسي للمدرس 500 فاكثر لا يخصم منه شىء فى خانة المعاشات تابــــــــــــــــــــــــــــــع 3 خانة المعاشات اذا كان المدرس لا يحصل على الكادر نتبع الخطوات الآتية * اذا كان الراتب الأساسي للمدرس اقل من او يساوى 270.99 يخصم منه 10 % من قيمة المكافاة الاجمالى * اذا كان الراتب الأساسي للمدرس يساوى 271 وحتى 500 نتبع الآتى نقول ( 500 ناقص الراتب الأساسي ) والناتج يعتبر هو المعاشات * اذا كان الراتب الأساسي للمدرس 500 فاكثر لا يخصم منه شىء فى خانة المعاشات 4 - خانة الضرائب خانة الضرائب اذا كان المدرس يحصل على الكادر نتبع الخطوات الآتية * * اذا كان الراتب الأساسي للمدرس اقل من او يساوى 440 يعفى من الضرائب * اذا كان الراتب الأساسي للمدرس اكثر من 440 نتبع الآتى ( الراتب الأساسى ناقص 440 ) والناتج هو الضرائب تابـــــــــــــــــــــــــــــــــــــــع 4 4 - خانة الضرائب خانة الضرائب اذا كان المدرس لا يحصل على الكادر نتبع الخطوات الآتية * * اذا كان الراتب الأساسي للمدرس اقل من او يساوى 580 يعفى من الضرائب * اذا كان الراتب الأساسي للمدرس اكثر من 581نتبع الآتى ( الراتب الأساسى ناقص 581 ) والناتج هو الضرائب 5 - خانة النقابة * جملة المكافاة فى 2 % للمدرس المشترك فى نقابة المعلمين اما الغير مشترك فلا يخصم منه 2 % 6 - الموظف الخارج معاش لا يخصم منه سوى الدمغة النسبية فقط 7 - ثم نجمع خانة الدمغة النسبية والمعاشات والنقابة والضرائب وتوضع فى خانة جملة المستقطع 8 - نطرح جملة المستقطع من جملة المكافأة وتوضع فى خانة الصافى المستحق للمدرس ملحوظة هامة (( كل خانة مقسمة الى قرش جنيه )) ارجو افادتى فى هذا الموضوع يرحمكم الله او دلونى على مركز يقوم بتعليم مثل هذه المعادلات فى مصر فى محافظة اسيوط ومرفق طيه الملف الذ كنت احسب به المكافأة العام الماضى ولكنة محمى من الشخص الذى اعطانى اياه وجزاكم الله عنا الف الف الف خير
عبدالله باقشير قام بنشر يوليو 6, 2008 الكاتب قام بنشر يوليو 6, 2008 السلام عليكم الاخ/ وحيد صبور _______________-المحترم الآن طالعت مشاركتك هذه ورايتها (مليئة بالشرح ) ساطالعها غدا واذا رايت انها تحتاج الى وقت متيسر ساعملها لحضرتك واذا كانت غير ذلك فارجوا ان تقبل اعتذاري لاني حاليا مشغول باعمال اخرى تحياتي وشكري
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.