Logo Hardware.com.br
PST
PST Membro Junior Registrado
129 Mensagens 0 Curtidas

[Resolvido] Validar CPF / CNPJ no excel

#1 Por PST 13/03/2006 - 18:01
Gostaria de saber se alguem tem uma funcao no excel para validar CNPJ, achei uma para validar cpf, tá funcionaldo, mas nao achei iguam para CNPJ, até consigui algumas coisas,mas nao consigo colocar dentro da minha planilha que já está pronta.

A do cpf que achei é essa:
(K3="";"";SE(SE(MOD((EXT.TEXTO(K3;1;1)*1)+(EXT.TEXTO(K3;2;1)*2)+(EXT.TEXTO(K3;3;1)*3)+(EXT.TEXTO(K3;4;1)*4)+(EXT.TEXTO(K3;5;1)*5)+(EXT.TEXTO(K3;6;1)*6)+(EXT.TEXTO(K3;7;1)*7)+(EXT.TEXTO(K3;8;1)*8)+(EXT.TEXTO(K3;9;1)*9);11)=10;0;MOD((EXT.TEXTO(K3;1;1)*1)+(EXT.TEXTO(K3;2;1)*2)+(EXT.TEXTO(K3;3;1)*3)+(EXT.TEXTO(K3;4;1)*4)+(EXT.TEXTO(K3;5;1)*5)+(EXT.TEXTO(K3;6;1)*6)+(EXT.TEXTO(K3;7;1)*7)+(EXT.TEXTO(K3;8;1)*8)+(EXT.TEXTO(K3;9;1)*9);11))&SE(MOD((EXT.TEXTO(K3;2;1)*1)+(EXT.TEXTO(K3;3;1)*2)+(EXT.TEXTO(K3;4;1)*3)+(EXT.TEXTO(K3;5;1)*4)+(EXT.TEXTO(K3;6;1)*5)+(EXT.TEXTO(K3;7;1)*6)+(EXT.TEXTO(K3;8;1)*7)+(EXT.TEXTO(K3;9;1)*8)+(EXT.TEXTO(K3;10;1)*9);11)=10;0;MOD((EXT.TEXTO(K3;2;1)*1)+(EXT.TEXTO(K3;3;1)*2)+(EXT.TEXTO(K3;4;1)*3)+(EXT.TEXTO(K3;5;1)*4)+(EXT.TEXTO(K3;6;1)*5)+(EXT.TEXTO(K3;7;1)*6)+(EXT.TEXTO(K3;8;1)*7)+(EXT.TEXTO(K3;9;1)*8)+(EXT.TEXTO(K3;10;1)*9);11))=(EXT.TEXTO(K3;10;1)&EXT.TEXTO(K3;11;1));"CPF VÁLIDO";"CPF INVALIDO"))

Queria alguma coisa desse tipo.
Se alguem tiver alguma coisa melhor do que essa para o CPF aceito, essa por exemplo nao consegui na mesma celula onde está digitando o CPF, ele aparece na celula do lado, queira colocar na mesma celula onde se digita bloqueando se estiver invalido
JUNIM
JUNIM Cyber Highlander Registrado
41.8K Mensagens 1.4K Curtidas
#2 Por JUNIM
13/03/2006 - 19:09
Se quiser, tenho um arquivo em, excel que faz a conferência de CGC/CPF

Se entender de Visual Basic, vc pega a fórmula disso e aplica á suas planilhas.

Download:

http://www.megaupload.com/pt/?d=9H90Y4AL

[]´s
Eu não dou o peixe ><((((º>Ooº ... ensino a pescar! eepSkyBlue">..._)¯`·._)¯`·._)¯`·...

arkOrange">Entre no fórum para o debate cap_feceiro.png:, não para um embate!!! cap_chateado.png
Essa Luz! É claro que é JESUS!!! (by RC)
JUNIM
JUNIM Cyber Highlander Registrado
41.8K Mensagens 1.4K Curtidas
#11 Por JUNIM
26/10/2006 - 07:56
aureoh

OK, eu testei no 2003 e dá aviso de erro.

Se for de macro, entre em ferramentas/macro e coloque em médio pra perguntar se deseja executar macro, ae quando abrir diz que sim.

Se não for este o caso, no aviso de ActiveX dê OK e fim em depurar.

Teste a função que funciona do mesmo jeito.

Este arquivo era dica da Revista Info de tempos atrás, e até o Excell 2002 funcionava normal.

Como não uso muito, não me preocupei em verificar os erros para a versão 2003.

Se alguém tiver ae o caminho das pedras pra resolver isso, coloque pra gente aqui.

[]´s
Eu não dou o peixe ><((((º>Ooº ... ensino a pescar! eepSkyBlue">..._)¯`·._)¯`·._)¯`·...

arkOrange">Entre no fórum para o debate cap_feceiro.png:, não para um embate!!! cap_chateado.png
Essa Luz! É claro que é JESUS!!! (by RC)
PST
PST Membro Junior Registrado
129 Mensagens 0 Curtidas
#13 Por PST
26/10/2006 - 12:52
Já que desenterraram o tópico vou responder para o brunofeliped:

Vs coloca a funcção abaixo na B1 e digita o CPF na A1 se estiver válido aparece na B1 CPF Válido, senao aparece CPF Invalido
Só lembrando que nao fui eu que fiz essa função, achei na net, estou procurando uma desse mesmo jeito para CNPJ

=SE(A1="";"";SE(SE(MOD((EXT.TEXTO(A1;1;1)*1)+(EXT.TEXTO(A1;2;1)*2)+(EXT.TEXTO(A1;3;1)*3)+(EXT.TEXTO(A1;4;1)*4)+(EXT.TEXTO(A1;5;1)*5)+(EXT.TEXTO(A1;6;1)*6)+(EXT.TEXTO(A1;7;1)*7)+(EXT.TEXTO(A1;8;1)*8)+(EXT.TEXTO(A1;9;1)*9);11)=10;0;MOD((EXT.TEXTO(A1;1;1)*1)+(EXT.TEXTO(A1;2;1)*2)+(EXT.TEXTO(A1;3;1)*3)+(EXT.TEXTO(A1;4;1)*4)+(EXT.TEXTO(A1;5;1)*5)+(EXT.TEXTO(A1;6;1)*6)+(EXT.TEXTO(A1;7;1)*7)+(EXT.TEXTO(A1;8;1)*8)+(EXT.TEXTO(A1;9;1)*9);11))&SE(MOD((EXT.TEXTO(A1;2;1)*1)+(EXT.TEXTO(A1;3;1)*2)+(EXT.TEXTO(A1;4;1)*3)+(EXT.TEXTO(A1;5;1)*4)+(EXT.TEXTO(A1;6;1)*5)+(EXT.TEXTO(A1;7;1)*6)+(EXT.TEXTO(A1;8;1)*7)+(EXT.TEXTO(A1;9;1)*8)+(EXT.TEXTO(A1;10;1)*9);11)=10;0;MOD((EXT.TEXTO(A1;2;1)*1)+(EXT.TEXTO(A1;3;1)*2)+(EXT.TEXTO(A1;4;1)*3)+(EXT.TEXTO(A1;5;1)*4)+(EXT.TEXTO(A1;6;1)*5)+(EXT.TEXTO(A1;7;1)*6)+(EXT.TEXTO(A1;8;1)*7)+(EXT.TEXTO(A1;9;1)*8)+(EXT.TEXTO(A1;10;1)*9);11))=(EXT.TEXTO(A1;10;1)&EXT.TEXTO(A1;11;1));"CPF VÁLIDO";"CPF INVALIDO"))
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal