عدم تثبيت الخلية عند تكرار معادلة بالكود

[هاني بدر]

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

الاخوة الافاضل

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

A11

ارجو الاطلاع على المرفق لتعديل الكود

تقبلوا تحياتي

 

Sumif_Code.rar

[عبدالله باقشير]

السلام عليكم

لكن لماذا لا تستخدم دالة  SumIfs

 

عموما

جرب هذا الكود

Sub RoundedRectangle1_Click()
With Range("K11:K" & [A5000].End(xlUp).Row)
    .Cells(1, 1).FormulaArray = _
     "=kh_SumIf(FB_STORE_BASE!R11C21:R249999C21,FB_STORE_BASE!R11C11:R249999C11=RC[-10],FB_STORE_BASE!R11C2:R249999C2<=FB_STORE_BASE!R9C2)"
    .Cells(1, 1).AutoFill Destination:=.Cells
    .Value = .Value
End With
End Sub

تحياتي

[عبدالله باقشير]

السلام عليكم

 

هذه المعادلة باستخدام دالة  SumIfs

=SUMIFS(FB_STORE_BASE!$U$11:$U$249999;FB_STORE_BASE!$K$11:$K$249999;A11;FB_STORE_BASE!$B$11:$B$249999;"<="&FB_STORE_BASE!$B$9)

وهذه المعادلة داخل الكود

Sub RoundedRectangle1_Click()
With Range("K11:K" & [A5000].End(xlUp).Row)
    .FormulaR1C1 = _
        "=SUMIFS(FB_STORE_BASE!R11C21:R249999C21,FB_STORE_BASE!R11C11:R249999C11,RC[-10],FB_STORE_BASE!R11C2:R249999C2,""<=""&FB_STORE_BASE!R9C2)"
    .Value = .Value
End With
End Sub

تحياتي

[هاني بدر]

بسم الله الرحمن الرحيم

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

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

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

تقبل تحياتي وامتناني لمروركم الكريم