قائمة منسدلة: سؤال مهم جدا

[soudaniali]

شكر خاص إلى كل الناشطين بهذا المنتدى

لي طلب مهم جدا بالنسبة لي وأكيد سيحتاجه الكثيرliste.rar

قمت بربط معطيات بالورقة الأولى والتي تتضمن معطيات قابلة للتغيير بورقة ثانية عبر قوائم منسدلة

المطلوب:

إذا غيرنا لون خلفية النص في الورقة الأولى يتغير كذلك في القائمة المنسدلة حسب الاسم الذي اخترناه

وفي المرفقات مثال لما قمت به والمطلوب بالضبط

مع الشكر مجددا

liste.rar

[ابراهيم الحداد]

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

اكتب هذا الكود فى حدث الورقة 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$15" Or Target.Address = "$H$17" Then
For R = 4 To 9
If Target.Value = Sheet1.Cells(R, 3).Value Then
Target.Interior.ColorIndex = Sheet1.Cells(R, 3).Interior.ColorIndex
End If
Next
End If
End Sub

 

[soudaniali]

شكرا أستاذ زيزو

لو ممكن التعديل على الملف وإعادة رفعه

فقد جربت ما ذكرتم ولكن لم تنجح المحاولة

 

[ابراهيم الحداد]

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

تم حفظ الملف بامتداد مختلف لخلل فى القائمة المنسدلة

اليك الملف

Liste.rar