Tomás Vásquez Fórum

Enviado: **Dom Nov 10, 2019 10:17 am**

Experimente:
Em ambos formularios altere na linha onde tens:

 If UCase(Sheets(X).Cells(linha, "C").Value) = ComboBox1.Value And UCase(Sheets(X).Cells(linha, "H").Value) = "RECEBIDO" Then

Para:

Código: Selecionar todos

If UCase(Sheets(X).Cells(linha, "C").Value) = ComboBox1.Value And UCase(Sheets(X).Cells(linha, "E").Value) <> "" Then

Assim somente trará as linhas que tiver valor em recebido

Enviado: **Dom Nov 10, 2019 10:36 am**

Obrigado Reinaldo, funcionou.
Também alterei no userform1 para:
"If UCase(CStr(Sheets(ComboBox1.Value).Cells(linha, "E").Value)) <> "" Then"
Mais uma vez, grato pela ajuda,
Abraço,
RMaciel

Tomás Vásquez Fórum

[Resolvido]Formulário "Out of range"

Re: Formulário "Out of range"

Re: Formulário "Out of range"