كود تجميع خلايا من عدت شيتات

[محمد عبد الناصر]

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

عايز كود اجمع بيه خلايا من عدت شيتات المشكلة ان الشيتات مش بتكون موجوده فى الاول انا بعملها اضافه كل شهر بفتح شيت اسم الشيتات من 1 الى 12 بمعنى انى فتحت 4 شيتات يجمع الشيتات الموجوده فقط وملوش اى علاقة بالشيت ( Sheet1) يجمع فقط الشيتات من 1 الى 12

عايز يجمع من الشيت 1 الى 12 الخلية AP9 ينقل المجموع فى الشيت Total الخليه C7

                                              الخلية AQ9 ينقل المجموع فى الشيت Total الخليه C8 

                                             الخلية AR9 ينقل المجموع فى الشيت Total الخليه C9

                                            الخلية AS9 ينقل المجموع فى الشيت Total الخليه C10

                                            الخلية AT9 ينقل المجموع فى الشيت Total الخليه C11

 

 

 

MD.rar

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

[سليم حاصبيا]

كيف تريد الحل مغ ملف مقفل بكلمة سر

[محمد عبد الناصر]

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

 

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

[سليم حاصبيا]

2 دقائق مضت, محمد عبد الناصر said:

اسف اخى الكريم تم تعديل الملف

 

الملف لا يفتح عندي 

انه مصر على كلمة السر

[محمد عبد الناصر]

طيب ممكن حضرتك تعمل تحديث للصفحه انا نزلتو عندى الماكرو من غير باسورد والله جرب الباسورد ده 20125907275

 

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

[أبوبسمله]

48 دقائق مضت, محمد عبد الناصر said:

طيب ممكن حضرتك تعمل تحديث للصفحه انا نزلتو عندى الماكرو من غير باسورد والله جرب الباسورد ده 20125907275

 

كلمة السر موجوده لسه اخى الفاضل وكلمة السر خطأ

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

[محمد عبد الناصر]

اسسسسسسسسسسسسسف جدااااااااااا جداااااااااا انا عدلت الرابط فوق من غيرؤ باسورد حماية الملف بعتزر مره تانيه للأستاذ سليم

2 ساعات مضت, سليم حاصبيا said:

الملف لا يفتح عندي 

انه مصر على كلمة السر

اسف جدااا استاذ سليم تم تعديل الملف والغاء الباسورد

MD.rar

[سليم حاصبيا]

جرب هذا الماكرو

Sub sum_of_Many_sheets1()
  Dim My_sheet As Worksheet
   Set My_sheet = Sheets("total")
   x = Sheets.Count
  My_sheet.Cells(7, 3).Activate
      
  For i = 0 To 4
     K = 0: s = 0: t = 0
        For j = 2 To x
            t = Sheets(j).Cells(9, 42 + i).Value
'           My_sheet.Cells(K + 1, 4) = t
            K = K + 1
            s = s + t
        Next
     ActiveCell = s
     ActiveCell.Offset(1, 0).Activate
  Next
  ActiveCell.Delete
  End Sub

 

[محمد عبد الناصر]

تمام حضرتك انا بس عايزو ملوش علاقه بالشيت الى انا بشتغل فيه "sheet1" يجمع بقيت الشيتات عادى

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

[محمد عبد الناصر]

1 ساعه مضت, سليم حاصبيا said:

جرب هذا الماكرو

Sub sum_of_Many_sheets1()
  Dim My_sheet As Worksheet
   Set My_sheet = Sheets("total")
   x = Sheets.Count
  My_sheet.Cells(7, 3).Activate
      
  For i = 0 To 4
     K = 0: s = 0: t = 0
        For j = 2 To x
            t = Sheets(j).Cells(9, 42 + i).Value
'           My_sheet.Cells(K + 1, 4) = t
            K = K + 1
            s = s + t
        Next
     ActiveCell = s
     ActiveCell.Offset(1, 0).Activate
  Next
  ActiveCell.Delete
  End Sub

تمام حضرتك انا بس عايزو ملوش علاقه بالشيت الى انا بشتغل فيه "sheet1" يجمع بقيت الشيتات عادى

 

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

[سليم حاصبيا]

انقل الشيت اللي انت بتشتغل فيه الى أول اللائحة بالشيتات

و الماكرو سيغمل طبيغى (لان الماكرو مصصم غلى ان يبدأ من الشيت رقم2 الى الاخر)

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

[محمد عبد الناصر]

شكرا استاذ سليم ربنا يجعلو فى ميزان حسناتك واسف جدااا لتعب حضرتك معايا