اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

نسخ خلايا محدده من عدة شيتات الى شيت المجموع


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

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

طلبي يا أساتذتي وأخوتي الكرام

هو نسخ أو ترحيل بيانات الخلايا الملونة باللون الاخضر في الشيتات من 1-3

بخيث يتم تجميعها تلقائيا في نفس الخلايا في شيت تجميع

حاولت كثيرا الاستفادة من المواضيع المطروحة لكنني لم أصل لنتيجة.

ومرفق الملف 

مع جزيل الشكر

حركة المرضى.xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة

جرب هذا الملف (تم ازالة زركشات الألوان لتصغير ججم الملف)  بالاضافة الى تجسين المعادلات بجيث لا تظهر اخطاء

الكود

Option Explicit

Sub Get_sum()
Const Start = 7
Const Fin = 37
Dim ar_sh, Ar_sum(15)
Dim A1, A2, A3
Dim ro_ws%, i%, k%

ar_sh = Array("ICU1", "ICU2", "ICU3")
  For i = Start To Fin
      A1 = Sheets(ar_sh(0)).Range("B" & i).Resize(, 16)
        A1 = Application.Transpose(A1)
        A1 = Application.Transpose(A1)
      
      A2 = Sheets(ar_sh(1)).Range("B" & i).Resize(, 16)
        A2 = Application.Transpose(A2)
        A2 = Application.Transpose(A2)
      
      A3 = Sheets(ar_sh(2)).Range("B" & i).Resize(, 16)
        A3 = Application.Transpose(A3)
        A3 = Application.Transpose(A3)
     For k = 0 To 15
      Ar_sum(k) = Val(A1(k + 1)) + Val(A2(k + 1)) + Val(A3(k + 1))
     Next k
    Sheets("totalICU").Range("B" & i).Resize(, 16) = _
     Ar_sum
  Next i
End Sub

Malades.xlsm

  • Like 1
رابط هذا التعليق
شارك

أشكرك أستاذي الكريم سليم حاصبيا

هذا هو المطلوب

زادك الله رفعة في الدنيا والآخرة

أستاذي الكريم خيماوي كووول

زادك الله رفعة في الدنيا والآخرة

وأشكرك على الاهتمام بموضوعي

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

أو أنني لم أفهمها جيدا

تم تعديل بواسطه ابو مخيزيم
رابط هذا التعليق
شارك

كما يمكنك استعمال هذا الماكرو  البسيط

Option Explicit

Sub Get_sum_by_formula()
  With Sheets("totalICU").Range("B7").Resize(31, 20)
    .ClearContents
    .Formula = "=SUM('ICU1:ICU3'!B7)"
    .Value = .Value
  End With
End Sub

 

  • Like 2
رابط هذا التعليق
شارك

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

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

Important Information