Erro com Número Exc...
 
Notifications
Clear all

Erro com Número Excessivo de Continuações de Linhas


jcgmcs
Posts: 49
Registered
Topic starter
(@jcgmcs)
Eminent Member
Entrou: 5 anos atrás

Tenho o código abaixo e ao tentar adicionar outra linha antes de "Sheets("Clientes").Cells(lin, 155) Like "*" & UCase(cdContatoDia) & "*" Then"

Dá essa msg "Número Excessivo de Continuações de Linhas"

Tem alguma solução??

Private Sub btGerar_Relatorio_Click()

Sheets("Relatório").Range("A5:GJ3000").ClearContents
lin = 5
Linha = 5

Do Until Sheets("Clientes").Cells(lin, 2) = ""
If Sheets("Clientes").Cells(lin, 11) Like "*" & UCase(cdObservações) & "*" And _
Sheets("Clientes").Cells(lin, 12) Like "*" & UCase(cdPrioridades) & "*" And _
Sheets("Clientes").Cells(lin, 14) Like "*" & UCase(cdPedido) & "*" And _
Sheets("Clientes").Cells(lin, 30) Like "*" & UCase(cdCNPJ) & "*" And _
Sheets("Clientes").Cells(lin, 100) Like "*" & UCase(cdSintegra) & "*" And _
Sheets("Clientes").Cells(lin, 17) Like "*" & UCase(cdAtivos) & "*" And _
Sheets("Clientes").Cells(lin, 67) Like "*" & UCase(cdStatus) & "*" And _
Sheets("Clientes").Cells(lin, 19) Like "*" & UCase(cdVisitar) & "*" And _
Sheets("Clientes").Cells(lin, 10) Like "*" & UCase(cdVisitaDadosApres) & "*" And _
Sheets("Clientes").Cells(lin, 21) Like "*" & UCase(cdFazerContatos) & "*" And _
Sheets("Clientes").Cells(lin, 22) Like "*" & UCase(cdTramitesInformações) & "*" And _
Sheets("Clientes").Cells(lin, 8) Like "*" & UCase(cdPotencial) & "*" And _
Sheets("Clientes").Cells(lin, 68) Like "*" & UCase(cdVendedor) & "*" And _
Sheets("Clientes").Cells(lin, 25) Like "*" & UCase(cdRamo) & "*" And _
Sheets("Clientes").Cells(lin, 15) Like "*" & UCase(cdVisitas) & "*" And _
Sheets("Clientes").Cells(lin, 28) Like "*" & UCase(cdCotaçãoEnviada) & "*" And _
Sheets("Clientes").Cells(lin, 18) Like "*" & UCase(cdCotaçãoAprovReprov) & "*" And _
Sheets("Clientes").Cells(lin, 86) Like "*" & UCase(cdAmostraRec) & "*" And _
Sheets("Clientes").Cells(lin, 141) Like "*" & UCase(cdAmostraEnv) & "*" And _
Sheets("Clientes").Cells(lin, 69) Like "*" & UCase(cdCidade) & "*" And _
Sheets("Clientes").Cells(lin, 34) Like "*" & UCase(cdContatoMes) & "*" And _
Sheets("Clientes").Cells(lin, 32) Like "*" & UCase(cdContatoAno) & "*" And _
Sheets("Clientes").Cells(lin, 114) Like "*" & UCase(cdVisitaDia) & "*" And _
Sheets("Clientes").Cells(lin, 127) Like "*" & UCase(cdVisitaMesAno) & "*" And _
Sheets("Clientes").Cells(lin, 155) Like "*" & UCase(cdContatoDia) & "*" Then

Responder
2 Respostas
Kaleo_rs
Posts: 80
Registered
(@kaleo_rs)
Trusted Member
Entrou: 7 anos atrás

Muitas condições no mesmo IF, já tive esse problema.

Tenta desta forma. E ao executar no depurador ele vai para no IF se tiver algo errado:

If Sheets("Clientes").Cells(lin, 11) Like "*" & UCase(cdObservações) & "*" then
     if Sheets("Clientes").Cells(lin, 12) Like "*" & UCase(cdPrioridades) & "*" then
          if Sheets("Clientes").Cells(lin, 14) Like "*" & UCase(cdPedido) & "*" then
               if Sheets("Clientes").Cells(lin, 30) Like "*" & UCase(cdCNPJ) & "*" then

Responder
jcgmcs
Posts: 49
Registered
Topic starter
(@jcgmcs)
Eminent Member
Entrou: 5 anos atrás

Bom dia Kaleo! Funcionou perfeitamente meu amigo... Muito Obg e tdo de bom ae...

Só axei estranho ter que colocar abaixo 25 linhas com End If.. Seria isso à fazer ou tem uma forma de resumir isse End If..?

Abç...

Responder