كود

[ياسر فاروق]

برجاء المساعدة

مرفق ملف به 2 شيت وممكن أن يكونوا أكثر حوالى 20 شيت

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

ويتم ذلك فى جميع الشيتات مره واحده

وشكرا

 

BOQ.rar

[طارق محمود]

السلام عليكم
أخي الكريم
جرب هذا الكود
 

Sub BOQ()
    
    For s = 1 To Sheets.Count
        Sheets(s).Select
        x = Cells.SpecialCells(xlCellTypeLastCell).Row
        For r = 8 To x
            If IsNumeric(Cells(r, "G")) = False Then Cells(r, "D").FormulaR1C1 = "=RC[2]*RC[4]"
        Next r
    Next s
End Sub

 

[طارق محمود]

السلام عليكم
أخي الكريم
جرب هذا الكود
 

Sub BOQ()
    
    For s = 1 To Sheets.Count
        Sheets(s).Select
        x = Cells.SpecialCells(xlCellTypeLastCell).Row
        For r = 8 To x
            If IsNumeric(Cells(r, "G")) = False Then Cells(r, "D").FormulaR1C1 = "=RC[2]*RC[4]"
        Next r
    Next s
End Sub

مرفق الملف وبه الكود

BOQ.rar

[ياسر فاروق]

أخى الكريم  طارق محمود

أشكرك على مجهودك واستجابتك

ولست أنكر انا جديد على هذا (أوامر الكود) ولكنى قرأت كثير وبصراحة أكثر من رائع هذه الأكواد ولأهل العلم

وأطمع فى مساعدتك أكثر:

- حاولت أعمل مفتاح أختصار ولم أنجح.

- المعادلة تتم على كامل العمود ولا ترتبط الإ بوجود رقم فى عمود الكمية.

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

المساعده فى الاتى:

- وضع مجموع الصفحة فى نهاية كل صفحة بمعنى - فى السطر المكتوب به To Collection أو المجموع المرحل -

- ترحيل مجموع كل صفحة أمام رقمها فى الصفحة التجميعية أخر الشيت (إجمالى ملخص الأعمال)

- ترحيل مجموع الصفحة إلى الصفحة التجميعية لكل الـ 16 شيت

يوجد ملحوظة هامة: الملف متغير فى عدد الشيتات على حسب نوع المبنى وبالتالى يتغير عدد الاقسام التجميعية للشيتات (أقل)

BOQ.rarسوف أرفع لك الملف به الاجمالى لكل الشيتات

ولك جزيل الشكر والتقدير

 

[ياسر فاروق]

أخى الكريم  طارق محمود

بعد إذنك ممكن أن نعتمد على قاعدة  IF فى العمليات السابقة 

وهل من الافضل وضع كود

 

[ياسر فاروق]

في ‏١٦‏/‏٠١‏/‏٢٠١٧ at 07:08, YasserOriba said:

أخى الكريم  طارق محمود

بعد إذنك ممكن أن نعتمد على قاعدة  IF فى العمليات السابقة 

وهل من الافضل وضع كود

 

أخى الكريم  طارق محمود

إذا كان وقتكم لا يسمح فى عمل الكود بالشكل المطلوب

ممكن ان نعتمد على قاعدة IF 

[ياسر فاروق]

في ‏١٢‏/‏٠١‏/‏٢٠١٧ at 14:17, YasserOriba said:

الأساتذة الافاضل

برجاء المساعدة فى المرفق

في ‏١٢‏/‏٠١‏/‏٢٠١٧ at 14:17, YasserOriba said:

 

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

المساعده فى الاتى:

- وضع مجموع الصفحة فى نهاية كل صفحة بمعنى - فى السطر المكتوب به To Collection أو المجموع المرحل -

- ترحيل مجموع كل صفحة أمام رقمها فى الصفحة التجميعية أخر الشيت (إجمالى ملخص الأعمال)

- ترحيل مجموع الصفحة إلى الصفحة التجميعية لكل الـ 16 شيت

يوجد ملحوظة هامة: الملف متغير فى عدد الشيتات على حسب نوع المبنى وبالتالى يتغير عدد الاقسام التجميعية للشيتات (أقل)

BOQ.rar

 

 

 

BOQ.rar

[ياسر فاروق]

في ‏١٢‏/‏٠١‏/‏٢٠١٧ at 14:17, YasserOriba said:

الاساتذة الأفاضل

مرفق ملف به عدد من الشيت مطلوب مساعده فى الاتى:

- ضرب عمود الكمية (H) × عمود السعر (F) ويظهر الناتج فى عمود الاجمالى (D) (ملحوظة: هذه الأعمدة متغيرة على حسب الجدول المطلوب وتقسيمه)

- تفقيط السعر فى العمود (E) وتفقيط الاجمالى فى العمود (C) (ملحوظة: هذه الأعمدة متغيرة على حسب الجدول Site.rarالمطلوب وتقسيمه)

- وضع مجموع الصفحة فى نهاية كل صفحة بمعنى - فى السطر المكتوب به To Collection أو المجموع المرحل المظلل باللون الأصفر (كمثال فى شيت Roads)

- ترحيل مجموع كل صفحة أمام رقمها فى الصفحات التجميعية أخر صفحات البنود (إجمالى ملخص الأعمال) المظلل باللون الأحمر(كمثال فى شيت Roads)

- ترحيل مجموع الصفحة (To Bill Summary) إلى الصفحة التجميعية (Summary) لكل الـشيت على حسب ترتيب الاقسام

يوجد ملحوظة هامة: الملف متغير فى عدد الشيتات ممكن أكثر أو أقل ومسمياته وأيضا الشيت متغير فى عدد صفحاته

مرفق الملف