Código para colocar os pontos e barras nos CPF e CNPJ, a função le a célula e formata de acordo com a quantidade de dígitos.
Citation preview
Function FORMATARCPFCNPJ(Valor As String)
If Len(Valor) = 11 Then CPF = Format(Valor,
"000"".""000"".""000""-""00") FORMATARCPFCNPJ = CPF ElseIf
Len(Valor) = 14 Then CNPJ = Format(Valor,
"00"".""000"".""000""/""0000""-""00") FORMATARCPFCNPJ = CNPJ Else
MsgBox "QUANTIDADE DE DGITOS INCORRETA" + vbCrLf + " CPF deve
conter 11 dgitos e CNPJ deve conter 14 dgitos", vbCritical, "Ateno"
End If End Function
