Validação de CPF, CNPJ, PIS/PASEB

[pablomoreiragv]

Já peguei alguns códigos na net e não consigo fazê-los rodar. Peço aos amigos para que possam me ajudar com um passo a passo de como fazer para validar estes campos, pois os textbox's estão incorporados em um planilha e todos os exemplos que encontro são usados em formulários. Não tenho muita experiência em VBA, mas conto com a ajuda dos amigos. Um abraço.

Editado Julho 16, 2010 por Jonathan Queiroz
Remover caixa alta do título conforme regra 3.7 (Jonathan)

[Jonathan Queiroz]

Movendo: Microssoft Office --> VBA. Movi também os seus outros dois tópicos.

Obs.:

É proibido postar título/conteúdo em caixa alta conforme a regra 3.7 (ver regras).

3.7 Ao postar uma mensagem, procure usar o tamanho de fonte padrão do fórum, não deixando as letras grandes ou pequenas demais; evite o uso de cores fortes, as quais prejudicam a leitura, e não insira textos totalmente em caixa alta (ESTE É UM TEXTO EM CAIXA ALTA). Tópicos que violarem essa regra serão editados sem prévio aviso.

[Patropi]

Boa tarde Pablo

Código VBA para Conferência do dígito verificador do CNPJ e CPF.

Para usar, coloque o número do CPF ou CNPJ numa célula (por exemplo A1) e em outra célula digite "=CNPJ(A1)" (sem as aspas) .

Clique em ALT+F11, menu Inserir, Módulo.

Neste módulo copie e cola o código abaixo, depois clique em ALT+F11 para retornar a planilha.

Dim mult As Double
Dim div As Double
Dim dig1 As Double
Dim dig2 As Double
Dim somadig1 As Double
Dim somadig2 As Double
Dim x As Double
Dim resultado As String
    
'Esta função pega numero a numero do CPF/CNPJ
Function quociente(num As Double, divisor As Double) As Integer 
Dim cont As Integer 
cont = 0     
Do While num >= divisor 
num = num - divisor 
cont = cont + 1 
Loop     
quociente = cont
End Function
    
'Esta função verifica a validade do CNPJ
Function CNPJ(n As Double) As String 
mult = 6     
div = 10 ^ 13 
somadig1 = 0 
somadig2 = 0 
Do While div <> 10 
acum = n     
x = quociente(n, div) 
somadig2 = somadig2 + x * mult 
If mult = 2 Then mult = 9 Else mult = mult - 1 
somadig1 = somadig1 + x * mult 
n = acum - x * div 
div = div / 10 
Loop     
x = quociente(n, 10) 
somadig1 = (somadig1 * 10) Mod 11 
If somadig1 = 10 Then somadig1 = 0 
somadig2 = somadig2 + somadig1 * mult 
somadig2 = (somadig2 * 10) Mod 11 
If somadig2 = 10 Then somadig2 = 0 
dig1 = x     
dig2 = n Mod 10 
If somadig1 = dig1 And somadig2 = dig2 Then 
resultado = "OK" 
Else     
resultado = "CNPJ INVALIDO" 
End If     
CNPJ = resultado
End Function
    
'Esta função verifica a validade do CPFFunction CPF(n As Double) As String 
mult = 1     
div = 10 ^ 10 
somadig2 = 0 
acum = n     
somadig1 = quociente(n, div) 
n = acum - somadig1 * div 
div = div / 10 
Do While div <> 10 
acum = n     
x = quociente(n, div) 
somadig2 = somadig2 + x * mult 
mult = mult + 1 
somadig1 = somadig1 + x * mult 
n = acum - x * div 
div = div / 10 
Loop     
x = quociente(n, 10) 
somadig1 = somadig1 Mod 11 
If somadig1 = 10 Then somadig1 = 0 
somadig2 = somadig2 + somadig1 * mult 
somadig2 = somadig2 Mod 11 
If somadig2 = 10 Then somadig2 = 0 
dig1 = x     
dig2 = n Mod 10 
If somadig1 = dig1 And somadig2 = dig2 Then 
resultado = "OK" 
Else     
resultado = "CPF INVALIDO" 
End If     
CPF = resultado
End Function

Este código eu encontrei na Net. Veja vai ser útilp você.

Abraços