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

VBA & Macros

Post Recente por jcgmcs 3 anos atrás

3 Posts

2 Usuários

0 Likes

1,661 Visualizações

RSS

jcgmcs

(@jcgmcs)

Posts: 66

Trusted Member

Topic starter

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

Postado : 02/07/2021 4:31 pm

Kaleo_rs

(@kaleo_rs)

Posts: 89

Trusted Member

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

Postado : 04/07/2021 8:30 am