تجميع خليتين من كل شيت فى قائمة منسدلة

[portegy]

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

 

رمضان كريم عليكم جميعا وتقبل الله اعمالكم 

محتاج مساعدة فى تجميع(وضعهم بجوا بعض) خليتين من كل شيت فى قائمة منسدلة واحدة 

مثال :

Sheet1

2 cells B2,C3

Sheet2

2 cells B2,C3

طبعا كل ما اضيف شيت هياخد منهم القيمتين ويضعهم فى القائمة المنسدلة

وجزاكم الله خيرا

Masry.xlsx

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

جرب هذا الماكرو

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

[Ali Mohamed Ali]

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

وبعد اذن حضرتك طبعا -ولإثراء الموضوع هذا حل أخر

 

 

Masry.xlsm

[وجيه شرف الدين]

ما شاء الله حلول رائعه وجزاكم الله خير الجزاء

[portegy]

بسم الله ماشاء الله كتر الف الف خيركم وجزاكم الله كل خير عمل رائع ا\سليم و ا\على

[portegy]

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

ممكن نعملة زرار هايبر لينك