احمد النجارـر قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 السلام عليكم عندي جدول يتكون من عدد كثير من الشيتات وفي الخلية b2 من كل شيت يوجد اسم موظف المطلوب نقل الاسماء الموجودين في الخلية b2 من جميع الشيتات الى شيت واحد في عمود واحد Book1.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 جرب هذا الكود 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 1 رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 سليم حاصبيا جزاك الله خيرا تحياتى 1 رابط هذا التعليق شارك More sharing options...
احمد النجارـر قام بنشر يناير 31, 2017 الكاتب مشاركة قام بنشر يناير 31, 2017 شكرا جزيلا تم تنفيذ البرنامج ممنون من عندكم بس عندي طلب اخر في بعض الاسماء موجود بالخلية b3 كيف اضيفها بالكود وممكن شرح للكود بشكل مختصر ان امكن وشكرا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 الكود الذي ينسخ كل شيء 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 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 الموضوع مكرر ................ رابط هذا التعليق شارك More sharing options...
احمد النجارـر قام بنشر فبراير 1, 2017 الكاتب مشاركة قام بنشر فبراير 1, 2017 ولو تعبتكم يا اخوان وسعيكم مشكورا اساتذتي بس ما عم تزبط هاد الملف هيك قصدي طبقوا الكود على هاد الملف وشكرا جزيلا Book2.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 1, 2017 مشاركة قام بنشر فبراير 1, 2017 انت لم توضح المطلوب من بداية الامر قلت فقط في الخلايا B2 & B3 اليك المطلوب Book2 salim.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 3, 2017 مشاركة قام بنشر فبراير 3, 2017 الأفضل في حالة أن الطلب مختلف يفضل طرح موضوع جديد بالطلب الجديد ولن يتأخر من لديه علم بتقديم المساعدة المطلوبة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.