Re: Formulário "Out of range"
Enviado: Dom Nov 10, 2019 10:17 am
Experimente:
Em ambos formularios altere na linha onde tens:
Para:
Assim somente trará as linhas que tiver valor em recebido
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