محمد عبدالسلام

المرجو من الأخوة من لديه فكرة ان يقدم لنا المساعدة وجزاكم الله خير الجزاء

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

طلب تعديل هل من طريقة لالغاء سطر 2الفارغ لما يتم تعديل في الخليةE

سلام عليكم ورحمه الله وبركاته خي مختار حسين محمود جزاك الله خيرا لوسمحت هل من طريقة لالغاء سطر 2الفارغ لما يتم تعديل في الخليةE

الســلامَ عليكـــم ورَحِمَـــة الله وَبَركــآتــه مع كامل احترامي وتقديري لأخينا مختار حسين محمود وجزاه الله عنا خير الجزاء استاذي الكريم سمير نجار جزاك الله خيرا على شرح المميز وتوضيح الامر بشكل مفصل

خي مختار حسين محمود جزاك الله خيرا رجعت الملف عدة مرات لكن عند تعديل بيانات فى الخلية E69 يتم اضافة سطر شاهد هذا الفيديو https://youtu.be/zIRoa5JdD2w?t=1

الســلامَ عليكـــم ورَحِمَـــة الله وَبَركــآتــه المرجو تصحيح هذا الكود للاخ مختار حسين محمود وجزاه الله عنا خير الجزاء المشكلة في الكود اذا وصلت للرقم 70اواكتر وتريد تعديل الرقم 65 سيتم ادراج سطر فارغ وهده مشكلة تصحيح هذا الكود للاخ مختار حسين محمود.zip

اخي سمير نجار هذا ماريد رائع جزاك الله خيرا وبارك الله فيك وانار لك طريقك بالعلم والايمان وجعلك من الاخيار الابرار ومن زمره الاتقياء الانقياء وبوأك من جنه الفردوس قصرأ وفقك الله. اما في الكود ادراج فعلان اذا وصلت للرقم 70 وتريد تعديل الرقم 65 سيتم ادراج سطر فارغ وهذه مشكلة لم الاحظها

اخي الفاضل سمير نجار وبعد اذن استاذنا القدير عمر الحسيني شاهد المرفق Omar_5.zip

جزاكم الله خيراخي هل استبدل هذه الدالة في الورقة ام في الكود

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

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

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

اخي سمير نجار على حسب فهمي في الموضوع جرب هدا لكود جاتوه في احد المواقع اجنبيه TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) TextBox1.SetFocus

بارك الله فيك اخي الكريم اخي سمير نجار لكن مازالت المشكلة قائمة

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

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

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

طلب تعديل لما تصل البايانت سطر 60 عمدما يتم اضافة سطر فارغ لكتابة الصنف 61 اريد ضبط الكود حتى ولوتم ادراج 100 سطر

المساعدة

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

الســلامَ عليكـــم ورَحِمَـــة الله وَبَركــآتــه اخواني الكرام لطلب جزاك الله خيرا ونفع بكم طلبي هو ضبط هذا كود استخراج الاجمالي والمجموع اوالقيمة الفاتورة يوجد في الفاتورة 60 سطر اويد ولما تصل البايانت سطر 60 يتم اضافة سطر فارغ لكتابة الصنف 61 اريد ضبط الكود حتى ولوتمى ادراج 100 سطر Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$62" Or Target.Address = "$H$63" Then [H64] = [H61] + [H62] - [H63] If Target.Column = 8 Then If Target.Row > 9 And Target.Row < 60 Then Target.Offset(, 1).Value = Target.Offset(, -2).Value * Target.Value: GoTo 86 End If End If If Target.Column = 6 Then If Target.Row > 9 And Target.Row < 60 Then Target.Offset(, 3).Value = Target.Offset(, 2).Value * Target.Value 86 [H61] = Application.WorksheetFunction.Sum(Range("I10:I60")) [H64] = [H61] + [H62] - [H63] End If End If End Sub test.rar

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

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

اخي مختار حسين محمود جزاك الله كل خير وبارك فيك وسدد خطاك وحفظك من شر الله يجعل هذا العمل بموازين حسناتك وجزااك الله عنا خير الجزاء لو سمحت خي اريد تغيير الحد