Copiei as suas modificacoes do codigo para meu cadastro e deu o mesmo problema, ou seja, em Novo Cadastro a imagem é salva na linha certa, mas ao tentar atualizar um cliente ja cadastrado e inserir a foto, o caminho da imagem é salva na Coluna correta Q, no meu caso é R, porem na proxima linha em branco apos o ultimo cadastro preenchido.

Vamos ver se alguem pode nos ajudar.

Quanto a data a formatacao ficou joia !

Andre

Amigo fscarlosc

Seria possivel me mostrar ons esta o erro ao efetuar o cadastro ? Ja quebrei a cabeca por 2 dias e nao acho o erro. Se eu nao marcar nem CPF e nem o CNPJ entao nao da erro algum. o cadastro e salvo e tudo certo. Porem se eu marcar CPF ou CNPJ da erro aqui .

Erro de compilacao
SUB ou Function nao definida em ( opt_juridica ) no comando abaixo

Notei tb que na ultima que enviou v . 1.3.2 ao clicar em Novo cadastro, o botao novo continua selecionado e entao somente depois de clicar em CPF ou CNPJ é que o campo Nome fica amarelo.

Neste caso da plan em anexo, ao clicar em Novo , o campo NOME ja fica em amarelo e pronto , acho que o erro esta aqui.

Poderia me ajudar? Mas eu gostaria que me mostrasse onde esta o erro dentro do comando para eu poder entender.

Grato

Andre

Private Sub Caixa_CPF_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Caixa_CPF.Text = "" Then
Caixa_CPF.BackColor = vbWhite
Exit Sub
End If

If opt_fisica = True And FU_ValidaCPF(Caixa_CPF.Text) = 0 Then
MsgBox ("CPF Inválido"), vbInformation, "Atenção!"
Cancel = True
Caixa_CPF.Text = ""
Exit Sub
End If

If opt_juridica = True And ValidaçãoCNPJ(Caixa_CPF.Text) = 0 Then
MsgBox ("CNPJ Inválido"), vbInformation, "Atenção!"
Cancel = True
Caixa_CPF.Text = ""
Exit Sub
End If

Me.Caixa_CPF.BackColor = vbWhite

End Sub

Boa-noite,

Dá uma pesquisada sobre os eventos, para que serve cada um...!?

Private Sub TextBox1_Change()
Private Sub TextBox1_Click()
Private Sub TextBox1_AfterUpdate()
Private Sub TextBox1_Exit()

e por ai vai...!

Acho que você misturou algumas coisas.

Att,

Francisco

Boa-noite

Dei uma olhada aqui e não é no evento, acho que você removeu do "Módulo 2" a "Function" ValidaçãoCNPJ

Att,

Francisco

Segue anexo... Altere novamente o local da imagem no Planilha Clientes

To em casa , mas não resisto, vou acessar a maquina meu filhoe baixar aqui rsrs ai te falo.

Estou assistindo umas aulas na net em cono transformar o excel em excutavel, ja viu no youtube ?

Excel Vba - aula 1 - curso ComSlin

Espero conseguir.

Se eu conseguir fazer vai ser show, minha planilha ficara mais bonita e profissional.

Andre

Pesquisa por XLtoEXE é bem fácil de usar.

http://cpap.com.br/orlando/XLtoExeMais.asp

Dei uma olhada no link, e não sei se consigo. Vou tentar pelo video mesmo, pois la tem o passo a passo.

Mas seria o mesmo o do video e esse do link que passou ?

O Excel é ferramenta p/ análise de dados e não p/ coleta/cadastramento, isso é com o Access.

O Excel é ferramenta p/ análise de dados e não p/ coleta/cadastramento, isso é com o Access.

Bom dia, eu sei disso , mas é que sei trabalhar 10% com excel com as formulas e acess nunca mexi. De fato acredito ser melhor mesmo, tanto que ja estive pensando e como fazer, .

TMJ Abracos

Andre