اخواني الكرام لطلب جزاك الله خيرا ونفع بكم

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

الســلامَ عليكـــم ورَحِمَـــة الله وَبَركــآتــه     

اخواني الكرام لطلب جزاك الله خيرا ونفع بكم

طلبي هو ضبط هذا  كود استخراج الاجمالي والمجموع اوالقيمة الفاتورة يوجد في الفاتورة 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

تم تعديل سبتمبر 21, 2016 بواسطه محمد عبدالسلام

[سمير نجار]

تفضل اخي الكريم محمد

test1.rar

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

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

بارك الله فيك اخي الكريم

 

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

المساعدة

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

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

تم تعديل سبتمبر 22, 2016 بواسطه محمد عبدالسلام

[مختار حسين محمود]

 السلام عليكم

أخى سمير  جزاك الله خيرا

تمام اللى عملته لكن يمكن اختصار المعادلة  كما فى المرفق

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

تفضل

الحل في حجم ورقة الفاتورة 5.rar

[سمير نجار]

وعليكم السلام اخي الكريم مختار

بارك الله فيك

لدي سؤال : اذا حذفت المعادلة من الخليتين H72  H75 فلا يتم عمل الكود الذي في حدث الورقة ..

أليس من المفترض أن يعمل الكود تلقائياً؟؟ واذا كان كذلك فما الفرق بين المعادلة والكود في هذه الحالة؟؟

لك تحياتي

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

وعليكم السلام ورحمة الله وبركاته

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

 

اخي طلب ضبط الكودتوجد مشكلة في الكود

لما يتم تعديل السعر  الكود يعمل بشكل جيد ولما يتم تعديل الكمية  الكود لايستجيب في عمود القيمة

 

 

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

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

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

[مختار حسين محمود]

كل المعادلات تنزل فى الخلايا بالكود

الحل في حجم ورقة الفاتورة 6.rar

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

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

 

[سمير نجار]

15 ساعات مضت, محمد عبدالسلام said:

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

 

لكن المشكلة قائمة هاهنا وهي انك لو حذفت المعادلة من الخلية من غير قصد فلن تعمل المعادلة وان كانت موجودة في حدث الورقة. ولا أدري هذه الحالة خاصة هنا ام عامة

 

وما دمت تخشى من حذف المعادلات فالحل هو  حماية الخلايا

4 ساعات مضت, محمد عبدالسلام said:

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

بعد اذن اخي مختار

استبدل هذه المعادلة بالتي عندك في حدث الورقة

 

=SUM(INDIRECT(ADDRESS(ROW()-3,COLUMN(),4)&"":""&ADDRESS(ROW()-2,COLUMN(),4)))-(INDIRECT(ADDRESS(ROW()-1,COLUMN(),4)))

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

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

[سمير نجار]

اخي الكريم محمد

عفواً هل استبدلت المعادلة التي في حدث الورقة.. تأكد من ظهورالمعادلة في الخلية الهدف..

الملف يعمل عندي بشكل جيد!!!!

لكن هناك مشكلة اكتشفتها في الكود

عندما تكتب الاسم ثم تنتقل للكمية والسعر ثم تعود للاسم .....وعلى هذه الوتيرة لا مشكة في الكود

جرب كتابة الاسم ذي الرقم 60  طبعاً عندها سيتم ادراج سطر فارغ للاسفل . صحيح؟

جرب و عدل الاسم60 ثم عدله مرة اخرى (لاحظ مجموع الفاتورة والاجمالي)

امر اخر : اذا وصلت للرقم 70 وتريد تعديل الرقم 65 سيتم ادراج سطر فارغ بعد 65 وهكذا

 

جزاك الله خيراً

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

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

بارك الله فيك

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

المرجو حل هده المشكلة في الكود

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

 

 

تم تعديل سبتمبر 23, 2016 بواسطه محمد عبدالسلام

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

12 ساعات مضت, محمد عبدالسلام said:

المرجو حل هده المشكلة في الكود

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

 

 

 

المرجو ضبط هده المشكلة في الكود

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

[سمير نجار]

اخي الحبيب محمد

اذاً انت تريد : الاجمالي = مجموع الفاتورة + الباقي من الحساب القديم

استبدل هذه الدالة في حدث الورقة بهذه

=SUM(INDIRECT(ADDRESS(ROW()-3,COLUMN(),4)&"":""&ADDRESS(ROW()-2,COLUMN(),4)))

 

تم تعديل سبتمبر 24, 2016 بواسطه سمير نجار

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

جزاكم الله خيراخي

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

تم تعديل سبتمبر 24, 2016 بواسطه محمد عبدالسلام

[سمير نجار]

اخي محمد

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

إليك الملف حسب ( الطريقة صاح ) التي تريدها

لكن أرجع واكرر بأن الكود فيه مشكلة

في ٢٣‏/٩‏/٢٠١٦ at 19:13, سمير نجار said:

لكن هناك مشكلة اكتشفتها في الكود

عندما تكتب الاسم ثم تنتقل للكمية والسعر ثم تعود للاسم .....وعلى هذه الوتيرة لا مشكة في الكود

جرب كتابة الاسم ذي الرقم 60  طبعاً عندها سيتم ادراج سطر فارغ للاسفل . صحيح؟

جرب و عدل الاسم60 ثم عدله مرة اخرى (لاحظ مجموع الفاتورة والاجمالي)

امر اخر : اذا وصلت للرقم 70 وتريد تعديل الرقم 65 سيتم ادراج سطر فارغ بعد 65 وهكذا

 

الحل في حجم ورقة الفاتورة 7.rar

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

اخي سمير نجار هذا ماريد رائع 

جزاك الله خيرا وبارك الله فيك وانار لك طريقك بالعلم والايمان وجعلك من الاخيار الابرار ومن زمره الاتقياء الانقياء وبوأك من جنه الفردوس قصرأ وفقك الله.

اما في الكود ادراج فعلان اذا وصلت للرقم 70 وتريد تعديل الرقم 65 سيتم ادراج سطر فارغ وهذه مشكلة لم الاحظها

 

 

 

تم تعديل سبتمبر 25, 2016 بواسطه محمد عبدالسلام

[سمير نجار]

اخي محمد وفقك الله واياي لما يحبه ويرضاه وأعطاك مثلما دعوت