Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

[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: 1247
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 » Dom Nov 10, 2019 10:17 am

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


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

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: 53
Registrado em: Dom Set 02, 2012 3:00 pm

Re: Formulário "Out of range"

Mensagem por Rui Maciel » 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



Responder