السلام عليكم ورحمة الله
جرب هذه الجزئية من الكود لتعويض كل السابق (بتحفظ شديد)...
Dim i As Integer, j
Dim m As String
For j = 1 To 12
m = Me.Control("ComboBox" & j).Text
For i = 2 To 10000
If m = Cells(i, 2) Then Cells(i, 5) = "y" & j & ".Text"
Next
Next
بن علية