[Resolvido] testar se um campo existe em uma coluna

VBA & Macros

Post Recente por cimerio 2 anos atrás

4 Posts

2 Usuários

2 Likes

924 Visualizações

RSS

cimerio

(@cimerio)

Posts: 47

Trusted Member

Topic starter

pessoal, eu quero descobrir se numa extracao de dados, existe um cnpj novo que nao tenho no controle.

mas o codigo para qd ele encontra um cnpj que nao existe e nao continua. já alterei o codigo varias vezes mas nao consigo descobrir o paradigma pra fazer funcionar.

solicito ajuda pra descobrir. anexei a planilha

planilha.xlsm

Postado : 26/01/2022 11:17 am

Anderson

(@anderson)

Posts: 203

Reputable Member

Sub verificaCnpjNovo2()  'pega os valores de cnpj na coluna J e percorre a coluna B pra ver se eles estão constando lá



For n = 2 To 180

If Worksheets("grcocgreco").Cells(n, 10).Value <> "" Then
Worksheets("grcocgreco").Cells(n, 11).Value = "atenção"
End If
For i = 2 To 180
If Worksheets("grcocgreco").Cells(n, 2).Value = Worksheets("grcocgreco").Cells(i, 10).Value Then
Worksheets("grcocgreco").Cells(i, 11).Value = "ok"

Exit For

End If
Next i
Next

End Sub

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.

Postado : 26/01/2022 12:38 pm

Eron reacted