yara ahmed

اخواتى حبايبى انا مش عارفة هل الموضوع ده متاح فى الاكسيل انا عايزة ارسل ايميلات بالاسم والرقم المحلى والرقم القومى والمبلغ الى ايميل بحيث اضغط زر يرسل الايميلات مهما كان عددها مع حبى وشكرى ارسال ايميلات.xlsb

تمام فى الصفحة والله هو يعمل تمام ولكن بزر مربوط بالماكرو slim لايعمل بتغير القائمة المنسدلة كل الشكر والله للغالى استاذ سليم الباشا فى الاكسيل وفى كل حاجة والله باشا فعلا

استاذى واخى سليم حاصبيا معلش حاولت اغير القائمة المنسدلة من g1 الى F2 الكود لايعمل بالاختيار بس ربطه بزر يعمل مش عارفة ايه السبب Option Explicit Sub Salim() Range("E3:E50").ClearContents If Range("f2") = vbNullString Then Exit Sub With Range("E3:E50") .Formula = _ "=IF(INDEX($N$2:$R$50,ROWS($A$1:A1), MATCH($f$2,$N$1:$R$1))=0,"""",INDEX($N$2:$R$50,ROWS($A$1:A1), MATCH($f$2,$N$1:$R$1)))" .Value = .Value End With End Sub Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address(0, 0) = "f2" And Target.Count = 1 Then Salim End If Application.EnableEvents = True End Sub اجريت التعديلات صح بس لايعمل بمجرد الاختيار يجب ربط الماكرو سليم بزر ليعمل حبى وتقديرى وتحياتى وعميق شكرى لشخصك المحترم الكريم

الله ينور عليك يا باشا انا عايزة كود بزر يضيف هذه المعادلة النطاق من e3:e50 ربنا يكرمك يارب ويديك الصحة والعافية

تبدأ من nوتنتهى فى r مشكور يالغالي

استاذ سليم الجميل سليم حاصبيا والنبى عايزة المعادلة دى كمان بس تغير العمود Q الىR =CHOOSE(MATCH($G$1,$N$1:$Q$1,0), INDEX($N$2:$N$10,MOD(ROWS($A$1:A1)-1,COUNTA($N$2:$N$10))+1), INDEX($O$2:$O$10,MOD(ROWS($A$1:A1)-1,COUNTA($O$2:$O$10))+1), INDEX($P$2:$P$10,MOD(ROWS($A$1:A1)-1,COUNTA($P$2:$P$10))+1), INDEX($Q$2:$Q$10,MOD(ROWS($A$1:A1)-1,COUNTA($Q$2:$Q$10))+1)) مع الشكر من القلب

اخواتى حبايبى احتاج الى ان يعمل هذا الكود كتابة ما بالخلية b2 الى العمود b بدأ من الخلية b3 شرط ان يكون مكتوب فى الخلية E3 وهكذا اذا كتبنا فى E4 تكتب فى b4 اخى استاذ سليم العبقرى الممتاز جدااااااااااااا اهدانى هدية جميلة هى تلك المعادلة =IF(E3="";"";$B$2) حاولت ان احوله لكود بزر Sub test() [C1].Formula = "=IF(E3="""","""",$B$2)" End Sub طبعا ولا حاجة حصلت ههههههههههه مش عارفة ليه وكمان حاولت وضعها فى حدث اذا حدث تغير يعمل الكود ليعمل بدون زر بس محصلش حاجة مع الشكر يارا .xlsm

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

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

سليم حاصبيا اخى فى الله معلش انا اسفة والله عند نقل هذه المعادلة لملفى اعطيتنى خطأ =@CHOOSE(MATCH($G$1;$N$1:$Q$1;0); INDEX($N$2:$N$10;MOD(ROWS($A$1:A2)-1;COUNTA($N$2:$N$10))+1); INDEX($O$2:$O$10;MOD(ROWS($A$1:A2)-1;COUNTA($O$2:$O$10))+1); INDEX($P$2:$P$10;MOD(ROWS($A$1:A2)-1;COUNTA($P$2:$P$10))+1); INDEX($Q$2:$Q$10;MOD(ROWS($A$1:A2)-1;COUNTA($Q$2:$Q$10))+1)) حيث انى اريدها للعمود R وعاملة معايا مشاكل وحاولت تسجيل ماكرو وعمل كوبى وبيست لها بس ما نفع من الصبح والله ممكن شرح كيف ادرجه بميكرو واكون شاكرة لفضلك اخى yara_data_val.xlsm

جميل جميل قمر بحبك يالبنان سليم حاصبيا الف مليار شكر اخى حفظك وحماك رب العرش العظيم

سليم حاصبيا انا احبك فى الله اخى اشكرك من قلبى ربنا يفرحك زى ما بتفرحنى كان نفسى فى طلب ينفع المعادلة يكون فيها تعديل بحيث تكتب الى فى العمود بس مش لازم تعيد تانى اسماء الشيتات ويبقى جميل جميل لو فى العمود d تضع 0 جنب كل خانة مكتوبة فى العمود e وفى العمود b تكتب سليم جنب كل اختيار فى العمود e مكتوب فيه مشكوووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووورر

معلش فى حاجة تانية لا يستطيع عملها الا حضرتك يا اخى انا كل مرة باختار من هذه القوائم اسماء الشيتات التى احتاجها من اول e3:e50 فجاتنى فكرة عملت قائمة فى الخلية g 2 تحتوى عى اربع اسماء بيع وشراء واستقطاع واختيار وعملت اربع اعمدة n b o q ووضعت تحت كل كلمة فى الاربع اعمدة اسماء الشيتات التى احتاجها اريد عندما اختار من القائمةg2 اسم بيع يتم فى العمود e بدأ من الخلية e3 اختيار اسماء الشيتات التى بالعمود n واذا اختارت من القائمة g2 اسم شراء يتم فى العمود e بدأ من الخلية e3 اختيار اسماء الشيتات التى بالعمود o وهكذا والله هدعي لك من كل قلبى لانى كل مرة اضطر لان اغير ال 50 قائمة حسب اختيار اسم الشيت فجائتنى هذه الفكرة التى ستوفر عليا وقت كبير مشكور يا باشا ياغالى yara_data_val.xlsm

سليم حاصبيا انت سكر وعسل وقمر وشربات وكريمة بالمكسرات بس لو عندى اسماء الشيت 5 بخلاف مواد واعتما اغير هذا الجزء If Sh.Name Like "المواد*" Or _ Sh.Name Like "الاعتماد*" Then مع اضافة or يعنلى لو شيت اسمه يارا وشيت اسمه سليم وشيت اسمه ماجد مشكوووووووووووووووووووور ياباشا الاكسيل

اخويا الغالى لقلبى استاذ سليم العبقري فى شيت الاعتماد مشكور

اخواتى وحبايبى احتاج كود لعمل قائمة منسدلة بدا من E3:e50 باسماء الشيت بدا من الشيت رقم 6 اما اول 5 شيت لاتكون فى القائمة انا اضطر لعمل القوائم بشكل يدوى بس بعد اضافة شيت جديد بتاخد وقت منى مش عايزة ترتيب ابجدى عايزة بترتيب الشيت بدا من الشيت السادس والشرح فى الشيت شاكرة فضلكم قائمة منسدلة .xlsm

بارك الله فيك

جميل جميل جميل ياجميل الله ينور عليك تسلم ايدك تسلم ايدك حبيبى والله فى الله اخر شئ ممكن لو الكود متكرر عندما اضغط بحث ياتى الاسم الاول ولو ضغطت بحث تانى يختفى الاول وياتى الثانى وجزاك الله كل خيرات الدنيا اللهم امين

تمام اخى الكريم الغالى الفورم عندما اكتب 001فى التكست احتاج تعديلة من التعديلات السحرية لكى يقبل التكست بوكس كتابة 00111 اشكرك كل الشكر الجزيل

ممتاز تسلم وتعيش

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

اعتذر بسبب انقطاع الانترنت حاولت الدخول من الموبايل وفشل التحميل اخى وحبيبى فى الله سليم حاصبيا كل الشكر وخالص الدعاء لك من قلبى والله ولا اروع ولا ابدع انت مدهش اكثر الله خيرك وبارك فى صحتك ونصرك على اعداءك فى مشكلة بسيطة انا لدى الكود يبدأ ب 000111 اى يبدأ باصفار عندما حاولت البحث بالكود بالفورم ب00111 تحول الرقم الى 111 كيف لى تحويل التكست الى 000111 او00111او011 على فكرة الاسماء تحفةةةةةةةةةةةةةةةةة شكرى لك من القلب

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

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

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