portegy قام بنشر مايو 30, 2019 مشاركة قام بنشر مايو 30, 2019 السلام عليكم ورحمة الله رمضان كريم عليكم جميعا وتقبل الله اعمالكم محتاج مساعدة فى تجميع(وضعهم بجوا بعض) خليتين من كل شيت فى قائمة منسدلة واحدة مثال : Sheet1 2 cells B2,C3 Sheet2 2 cells B2,C3 طبعا كل ما اضيف شيت هياخد منهم القيمتين ويضعهم فى القائمة المنسدلة وجزاكم الله خيرا Masry.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مايو 30, 2019 أفضل إجابة مشاركة قام بنشر مايو 30, 2019 جرب هذا الماكرو Sub FIL_combo() Dim sh As Worksheet Dim obj As Object Set obj = _ CreateObject("System.Collections.Arraylist") For Each sh In Worksheets If sh.Name <> "Main" Then With sh.Range("b2") obj.Add .Value & " " _ & .Offset(, 1).Value End With End If Next Sheets("Main").ComboBox1.List = _ Application.Transpose(obj.toarray) obj.Clear: Set obj = Nothing End Sub Rem===============>> Salim Private Sub ComboBox1_DropButtonClick() FIL_combo End Sub الملف مرفق Masry_SALIM.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر مايو 30, 2019 مشاركة قام بنشر مايو 30, 2019 بارك الله فيك أستاذ سليم كود ممتاز جعله الله في ميزان حسناتك وبعد اذن حضرتك طبعا -ولإثراء الموضوع هذا حل أخر Masry.xlsm 3 1 رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر مايو 30, 2019 مشاركة قام بنشر مايو 30, 2019 ما شاء الله حلول رائعه وجزاكم الله خير الجزاء 2 رابط هذا التعليق شارك More sharing options...
portegy قام بنشر يونيو 1, 2019 الكاتب مشاركة قام بنشر يونيو 1, 2019 بسم الله ماشاء الله كتر الف الف خيركم وجزاكم الله كل خير عمل رائع ا\سليم و ا\على رابط هذا التعليق شارك More sharing options...
portegy قام بنشر يوليو 10, 2019 الكاتب مشاركة قام بنشر يوليو 10, 2019 On 5/30/2019 at 10:09 AM, سليم حاصبيا said: جرب هذا الماكرو Sub FIL_combo() Dim sh As Worksheet Dim obj As Object Set obj = _ CreateObject("System.Collections.Arraylist") For Each sh In Worksheets If sh.Name <> "Main" Then With sh.Range("b2") obj.Add .Value & " " _ & .Offset(, 1).Value End With End If Next Sheets("Main").ComboBox1.List = _ Application.Transpose(obj.toarray) obj.Clear: Set obj = Nothing End Sub Rem===============>> Salim Private Sub ComboBox1_DropButtonClick() FIL_combo End Sub الملف مرفق Masry_SALIM.xlsm 22.98 kB · 9 downloads ممكن نعملة زرار هايبر لينك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان