[vba]
Sub nameandackn1()
Dim i, j As Integer, ename, q As Variant

For i = 13 To 16
ename = Cells(i, "A").Value
q = Cells(i, "B").Value
For j = 1 To 10
If Range("A" & j) = ename And Range("C" & j) = q Then
Range("C" & i).Value = Range("D" & j).Value
End If
Next j
Next i
End Sub
[/vba]