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

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

اخى فى الله

الف شكر لك اخويا الغالى لقلبى

ربنا يكرمك يارب استاذى واخى

تمام جداااااا ربنا يباركلك يا باشا

ويعزك ويسترك اللهم امين يارب