اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

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

 

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

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

مثال :

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

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

  • 1 month later...
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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information