كمبوبوكس فيه اسماء الشيتات الملونه بلون احمر فقط

[Saadrafic]

عايز اسماء الشيتان الملونه بلون احمر فقط combobox قائمه منسدله باسماء الشيتات بلون احمر فقط

قائمة بأسماء الشيكات (1).rar

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

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

Sub Fil_combo()
Dim k, col, arr(), i%: i = 1
For k = 1 To Sheets.Count
    col = Sheets(k).Tab.Color
    If col Then
      ReDim Preserve arr(1 To i)
      arr(i) = Sheets(k).Name
      i = i + 1
    End If
Next
 With Me.ComboBox1
 .List = Split(Join(arr, ","), ",")
 .Value = .List(0)
 End With
End Sub

 

COMBO_fil.xlsm

[Saadrafic]

 ممكن اخر طلب من حضرتك

ممكن على نفس الكموبكس دا اللون الاحمر وفي كموبكس تاني لون ازرق بس وشكرا لحضرتك

من فضلك هوه دا الي انا طلبه كل كموبكس يجيب لون مختلف عن الاخر في الكموبكس ١اللون الاحمر والثاني ازرق مثلا الي انا احدده

[أ / محمد صالح]

بعد إذن أخي الكريم سليم

لعرض الشيتات الملونة باللون الأحمر فقط

يمكنك تغيير الشرط الخاص بلون الشيت من

If col Then

إلى

If col = RGB(255, 0, 0) Then

وبالنسبة لعمل قائمة منسدلة للشيتات باللون الأزرق

يمكنك استعمال نفس الكود مع تغيير اسم الكومبوبوكس وكود اللون

If col = RGB(0, 0, 255) Then

بالتوفيق