FÓRUNS DA INFO
|
1
|
| VALIDAR CNPJ |
Júlio César |
3 resposta(s) |
Boa tarde para todos,
Eu estou com um problema na empresa onde trabalho com CNPJ, preciso fazer uma validação pois o pessoal está cadastrando qualquer coisa.
Desejo saber se alguém tem a teoria de como fazer uma validação de CNPJ, realmente gostaria da teoria "o caminho daS pedras", pois quero realmente entender este negócio.
Desde já agradeço e um ótimo 2005 para todos.
|
Enviado por: Júlio César
em 24/01/2005
|
Levis,
Obrigado o meu e-mail é jucepalima@msn.com
Desde já agradeço.
|
Enviado por: Levis
em 22/01/2005
|
Júlio,
montei uma planilha para verificar CNPJ e CPF.
Informa seu e-mail para eu te enviar.
Levi´s
|
Enviado por: JoeFox
em 21/01/2005
|
Olá Julio,
A teoria para validação do Digito Verificador (DV) do CPF é feita da seguinte forma:
Primeiro você escreve os nove primeiros números, e abaixo deles numere de 1 a 9, agora é só multiplicar o de cima pelos de baixo e somá-los.
Supondo um CPF de número: 394.257.705-49
Temos:
3 9 4 2 5 7 7 0 5
1 2 3 4 5 6 7 8 9
3 18 12 8 25 42 49 0 45 somados = 202
dividimos esse valor por 11 (número de dígitos de um CPF e ficamos com o resto dessa divisão (função MOD do Excel), com isso obteremos o valor 4.
Obs. Caso o resultado da divisão seja igual a 10 utilizaremos 0.
Agora faremos o mesmo calculo, mas ao invés de começarmos pelo primeiro digito começaremos pelo segundo e adicionamos o número obtido no calculo anterior no final da sequencia. Assim:
9 4 2 5 7 7 0 5 4
1 2 3 4 5 6 7 8 9
9 8 6 20 35 42 0 40 36 somados = 196
Também esse resultado deve ser dividido por 11 e ficamos com o resto dessa divisão (função MOD do Excel), com isso obteremos o valor 9, que é o nosso segundo digito verificador.
Essa é a teoria, agora a fução no Excel ficaria assim:
=SE(SE(MOD((EXT.TEXTO(A2;1;1)*1)+(EXT.TEXTO(A2;2;1)*2)+(EXT.TEXTO(A2;3;1)*3)+(EXT.TEXTO(A2;4;1)*4)+(EXT.TEXTO(A2;5;1)*5)+(EXT.TEXTO(A2;6;1)*6)+(EXT.TEXTO(A2;7;1)*7)+(EXT.TEXTO(A2;8;1)*8)+(EXT.TEXTO(A2;9;1)*9);11)=10;0;MOD((EXT.TEXTO(A2;1;1)*1)+(EXT.TEXTO(A2;2;1)*2)+(EXT.TEXTO(A2;3;1)*3)+(EXT.TEXTO(A2;4;1)*4)+(EXT.TEXTO(A2;5;1)*5)+(EXT.TEXTO(A2;6;1)*6)+(EXT.TEXTO(A2;7;1)*7)+(EXT.TEXTO(A2;8;1)*8)+(EXT.TEXTO(A2;9;1)*9);11))&SE(MOD((EXT.TEXTO(A2;2;1)*1)+(EXT.TEXTO(A2;3;1)*2)+(EXT.TEXTO(A2;4;1)*3)+(EXT.TEXTO(A2;5;1)*4)+(EXT.TEXTO(A2;6;1)*5)+(EXT.TEXTO(A2;7;1)*6)+(EXT.TEXTO(A2;8;1)*7)+(EXT.TEXTO(A2;9;1)*8)+(EXT.TEXTO(A2;10;1)*9);11)=10;0;MOD((EXT.TEXTO(A2;2;1)*1)+(EXT.TEXTO(A2;3;1)*2)+(EXT.TEXTO(A2;4;1)*3)+(EXT.TEXTO(A2;5;1)*4)+(EXT.TEXTO(A2;6;1)*5)+(EXT.TEXTO(A2;7;1)*6)+(EXT.TEXTO(A2;8;1)*7)+(EXT.TEXTO(A2;9;1)*8)+(EXT.TEXTO(A2;10;1)*9);11))=(EXT.TEXTO(A2;10;1)&EXT.TEXTO(A2;11;1));"CPF VÁLIDO";"CPF INVALIDO")
Tenho alguns outros exemplos, inclusice em VBA. Se você quiser, me mande seu e-mail que lhe enviarei.
Abraço,
Rosivaldo
rosivaldoms@correios.net.br
"O saber a gente aprende com os mestres e com os livros.
A sabedoria se aprende com a vida e com os humildes."
Cora Coralina - poetisa goiana
|
Voltar para Excel 
INFO Online trocou as ferramentas de fórum. A última mensagem foi colocada nessas páginas no dia 31 de outubro de 2008. Para ler as novas mensagens e participar do novo fórum, por favor use a nova ferramenta.
|
|
PUBLICIDADE
|
Últimos tópicos do Fórum INFO
|
|
