السلام عليكم ,,مازلنا مع TARGET واستعمالها المتعدد في هذا التطبيق تناولنا قائمة أصناف كما هو مبين في التطبيق جعلنا في العمود C Data Validation تحتوي حالة الأصناف مخصصة بتنسيق شرطي واتي هي عبارة صيفة المنتوج بمجرد الاختيار
كما استعملنا دالة البحث FIND لجلب البيانات من الشيت حالة الأصناف وتلوين سطر كامل بخاصية INTERIOR.COLORINDEX
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
On Error Resume Next
Cells(Target.Row, 1).Resize(, 4).Interior.ColorIndex = [EL_SINF].Find(Target, lookat:=xlWhole).Interior.ColorIndex
End If
End Sub
تنسيق شرطي متعدد DataValidation ودالة البحث Find.rar