Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[Resolvido]Formulário "Out of range"

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Formulário "Out of range"

Mensagem por Reinaldo »

Experimente:
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
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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Rui Maciel
Colaborador
Colaborador
Mensagens: 61
Registrado em: Dom Set 02, 2012 3:00 pm

Re: Formulário "Out of range"

Mensagem por Rui Maciel »

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


Responder