Em ambos formularios altere na linha onde tens:
Código: Selecionar todos
If UCase(Sheets(X).Cells(linha, "C").Value) = ComboBox1.Value And UCase(Sheets(X).Cells(linha, "H").Value) = "RECEBIDO" Then
Código: Selecionar todos
If UCase(Sheets(X).Cells(linha, "C").Value) = ComboBox1.Value And UCase(Sheets(X).Cells(linha, "E").Value) <> "" Then