Hello everyone,

I don't know why, but Excel is not reading my code.

It doesn't work when I play it normal, but it works When I read the code line to line.

Can someone help me?

The essencial part of the code is with the green colour.

If ComboBox1.Value = "14" Then
Range("AI3", Range("AI3").End(xlDown)).Clear
ComboBox12.Clear
q = Folha7.Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To q
aux = 1
If Folha7.Range("B" & i) <> "" And Folha7.Range("C" & i) <> "" And Folha7.Range("D" & i) = "" And Folha7.Range("E" & i) = "" And Folha7.Range("F" & i) = "" And Folha7.Range("G" & i) = "" And Folha7.Range("H" & i) = "" And Folha7.Range("I" & i) = "" And Folha7.Range("J" & i) = "" And Folha7.Range("K" & i) = "" Then
If ComboBox2.Value = Val(Folha7.Range("B" & i)) And ComboBox3.Value = Val(Folha7.Range("C" & i)) Then
If Folha7.Range("AI" & 3) = "" Then
Folha7.Range("AI" & 3) = Folha7.Range("A" & i)
aux = 0
End If
If aux = 1 Then
a = Folha7.Range("AI" & Rows.Count).End(xlUp).Row
For o = 3 To a
If Val(Folha7.Range("A" & i)) = Val(Folha7.Range("AI" & o)) Then
Count = Count + 1
If Count = 1 Then
o = a
End If
Else
If o = a And Count = 0 Then
Folha7.Range("AI" & a + 1) = Folha7.Range("A" & i)
End If
End If
Next
End If
End If
End If
Next
a = Folha7.Range("AI" & Rows.Count).End(xlUp).Row
For k = 3 To a
ComboBox12.AddItem Folha7.Range("AI" & k)
Next
End If
Thanks a lot