طلب كود يضع إسم الشيت فى خلية معينة وكود جمع إحدى الخلايا فى جميع الشيتات

[يوسف عطا]

المصنف به عدد كبير ومتزايد مع الوقت من الشيتات

شيت مكرر عدد كبير من المرات ويمكن زيادة عدد تكراره حسب الإحتياج ولكن كل شيت بإسم مختلف

كل شيت من هذه الشيتات المتكررة تم تجميع إجمالياته فى عدد من الخلايا

بالإضافة إلى شيت الرئيسية وفيها أزرار لماكروهات للوصول لكل شيت حسب إسمه

بالإضافة لشيت الحسابات و هو يوضح إجمالى الحسابات التى تم إدراجها بالشيتات المتكررة

إذن المطلوب بإختصار

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

2. كود يجمع جميع الخلايا K1 فى جميع الشيتات ويضع المجموع فى الخلية K1 فى شيت الحسابات

للأسف مش قادر أرفق ملف حالياً لأنه لازال تحت الإنشاء

تحياتى لكم جميعاً

[هشام شلبى]

السلام عليكم

==========

اخى العزيز يوسف

طلبك الاول على وشك الانتهاء منه ان شاء الله

دعنا الان فى طلبك الثانى لانه بجد متعب

شاهد المرفق وأضف ما تشاء من الشيتات وجرب

وقول رايك هل هذا ما تقصده

وافترض لو كان الحل بالمعادلات هل هناك مشكلة

جمع يوسف عطا.rar

[mostafaatiya]

بارك الله فيك استاذ هشام

[يحيى حسين]

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

إضافة لحل الأستاذ هشام

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

Sub SumMySheets()

Dim ws As Worksheet

MySum = 0

For Each ws In ThisWorkbook.Worksheets

    If ws.Name <> "الحسابات" Then

        MySum = ws.Range("k1").Value + MySum

    End If

Next ws

Debug.Print MySum

Sheets("الحسابات").Range("k1").Value = MySum

End Sub

و هذا كود لإحضار اسماء جميع الصفحات في الخلية i7 و لقد وضعته في حدث فتح الصفحة و في كل مرة تفتح الملف سيتم تلقائياً اضافة الاسماء

 

Private Sub Workbook_Open()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

    ws.Range("i7").Value = ws.Name

Next ws

End Sub

 

==================

دمتم في حفظ الله

[هشام شلبى]

السلام عليكم

===========

بوركت استاذ يحيى

اخى يوسف

المرفق به الطلبان مجتمعان لكن يجب عمل اى اجراء داخل الشيت ليتم تغير اسم الخلية اليا او على الاقل عمل كلكتين

تحياتى

جمع يوسف عطا.rar

[يحيى حسين]

السلام عليكم

أخي هشام في حاجة بكود مش ضرورية و يمكن الإستغناء عنها

 

For r = 1 To 1

  For c = 11 To 11

   Sheets("ÇáÍÓÇÈ").Cells(r, c).Formula = "=sum('" & FF & ":" & LL & "'!" & Cells(r, c).Address & ")"

  Next c

 Next r

 

لا يوجد اي فائدة من الحلقات التكرارية هنا

لأنه لا يوجد تكرار من الأساس

[يوسف عطا]

الأخوة الأعزاء

السلام لكم جميعاً

دمتم بأتم صحة واسعد حال

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

بارك الله لكم وفيكم وعليكم وجعل أعمالكم فى موازين الحسنات

جارى رؤية الملفات وإن شاء الله خير

الف الف شكر لكم أعزائى

[يوسف عطا]

الأخ يحى والأخ هشام

بعد التحية والسلام

أعمال ولا أروع

الف الف الف شكر

ولكن بالنسبة لكود الأخ هشام الخاص بوضع إسم الشيت فى الخلية المحدد

هل يمكن التغاضى عن الكلكتين لوضع إسم الشيت فى الخلية ؟

مثلاً بعد تغيير إسم الشيت فى علامة التبويب فى العادة بعد تغيير الإسم نضغط إنتر

هل يمكن مع ضغطة الإنتر يتم تنفيذ الكود ؟

لو لم يمكن ذلك لا بأس ولكن لو أمكن التعديل يصبح روعة فوق روعة

تحياتى لكما و أتمنى لكما كل خير

شاكر الأفضال