حصرالقيم الموجودة خلية محددة من كافة اوراق العمل بالملف

[محمد طاهر عرفه]

السلام عليكم

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

و كانت مثلا الخلية المستهدفة هي C3 و اريد تجميع ما بها من قيمة من كل اوراق العمل فى قائمة واحد تحوي اسم كل ورقة عمل و القيمة المناظرة فى الخلية c3

فتذكرت على الفور ملف مجمع البيانات الموجود فى مكتبة الموقع ، و الذي تم بحمد الله تنزيله ما يربو على 22 الف مرة

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

لذا قمت باعداد ملف جديد بسيط يقوم بالغرض ، و سأضيفه هنا خلال الدقائق القادمة باذن الله 

و يعتمد الكود التالي:

Sub GetCellFrom_Allsheets()

 Dim n As Byte, R As String
  n = ActiveWorkbook.Sheets.Count
 R = InputBox("Type your Cel Ref Example C3 ", "Officena Cell Collector")
 
 For i = 1 To n - 1
  ActiveCell.Value = ActiveWorkbook.Worksheets(i).Name
   ActiveCell.Offset(0, 1).Value = ActiveWorkbook.Worksheets(i).Range(R)
  ActiveCell.Offset(1, 0).Activate
  
 Next
End Sub

 

[محمد طاهر عرفه]

مرفق الملف للتجربة

تأكد من أن الشيت المسمي list Sheet هو اخر ورقة عمل فى الملف

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

 

 

Get_FromAll_Sheets.xlsm

[Ali Mohamed Ali]

أحسنت استاذ محمد بارك الله فيك وزادك الله من فضله