اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

انتبه من فضلك .. تـــم  اعادة رفع الملف بإمتداد يقبل اضافة الأكواد كما تريد .. XLSM

New Microsoft Excel Worksheet.xlsm

  • أفضل إجابة
قام بنشر

@حواديتهذه محاولة يوجد  طرق  اخرى   لكان  لضيق  وقتي   اخترت  ابسط الطرق 

قم بانشاء  موديل وضع  هذا  الكود  وانظر  الى  النتيجة  اذا كان  هذا  ما  تريده 

ملاحظة : لا احبذ استخدام  اللغة  العربية في  الاكسيل  لانه  تسبب مشاكل في  الاكواد  لعدة  عوامل  وفي  المرة  القادمة اذا  اردت  اكواد عليك  ارفاق  ملف  يقبل  الاكواد مثل XLSM  

Sub test()
    Dim last_row As Long
    Dim rng, rng1 As Range
    last_row = ThisWorkbook.Worksheets("الاكواد").Cells(Rows.Count, 1).End(xlUp).Row
    Set rng = Range("C3:C" & last_row)
    Set rng1 = Range("D3:D" & last_row)
    rng.Formula = "=SUMIF(اليوميه!$A$1:$A$1048575,A3,اليوميه!$C$1:$C$1048575)"
    rng1.Formula = "=SUMIF(اليوميه!$A$1:$A$1048575,A3,اليوميه!$D$1:$D$1048575)"
    rng.Value = rng.Value
    rng1.Value = rng1.Value

End Sub

تحياتي .

  • Like 2
  • Thanks 1
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information