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

كود بحث وإضافة من اعداد الاستاذ الخالدي رابط المشاركة الاصلية x1 = InputBox(" ادخل نص البحث", "بحث وإضافة") If IsNull(x1) Or x1 = "" Then Exit Sub x2 = InputBox("البحث عن : " & x1 & Chr(13) & Chr(13) & " ادخل نص الإضافة", "بحث وإضافة") If IsNull(x2) Or x2 = "" Then Exit Sub On Error GoTo Error: r1 = "$A$1" r2 = "$A$1" 1: r3 = Cells.Find(What:=x1, After:=Range(r2), LookIn:=xlValues, LookAt:=xlPart).Address s = s + 1 r2 = r3 If s = 1 Then r1 = r3 Else If r1 = r3 Then GoTo 2 x3 = Range(r2).Value x4 = x3 & " " & x2 Range(r2).Replace What:=x3, Replacement:=x4, LookAt:=xlPart GoTo 1 2: MsgBox ("عدد النتائج:" & s - 1) Exit Sub Error: MsgBox ("لايوجد نتائج") بحث وإضافة.rar

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

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

اخي skyblue على حد فهمي المتواضع للمطلوب ارفق لك الملف بعد التعديل عليه في خانة رصيد الدفاتر للدائن والمدين فقط اخي جرب المرفق واعلمني بالنتيجةbook15.rar

اخي الفاضل كود الاخ تومي يمكنك وضعه في ميكرو ثم تشغيل الميكرو ليتم حساب النص المدخل ولكن الكو يحسب المسافات كانها حروف مدخله فان كان لا يوجد مانع من ذلك فسارفق لك الشرح ان شاء الله

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

اخي أمان شكراً على كلماتك الجميله وهذا جزء من دين نرده لهذا المنتدى

استاذنا العزيز ابو نصار الحمدلله على سلامتكم

الاخ الحبيب "الحسامي" ابداع بلا حدود و تالق بامتياز ابواحمد

اخي ايهاب تفضل الملف المرفق تم استبدال المعادلات بكود ابواحمد ehab.rar

الاستاذ الفاضل هشام سلمت يمينك وبارك الله فيك اخي الفاضل بالاضافة الى حل الاستاذ هشام ومن باب التعدد في الحلول تفضل الحل المرفق ابواحمد Book1.rar

اخي جمال دغيدي تم عمل الكود حسب طلب الاخ صاحب المشاركة

اخي الفاضل ملاحظتك في محلها كما ان اي كود يمكن تجاوزة برفع مستوى امان الميكرو

اخي جمال الفار اخي Jamal Sbaih شكراً لمروركما

اخي الفاضل على مرفق الاستاذ جمال ثم التعديل تم اضافة كود يقوم بعملية التكرار حتى الوصول الى اخر اسم في الكشف ولفهم الكود راجع مشاركات شرح الفيديو فيه شرح للاستاذ معتصم لشرح الجملة التكرارية ابواحمد officena Gamal.rar

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

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

اخي العزيز يحياوي بالفعل ما اجمل ابداعاتك خواتم مباركة وكل سنة وانت طيب ابواحمد

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

للاسف التعديل لا يشمل العنوان ابواحمد

اخي الفاضل المطلوب اولاً نرجو منك تعديل العنوان بما يتماسب ومضمون الطلب ولعمل ذلك ستجد في اسفل اول مشاركة في جهة اليسار ثلاثة خيارات 1. تعديل 2. رد 3. اقتباس متعدد فقم باختيار تعديل وقم بتعديل العنوان كون هذا العنوان مخالف لقواعد المشاركة ثانياً تم ارفاق الحل وبه ثلاثة خيارات لذا اذا اردت ان تقوم بطباعة اي اسم قم بتحديد الصف الذي تريد ثم ستكون لديك الخيارات التالية الاول معاينة ماتم اختياره الثاني المعاينة ثم الطباعة الثالث الطباعة بدون معاينة ابواحمد officena.rar

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

اخي واستاذي ابو عبدالله حل ممتاز ونتمنى ان نراك دائماً معنا

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

اخي أمان تفضل المرفق عبدالله.rar