قيمة خلية تعتمد على محتويات خلايا اخرى

[ابو طيبه]

السلام عليكم فضلا وليس امرا محتاج التعديل على الكود حد الصفحة قيمه خليه C13 تعتمد على محتويات خلايا E13 او E14

كما موضح بالملف المرفق مع جزيلا الشكر  

File -1.xlsm

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

يمكنك استعمال هذا الكود في حدث عند التغيير

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 8 And Target.Row < 17 And Target.Column = 5 Then
Dim C As Range, a As Boolean, b As Boolean
For Each C In Range("E9:E16")
If InStr(C.Value, "Positive") And (C.Row = 13 Or C.Row = 14) Then
    If Not a Then Range("C13").Value = "Titer250": a = True
End If
If InStr(C.Value, "+") Or InStr(C.Value, "yes") Then
    If Not b Then Range("C10").Value = "Positive": b = True
End If
Next C
If Not a Then Range("C13").Value = "Nil"
If Not b Then Range("C10").Value = "Negative"
End If
End Sub

بالتوفيق

[ابو طيبه]

بارك الله فيك استاذ محمد 

الكود يعمل بشكل ممتاز فقط محتاج ان تكون الخليه C10 تساوي positive عندما تحتوي الخليه E13 او E14 على +  كما في الصورة ادناه

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

هل تعني أن شرط + و yes ينطبق أيضا على E13 & E14؟ 

إذا كان هذا هو المطلوب فيمكن تغيير Elseif

إلى

End If

If

تم تحديث الكود السابق

[ابو طيبه]

عاشت الانامل استاذ محمد شكرا جزيلا الله يرحم امواتك ويجعلها في ميزان حسناتك تحياتي لحظرتك 

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

جميعا بإذن الله