O MSAccess já tem um banco de dados montado exatamente p/ gerenciar contatos como o q vc está tentando criar.
Penso q seria menos trabalhoso utiliza-lo.

O MSAccess já tem um banco de dados montado exatamente p/ gerenciar contatos como o q vc está tentando criar.
Penso q seria menos trabalhoso utiliza-lo.

Amigo, a minha intenção é aprender, estou com 82 anos e preciso usar a mente, entende?

OLa CLEOPHAS,

Veja o exemplo que coloco em anexo se te ajuda. Foi necessário criar um textbox para armazenar o caminho da foto, e por meio desse caminho textbox que enviamos o caminho para para a planilha.

Uma observação, no seu cadastro eu não vi pesquisa e/ou botões de navegação, é necessário ter isso em seu projeto, senão depois ficará complicado para você navegar pelos cadastros já registrados.

Abraço e parabéns pela iniciativa aos 82 anos, tem minha profunda admiração.

Guima, obrigado pelo estímulo, a ideia é essa, manter o cérebro ativo e nada melhor que a lógica de programação, não é verdade?. Não entendi bem o que você chama de pesquisa e botões de navegação. Eu tenho na parte inferior do meu formulário 6 botões que funcionam perfeitamente, só sinto falta, e vou incrementar mais um para editar um cadastro. O campo localizar preenche todos os dados clicando em cima de um nome. Você resolveu 90% do problema do endereço da imagem. Os 10% que faltam são referentes a imagem voltar para o formulário quando o cadastro for localizado pelo campo localizar. Obrigado pela ajuda a esse jovem senhor.

Desculpe, não havia percebido esse botão localizar.

Então, vamos lá. No evento CLICK da Caixa_Localizar acrescente "txtfoto = Cells(i + 2, 12)". A rotina completa ficará assim:

Private Sub caixa_LOCALIZAR_Click()
totalregistro = Worksheets("BancoDados").UsedRange.Rows.Count
For i = 0 To totalregistro
If caixa_LOCALIZAR.ListIndex = i Then
        'preenher as caixas
    caixa_NOME = Cells(i + 2, 1)
    caixa_ENDEREÇO = Cells(i + 2, 2)
    CAIXA_BAIRRO = Cells(i + 2, 3)
    caixa_CEP = Cells(i + 2, 4)
    caixa_ESTADO = Cells(i + 2, 5)
    caixa_CIDADE = Cells(i + 2, 6)
    caixa_CATEGORIA = Cells(i + 2, 7)
    caixa_CPF = Cells(i + 2, 8)
    caixa_TELEFONE = Cells(i + 2, 9)
    caixa_CELULAR = Cells(i + 2, 10)
    caixa_OBSERVAÇÃO = Cells(i + 2, 11)
    txtfoto = Cells(i + 2, 12)
    Exit Sub
    End If
    Next
End Sub

Guima, como se diz na gíria "Matou a pau". Uma boa passagem de ano pra você e seus familiares.

Guima bom dia, "O bom filho a casa retorna". Novamente venho pedir a sua ajuda. Pesquisei vários códigos para "alterar" um cadastro e dentre muitos selecionei o que me parecia o mais simples. Porém, como você pode vê no anexo, está dando um erro que não sei como consertar. Desde já agradeço a atenção dispensada.
P.S. Aquele campo que você criou no formulário para o endereço da imagem, por questões de estética eu o tornei invisível.