نقل محتوى خلية في عدة شيتات الى شيت واحد ؟؟

[احمد النجارـر]

السلام عليكم

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

شيت واحد في عمود واحد

Book1.rar

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

جرب هذا الكود

Sub Get_names()
m = 0
For i = 2 To Sheets.Count
 Sheets("sheet1").Range("b" & m + 2) = Sheets(i).Range("b2")
 m = m + 1
 Next
End Sub

 

[جلال الجمال_ابو أدهم]

سليم حاصبيا

جزاك الله خيرا 
تحياتى

[احمد النجارـر]

شكرا جزيلا تم تنفيذ البرنامج ممنون من عندكم بس عندي طلب اخر  في بعض الاسماء موجود بالخلية b3  كيف اضيفها بالكود وممكن شرح للكود بشكل مختصر ان امكن وشكرا

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

الكود الذي ينسخ كل شيء

Sub Get_names1()
m = 0
For i = 2 To Sheets.Count
 t = Application.CountA(Sheets(i).Range("b:b")) - 1
 Sheets(i).Range("b2:b" & t + 1).Copy Sheets("sheet1").Range("b" & m + 2)
 m = m + t
 Next
End Sub

 

[ياسر خليل أبو البراء]

الموضوع مكرر ................

[احمد النجارـر]

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

Book2.rar

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

انت لم توضح المطلوب من بداية الامر

قلت فقط في الخلايا B2 & B3

اليك المطلوب

Book2 salim.rar

[ياسر خليل أبو البراء]

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