أخي الكريم
قم بوضع الدالة المعرفة التالية في موديول
CODE
Function JoinIf(sDelim As String, rngJoin As Range, rngCriteria As Range, cr) As String
Dim c As Range, n As Long
For Each c In rngCriteria
n = n + 1
If LCase(c) = LCase(cr) And rngJoin.Cells(n) <> "" Then JoinIf = JoinIf & sDelim & rngJoin.Cells(n)
Next c
JoinIf = Mid(JoinIf, Len(sDelim) + 1, Len(JoinIf))
End Function
ثم ضع المعادلة التالية في الخلية H2
CODE
=IF(COUNTBLANK(B2:G2)=6,"",IF(COUNTIF(B2:G2,"دون المستوي")=0,"منقول للصف السادس",JoinIf(" - ",$B$1:$G$1,B2:G2,"دون المستوي")))