اختيار من قائمة منسدلة

[قهرني الأوفيس]

لدي عدد من الخلايا المنسدلة 

المطلوب :عند اختيار خلية من الخلايا التي (باللون الأحمر في الملف المرفق ) منع المستخدم من  اختيار خلية أخرى إلا عند إلغاء الاختيار الموجود

بمعنى آخر

عدم اختيار أكثر من خلية 

تجريبي 1.xlsx

[قهرني الأوفيس]

أو حتى عند اختيار أكثر من خلية واحدة في الصف يتم تغيير لون الصف بالكامل

[lionheart]

In worksheet module put the code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C5:CJ5")) Is Nothing Then
        Application.EnableEvents = False
            If Target.Cells.CountLarge > 1 Then Target(1).Select
        Application.EnableEvents = True
    End If
End Sub

 

[قهرني الأوفيس]

@lionheart اشكرك أخي بس لم يعمل معي الكود

وهل يوجد طريقة أخرى وهي تلوين الصف من خلية (J5: C5) باللون الأحمر في حال اختيار خليتين أو أكثر نفس الصف

[حسونة حسين]

ما هى المشكله اخى الكريم  

ارفق ملف بعد وضع الكود به 

[قهرني الأوفيس]

تفضل أخي @hassona229   المرفق تجريبي 1.xlsxتجريبي 1.xlsx

[حسونة حسين]

اخى الكريم

انت لم تضع الكود في ملفك

 

[عبدالله المجرب]

جرب المرفق

تلوين نطاق.xlsm

[starsrays]

جرب هذا الملف 🙂 

تجريبي 1.xlsx