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

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

وفجأة تختفى واقوم بفحص الميل لااجد الرسالة 

مشكور للاهتمام بارك الله فيك

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

مع الشكر