ياسر خليل أبو البراء

بارك الله فيك يا أبو فرحات إن شاء الله بداية موفقة ملحوظة بالنسبة للفورم يوجد بعض عناصر التحكم مكررة كالرقم القومي .. وزر الأمر بحث

أخي الفاضل أبو نبأ الموضوع أبسط مما تتخيل ضع فقط الكود في حدث المصنف Private Sub Workbook_Open() UserForm2.Show End Sub بعد الدخول على محرر الأكواد ..ستجد نافذة المشروع فيها ThisWorkbook دبل كليك عليها والصق الكود وهو خاص بإظهار الفورم الذي تسأل عنه

نعم يمكن الاستغناء عنه ...يمكنك بعد إدخال جميع العملاء تنفيذ الماكرو مرة واحدة .. ولن تحتاج إلي الكود مرة أخرى طالما أنه لا يوجد تغيير في أسماء العملاء كليك يمين على زر الأمر ثم Cut لحذف الزر .. لتنفيذ الماكرو يمكنك الضغط على ALt + F8 من لوحة المفاتيح فيظهر لك أسماء الماكرو الموجودة لديك ...اختر الماكرو الذي تريد تنفيذه ثم اضغط Run

بارك الله فيك أخي الغالي الشهابي .. تسلم وربنا يجازيك خير إضافة بسيطة لحساب التاريخ لتفادي اليوم الزائد شهادات.rar

أخي الكريم كريم ارفق الملف المشابه وأخبرنا ما الذي تريد تعديله بالضبط ..

http://www.officena.net/ib/index.php?showtopic=60147

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

الاخ الحبيب محمد جرب الكود بالشكل التالي .. إذا كانت قيمة أي خلية بالعمود الأول تساوي أياً من الرموز التي أدرجتها يقوم الكود بمسحها .. الرموز لا تكون ضمن نصوص أخرى ..تمسح فقط إذا كانت بالخلية أي رمز ClearContents Special Characters.rar

اطلع على هذا الملف ..سبق أن طرح موضوع بهذا الشأن يمكنك البحث عنه Rows To Repeat At Bottom.rar

أخي الحبيب صلاح .. النصيحة ليست لك وحدك أنا لا أقصدك شخصياً والله النصيحة موجهة لكثير من الأعضاء بسبب تلك الأمور فأحببت أن أوضح ...لأني تعبت من هذا الأمر !! في المنتديات الأجنبية يتم التنبيه على العضو مرة واحدة وإذا لم يلتزم يتم إقصاؤه ويا أستاذي الفاضل صلاح حقك عليا لو كنت زعلتك ..أنا بس عشمان تلتزموا بقواعد المنتدى .. النصيحة للجميع وليست موجهة لك وحدك وأشهد الله أني أحبكم في الله تقبل تحياتي

ارفق ملف للعمل عليه ..

بعد إذن الأخ فؤاد تم عمل المطلوب على النطاق الملون باللون الأخضر Absence Entry.rar

لما الموضوع مكرر .. http://www.officena.net/ib/index.php?showtopic=60112 يا أخي بالله عليك بلاش تشتت مجهود الأعضاء ..أستحلفك بالله إذا طرحت موضوع : يجب أن يكون عنوان الموضوع واضح ومعبر عن الطلب عدم الالحاح في الردود .. ينبغي أن يمر ساعتين أو ثلاثة على الرد لإتاحة الفرصة للأعضاء للرد على مشاركتك أنا يكون الطلب واضح ومرفق ملف به شكل المخرجات المطلوبة .. تقبل تحياتي

الحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

الأخ الفاضل صلاح يرجى عدم إرسال رسالة خاصة فيها طلب مساعدة ..أنا أقوم بالإطلاع على الموضوعات وإذا كان لدي فكرة وحل ووقت قمت بمد يد العون بإذن الله بدون إلحاح .. تفضل الملف المرفق عله يكون المطلوب (ولا تنسى أن تختار المشاركة التي أعجبتك كأفضل إجابة كي تكون دليل للباحث فيما بعد) Validation List VBA And Zoom.rar

جرب الكود التالي كبداية فقط ..يمكنك الإطلاع على الأسطر وتكملة باقي الفورم .. بالنسبة لورقة العمل (قاعدة البيانات) يوجد عمودين للغياب ..على أيهما تريد العمل ... أعتقد أن الورقة بحاجة إلى ضبط بعض الشيء .... Private Sub CommandButton1_Click() On Error GoTo Error: If TextBox1 = "" Then MsgBox ("ادخل نص في حقل البحث") Else Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate TextBox5 = ActiveCell TextBox2 = ActiveCell.Offset(, 1) TextBox3 = ActiveCell.Offset(, 26) End If Exit Sub Error: MsgBox ("لا تتوفر نتائج للبحث") End Sub

الأخ الحبيب الحسام .. الحمد لله أن تم المطلوب إن شاء الله على خير ... إنت لاحظت رقم المشاركة اللي إنت عاملها أفضل إجابة (إنتو بتنرفزوني ليه :Rules: تقبل تحياتي

الحمد لله الذي بنعمته تتم الصالحات .. وطالما إني ساعدتك والحمد لله ، فمتنساش أخوك بدعوة بظهر الغيب ..وافتكرني دايماً وإنت بتدعي تقبل تحياتي أخي فؤاد

الأخ رؤوف شعرون .. بداية مرحبا بك بين إخوانك ، وإن شاء الله تكون عضو فعال وليس متلقي فقط ثانياً عنوان الموضوع يرجى أن يكون معبر عن الموضوع ..يرجى الابتعاد عن العناوين الغير معبرة ثالثا الملف يبدو أنه متعوب عليه ..تسلم ايدك بصراحة وربنا يخليلك أولادك (زي القمر بصراحة ..بسم الله ما شاء الله لتقول إني حسدتهم !!) رابعا طلبك غير محدد المعالم ..تريد المساعدة في كود البحث ..كيف تريد العمل على البحث وما شكل النتائج المرجوة من البحث لأني لاحظت أن هناك كود للبحث بالفعل ...هل تقصد التعديل عليه في نقطة معينة أم أنك تريد أمراً آخر .. خامسا بس خلاص تقبل تحياتي

الأخ الفاضل فؤاد ... إليك الملف التالي (لا تنسى أن تحدد المشاركة كأفضل إجابة إذا راقك الحل) Copy Sheet Based On Cell Value.rar

فكرة أخرى ارفق جدول فيه كل وظيفة والمقابل لها أي تتبع أي مجموعة نوعية ، ويمكن في هذه الحالة استخدام دالة VLookup كبديل للدالة المعرفة (إذا كنت تفضل المعادلات)

ادخل لمحرر الأكواد Alt + F11 ستجد الدالة المعرفة ..اطلع عليها وشوف تركيبة الدالة ..إن شاء الله تجدها سهلة ..يمكنك إضافة المزيد من الشروط .. إذا صعب عليك الأمر قم بإرفاق كل الشروط وستجد المساعدة بإذن الواحد الأحد

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

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

تفضل الملف المرفق وإن كنت أفضل أن تحاول التعلم بنفسك مسح محتويات النطاق.rar