عبدالله المجرب

اخي سعد شكراً لك

حياك الله لكن اخي الفاضل الملف (ينقصة دالة تجزئة الاسماء والارقام المعرفة)

اخي فضل كلماتك الرقيقة احرجتني شكراً للتشجيع والعم اخي جلال شكراً لك

اخي عيد مصطفى شكراً لمرورك اخي ابو الحسن شكراً لك اخي جازيا شكراً لك اخي ابو نصار شكراً لمرورك

السلام عليكم لازال المطلوب غير مفهوم وخصوصاً ان الاسماء في الاوراق غير متشابهة!!!!!!

السلام عليكم اخي الفاضل اهلا بك بيننا وارجو منك الالتزام بقواعد المشاركة === تم دمج الموضوعين وتعديل العنوان وحذف المشاركات المكررة ===== جرب المرفق ان شاء الله يكو به طلبك تغيير الارقام بالزيادة والنقصان.rar

السلام عليكم ضع مرفق به المطلوب

شكراً اخي ابو نصار وهذا الحل بالمعادلات =MATCH($H$9;$A$1:$E$1;0)

السلام عليكم ومن باب تعدد الحلول وبعد إذن اخي ابو نصار ضع هذا الكود في حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) Dim cl As Range If Not Intersect(Target, Range("H9")) Is Nothing Then For Each cl In Range("A1:E1") If Target.Value = cl.Value Then Target.Offset(0, 2) = cl.Column Next End If End Sub

انا جربت البرنامج والباسوورد صحيح (لا تضع مسافة بين الكلمة والارقام) === هناك ملاحظة عند تغيير صلاحية مستخدم والخروج (لا يتم حفظ هذا التعديل)

زيارتك للموضوع وتعليقك عليه شرف كبير استاذ محمد شكراً لك

حياك الله وبالتوفيق ان شاء الله

السلام عليكم ورحمة الله ((هذه هدية العام الميلادي الجديد)) اخواني الكرام ،، قد يكون هذا الموضوع تم مناقشته كثيراً ولكن من باب الفائدة اضع بين يديكم كود تجزئة الاسم بحالتين الحالة الاولى: حسب التغير في الخلية ويتم التجزئة الى عدد لا محدود من المقاطع حسب طول الاسم الحالة الثانية: كود بزر أمر ويكون فية التجزئة للاسم الثلاثي والثنائي فقط المرفق أكسل 2003 لعموم الفائدة ******************************************************* ارجو من الاخوة التجربة وابداء الراي ابواحمد تجزئة الاسم .rar

ارجو التوضيح أكتر

الاستاذ الفاضل عبدالله باقشير (ابو علي) عمل متقن يُعجز من يريد المدح عن نظم كلمات المديح بارك الله فيك ورفع قدرك

خي مجدي الكود الذي انا اضفته يسبب لخبطة انا اسف لم استطع تعديل الخطاء

السلام عليكم بالنسبة للمطلوب الاول جرب المرفق Cheque Printing (1).rar

السلام عليكم اخي فضل شكراً على كل هذا الكلام الجميل وانا اقف معك وارفع القبعة احتراماً للاستاذان الفاضلان العيدروس وخبور خير فانا لم اقم الا بتعديل لا يذكر لكود احترافي بدائه العيدروس وختمه العلامة خبور

السلام عليكم هذا تعديل لكود العلامة خبور Sub kh_AddTextCRang() Dim T_A Dim B_ALI As String If Not ActiveCell.Comment Is Nothing Then B_ALI = Trim(ActiveCell.Comment.Text) For Each T_A In Split(B_ALI, vbLf) Range("H" & Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).Row).Value = Trim(T_A) Next End If End Sub

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

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

السلام عليكم اخي مجدي انا جربت هذا الكود Application.Speech.Speak ch وضعته في نهاية هذا الحدث ImageChEng_MouseDown في الفورم الانجليزي

السلام عليكم ارفق نموذج للشيت الكنترول بتاعك وسيتم بإذن الله إضافتها

آمين

لا تعليق!!!!!!!!!!!