boa-tarde
Aparentemente só está faltando inserir uma "ListView" nos forms.

Vá na "Caixa de Ferramentas" e insira uma "ListView" se não encontrar, clique com o direito na "Caixa de Ferramentas" e "Controles Adicionais" e procure por "Microsoft ListView Control 6.0" e habilite esta opção.

Att,

Francisco

Eu uso Excel 2103 e acho que windows 64 bits , nao achei

clique com o direito na "Caixa de Ferramentas" e "Controles Adicionais" e procure por "Microsoft ListView Control 6.0"

dá uma olhada nesse link abaixo...talvez te ajude !

http://logicavba.blogspot.com.br/2013/1 ... ew-no.html

Também postei um exemplo em:
viewtopic.php?f=10&t=21506

devido uma outra duvida.....
Talvez sirva este exemplo.....

Vi aqui meu Excel e versao 2013 64 bits, entao nao será possivel pelo que entendi ?

Existe outra maneira de rodar este Banco de dados sem a ListView ?

Andre

Precisa reescrever parte dos codigos mas vc pode usar uma listbox, que é nativa do excel e da menos problemas.

O que devo mudar no codigo MPrudencio ?
Poderia me enviar no anexo ?

Grato

Andre

Faça uma pesquisa sobre listbox que vc vai encontrar muitas referencias....

Ola MPrudencio, não sei se ja percebeu, mas não domino VBA, consigo ate fazer algumas modificacoes em projetos prontos associando outras vbas , mas isso não consigo. Como vc disse que teria que fazer algumas modificacoes e eu não sei fazer, mesmo olhando o link , teria como vc as fazer a mim, visto acreditar que a macro nem e tao grande ?

Se der beleza, se não der vou entender, afinal vc esta sempre me ajudando.

Grato

Andre

Mando em anexo uma Tabela cadastro de clientes que consegui montar acompanhando alguns videos Youtube,

Esta ate legal, so nao estou acertando o botao do atualizar.

Alem disso percebi que se eu colocar bordas nas celulas, entende-se que a linha esta preenchida, e assim mesmo ?

A sim nao botei o botao fechar pra atuar, o resto esta a contendo.

Podem ajudar ?

Grato

Boa-noite,
Segue um código "Atualizar" que utilizo em alguns forms, adapta ao seu projeto.

Private Sub btnAtualizar_Click()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("shtClientes") 'Cadastra ("range dinamica nomeada - Expande com a digitação")

Dim ultimalinha As Object
Dim codigo As Integer
Set ultimalinha = Plan1.Range("A500").End(xlUp)

linha = 2
codigo = txtCodigo

ws.Select

linha = ws.Range("A:A").Find(codigo).Row

With ws
           
     .Cells(linha, 1) = txtCodigo.Text
     .Cells(linha, 2) = txtNome
     '.Cells(linha, 3) = txtDtNascimento
     .Cells(linha, 3) = Format(txtDtNascimento, "mm/dd/yyyy")
     .Cells(linha, 4) = txtEndereco
     .Cells(linha, 5) = txtNumero
     .Cells(linha, 6) = txtComplemento
     .Cells(linha, 7) = txtBairro
     .Cells(linha, 8) = txtCidade
     .Cells(linha, 9) = txtUf
     .Cells(linha, 10) = txtCep
     .Cells(linha, 11) = Format(txtTelefone, "(##)#####-####")
     .Cells(linha, 12) = Format(txtCelular, "(##)#####-####")
     .Cells(linha, 13) = txtEmail
     .Cells(linha, 14) = txtDtCadastro
     .Cells(linha, 15) = txtObs
          
End With
     
    MsgBox ("Dados Atualizados Com Sucesso !"), vbInformation, "Atenção!"
    
    txtCodigo.Text = ultimalinha.Offset(1, 0).Select
    txtCodigo.Text = ultimalinha + 1
   
'Limpa todos os campos do formulário
    
txtNome.Text = ""
txtDtNascimento.Text = ""
txtEndereco.Text = ""
txtNumero.Text = ""
txtComplemento.Text = ""
txtBairro.Text = ""
txtCidade.Text = ""
txtUf.Text = ""
txtCep.Text = ""
txtTelefone.Text = ""
txtCelular.Text = ""
txtEmail.Text = ""
'txtDtCadastro.Text = ""
txtObs.Text = ""
   
txtNome.SetFocus

lblRegistro = Application.WorksheetFunction.CountA(Range("A1:A500")) - 1

btnAtualizar.Enabled = False
Me.btnCadastrar.Enabled = True

End Sub

Att,

Francisco

Nao acertei fazer, seria possivel me enviar na tabela que enviei no anexo ?

Grato

Andre

Segue arquivo...
Fiz alterações nos botões "Salvar" e "Atualizar". E tbm no botão "Fechar".

Os campos desse formulário de cadastro é o que vai ser digitado no seu "Cadastro de Clientes" !?

Att,

Francisco

Fiz mais algumas alterações...dá uma olhada !