yara ahmed

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

لو سمحت استاذ ابوخليل ممكن اعرف ازى اطبق هذه الطريقة على ملف اكسيل لدى به اكواد Vba اريد ان اكتب بالاكسيل فيتم التخزين فى الاكسس بهذه الطريقة ممكن شرح كيف اطبق على ملفى بارك الله فيك

اخويا حبيبى ربنا ما يحرمنى منك ابدااا بص انا عندى الكود بيستدعى التاب الاحمر لو اختارنا اللون 3 فى الخلية N1 وبيستدعى التاب الاخضر اذا اختارنا 10فى الخلية N1 وبيستدعى التاب اللبنى اذا اختارنا 55 فى الخلية n1 انا عايزة تعديل اضافة امكانية استدعائهم مع بعض كأنهم لون واحد يعنى 3 للتاب الاحمر فقط 10 للتاب الاخضر فقط 55 للتاب للبنى فقط والاضافة الجديدة 10,3,55 لاستدعاء التاب التى بالثلاث الوان مع بعض حفظك ورعاك ربى

انا اسفة ها هو Yara_Exacte.xlsb

اخى استاذ الاساتذة الجميل سليم حاصبيا احتاج تعديل فى هذا السطر المختص بتحديد لون الشيت المطلوبة وهو تمام احتاج الى استدعاء لونين او ثلاثة الوان فعملت محاولة كتبت ("N1&N2&N3") وبداخل N1 كتبت 3+10 , 3,10 وطبعا طبعا فشلت معلش احتاجك اخى ربنا ما يحرمنى منك يارب If Sh.Tab.ColorIndex = D.Range("N1") Then Yara_Exacte.xlsb

يعمل 100% كنت احتاج هذا السطر جداااااااااااااااااااا لكى يعمل الكود على ملف محمى تحفة تسلم ايدك

طيب هل يمكن ان يرحل الاكسيل البيانات الى الاكسس بمعنى اخر يكون الاكسس مخزن بيانات للاكسيل ويمكن ان استدعى البيانات من الاكسس الى الاكسيل هل يمكن عمل ذلك والسبب الحفاظ على البيانات بقواعد بيانات وربطها بالاكسيل الذى به ماكروهات الترحيل والاستدعاء مع الشكر

ماشاء الله تبارك الله حفظك الله سليم حاصبيا

لا انا عايزة اضيف على الكود مش استبدله عايز اضيف pos*15% هل اعمل كوبى لكل الشرح الى فات واكتب (Part_sum = Round(Sum_pos * 0.15 اسفل السطر Part_sum = Round((Sum_pos * 0.85) + Sum_Neg, 2) مشكور اخى الاستاذ العبقرى ماشاء الله عليك

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

جميل والله انت مدهش بارع ماشاء الله عليك حبيبى والله تسلم وتعيش والله ربنا مايحرمنى منك يارب تسلم حفظك الله ياغالى هذا هو المطلوب واكثر والله الف مليون شكر

الف الف الف الف شكرررررررر اخويا حبيبى حفظك الله

تسلم وتعيش وتسلم ايدك كل ما اريده ان اظل اعمل من خلال الفورم فانا اقوم مثلا بترحيل للاسماء مبالغ وبعد ما انتهى تعرض لى فى الفورم التكست التى مكتوب عليها sum g-sum j الفرق بين ما تم ادخاله مفرد والاجمالى الذى اكتبه فى العمود j مثال انا ادخلت بالفورم للاسماء 8 ,5,2 فى العمود G واغلق الفورم واذهب لاخر رقم مكتوب فى العمود J واكتب الاجمالى 15 فاذا عرض بالفورم فى الخلية sum g-sum j ان الناتج = 0 اذن انا كده صح اما اذا كان الناتج رقم لازم اراجع ما قمت بادخاله فى العمود G لذا كنت احب اعمل كله من خلال الفورم كما هو الان يتم الترحيل الحمد لله للعمود G وكمان اذا ادخلت رقم اخر بيتجمع على القديم تمام بس واجهتنى مشكلة ممكن انسى انى ادخلت رقم واضعه مرة اخرى فيتم الجمع هل ممكن تظهر لى شاشة تقولى هناك رقم بالخلية هل تريدى الجمع عليه بحيث لو انا كنت ناسية انى ادخلت الرقم اذهب للعمود واتأكد او ان الجمع يظهر بشكل المعادلة مثلا 15+12 بحيث يمكنى ان اراجع ما ادخلته ويوجد التكست sum G-sum J تعرض لى الفرق بين العمود g-j ينقصنى نقطة ان اضع الرقم الاجمالى فى التكست الجديدة التى وضعتها لونها لبنى واضغط ترحيل فترحل الى العمود j وبذلك اتأكد ان الادخال الفردى=الادخال الاجمالى انا شرحت لحضرتك الموضوع تفصيلى وما تحب ان تفعله افعله شكراااااااااااااااااااااااااااااا

لا هذه الخانة تعرض فقط اخر قيمة فى العمود j مشكور يالغالي

انا هموت من الفرح اخويا سليم حاصبيا والله مش عارفة اشكرك واقولك ايه الكلام طار من الفرحة انت مش ممكن مش ممكن محترف وجميل ورائع ياربى هذا كان حلم بالنسبة لى اشكرك من كل قلبى عايزة اخر طلب فى الموضوع ده ويبقى ربنا كرمنى جدااااااااااااااااااا بفضل الله وفضلك اخويا حبيبى معلش عملت بالفورم تكست لونها لبنى وفوقها زر اسمه ترحيل الى العمود j اريد ان اكتب اى رقم فى التكست اللبنى واضغط ترحيل الى العمود j فيتم الترحيل واشكرك فرحتنى يارب يفرحك ويفرح قلبك ويفرح حبايبك ااااا Jadid_YARA_2User..xlsm

ممكن اخى اتباع الاتى edit links ثم broken

كل عام وحضراتكم بخير فورمى هذا تصميم الاستاذ الكريم سليم حاصبيا سليم حاصبيااريد تعديل منع الترحيل اذا كانت الخلية بها رقم الخلية التى يتم الترحيل اليها بالعمود G اذا كان بها رقم اريد الفورم يبلغنى لا يمكن الترحيل اليها فاقوم انا بعمل اضافة يدوية للرقم مثلا اذا كان بالخلية G4 رقم 5 ,وحاولت الترحيل اليها عن طريق الفورم ررقم 8 فستم مسح الرقم5 واضافة الرقم8 وهذا ما لا اريده اريد اما ان يخبرنى الفورم ان هناك رقم بالخلية المرحل اليها فاقوم انا بعمل معادلة =5+8 او ياريت طبعا ان يقوم بجمع الرقم المرحل على القديم المكتوب ويظهر الناتج13 ياريت ياريت ياريت اشكركم Jadid_YARA_2User Uniqus..xlsm

اللهم انصر لبنان وأهل لبنان اللهم امين يارب

السلام عليكم هذا الماكرو للاستاذ عادل حنفى عند الانتقال لشيت 2 يطلب باس ورد وهى5 اريد عند كتابة الرقم5 او عند تغير الباس ورد تتحول الى * مع الشكر Private Sub Worksheet_Activate() Sheet2.Range("Z1000").Activate xx: Dim x x = InputBox("Password required" & Chr(13) & "welcome to Officena", "Welcome to Officena") If x = 5 Then Sheet2.Range("A1").Activate MsgBox "welcome to sheet2" Else MsgBox "Wrong Password" & Chr(13) & " you shall go to sheet 3 and not 2, Bye !!", vbOK Sheets("sheet3").Activate End If End Sub goto the page with pass.xls

الاخوة الافاضل هذا الكود تصميم اخى الفاضل الاستاذ الرائع سليم حاصبيا كود جلب البيانات بين تاريخين للصفحات التى لون التاب لها اخضر والتى لونها احمر اعمل عليه وممتاز وادعيله ربنا يوفقه يارب وينصره امين عملت قائمة مكونة من 3 اختيارات سالب وموجب وشامل الكود الان يجلب البيانات الموجب-السالب تمام احتاج الى عندما اغير بالقائمة واختار سالب يجلب البيانات السالبة فقط وعند اختيار موجب يجلب البيانات الموجبة فقط وعند اختيار شامل يعمل ما يعمله الان الموجب-السالب كعملية الجمع الفرق بين الموجب والسالب واكون شاكرة وممنونة yara_Col_test.xlsb

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

استاذى واخى حبيبى سليم حاصبيا انت قمر وجميل وعسلللللللللللللللل وسكر والله تمام هذا الجزء تمام الله ينور عليك بس فيه حاجة غريبة فى العمود G الارقام لازم ادخل فى قائمة Text To Columns واضغط نيكست نيكست واختار جينرال وفينش ليتم جمع الارقام فى هذه العمود بصورة صحيحة بعد كل ترحيل لازم اعمل كده وعايزة اخر تعديل ان شاء الله الى هو ترحيل للعمود j عملت زر بالفورم اسمه ترحيل للعمود j عايزة اكتب فى التكست الى تحت هذا الزر اى رقم واضغط على هذا الزر يترحل للرقم الى العمود j بدأ من j2:j1000 كل شكرى وحبى وتقديرى من قلبى ودعاءى للبنان واهل لبنان بحبك يالبنان ياوطنى بحبك NewYARA_2User Uniqus..xlsm

اخى فى الله واستاذى سليم حاصبيا اتمنى تكون بكل خير الدنيا يارب معلش عايزة اضافة للفورم الجميل وهو خانة تقوم بعرض نات ج المعادلة =g2:g10000-j2:j10000 بداخل الفورم وخانة اخرى تقوم بترحيل الرقم الذى يكتب فيها الى العمود j بدا من j2 الفائدة منهم انى ادخل الارقام وفى اخر الاورق رقم اجمالى لكل ورقة فأقوم بوضع الاجمالى الى بالاوراق فى العمود j وفى اى عمود اخر عامل معادلة =sum لطرح مجموع العمود g2:g10000 ناقص الارقام التى بالعمود j واذا كان الناتج =0 اذن انا صح بس باخد وقت لذا ارجو من حضرتك وضعت خانتين فى الفورم وارجو وضع المعادلة فى احدهم وترحيل للعمود j لاتمكن من الضبط وكل شئ من خلال الفورم والله انا شغالة بيه وبدعى لك جدااا كل يوم اشكرك اخى وحبيبى فى الله YARA_2User Uniqus..xlsm

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

هذا طلبى فعلا استاذنا اريد ارسال ايميل بما هو موجود بالاكسيل مع الشكر