Cadastro com Combobox

[Marcossantiago]

Ola!
Através de um modelo já existente eu reescrevi o código VBA para poder inserir as informações que preciso:
Não sou profissional nisso e to pesquisando bastante mas não to conseguindo avançar mais, gostaria de receber ajuda no seguinte:

Preciso que no combobox origem do formulário apareça as opções que estão em AJ2:AJ4
no combobox contrato assinado apareça as opções que estão em Ak2:Ak5

e que o Pesquisar/Editar funcione.

Agradeço qualquer ajuda.
Obrigado

[avgsantos]

Segue o arquivo com a combobox atualizado, trazendo as informações conforme solicitado,

[avgsantos]

Segue a arquivo atualizado, adicionei botões novo, alterações, favor fazer os testes depois marcar no tópico resolvido.

Abs

Avgsantos

[srobles]

Marcossantiago,

Segue modelo editado. Teste e veja se é isso o que busca.

Abs

[Marcossantiago]

ficaram muito bons pessoal, eu tava baixando e lendo muitos exemplos mas não tava saindo do lugar.

Eu testei a do Avgsantos e achei que um botão pra Novo e outra pra Gravar, pode confundir .

A do srobles ficou maneira só tem um problema, a exigência de todos os campos.

A primeira exigência seria escolher a Origem(Advocacia,aluguel,outros)

Quando eu coloco na Origem Aluguel, eu na verdade só vou tenho obrigação de preencher CPF,NOME,RUA,Nº, BAIRRO,TELEFONE 1. e depois pula para os campos Inicio do Contrato até Dia de Pagamento.

Quando eu coloco na Origem Advocacia, tenho que preencher CPF,NOME,Ação,RUA,Nº, BAIRRO,TELEFONE 1, e de Data Inicio do Processo até A Partir De:

Quando eu coloco na Origem Outros, Não ha exigência de preencher nenhum dos campos antes de Salvar.

[srobles]

Marcossantiago,

Essa restrição pode ser removida. Seria um problema não existir a obrigação de preenchimento?

Abs

[srobles]

Marcossantiago,

Estou respondendo neste post apenas para manter a organização ok? Mande uma MP para os moderadores, solicitando a retirada do seu outro post do tópico do usuário pedro_mexico ok?

Segue seu modelo editado conforme solicitação.

Abs

[Marcossantiago]

Srobles, Valeu ! Já solicitei a exclusão da mensagem no outro tópico.

Sabe me dizer porque os formulários do Projeto.zip não estão salvando as informações quando clica no botão Salvar?

Eu prefiro que a pesquisa seja pelo nome e não pelo CPF, basta alterar a coluna no trecho do código ?

Sub pesquisaClienteAdvocacia()
'Rotina para pesquisar clientes
With ThisWorkbook.Sheets("DADOSADVOCACIA")
.Activate
On Error GoTo vErro
'Pesquisa na base pelo CPF
Columns("A:A").Find(frmAdvocacia.txtCPF, ActiveCell, xlValues, xlWhole, xlByRows, xlNext).Activate

[srobles]

Marcossantiago,

Quanto ao problema de não salvar as informações, não enfrentei o problema descrito por você, porém, de qualquer maneira, modifiquei o código de salvamento para evitar tal situação.

Quanto a pesquisar pelo nome, sim, seria só alterar a instrução Columns("A:A").Find(nomeDoForm.Campo,bla,bla,xlWhole,bla) por Columns("B:B").Find(nomeDoForm.Campo,bla,bla,xlPart,bla), porém, por experiência própria, recomendo que utilize o CPF por ser "único", pois com nome, você terá de, além de trabalhar mais o código, terá de criar botões para navegar por todos os registros ate encontrar o registro que deseja, e remover a função de alterar o cadastro do botão de pesquisa, a menos que isso não seja problema para você.

Em anexo, deixo seu modelo reeditado, porém buscando pelo CPF. Caso queira utilizar a pesquisa por nome, mude conforme informei acima e edite os códigos das funções de Pesquisa e Travamento de campos de cada formulário para usar o campo de nome e deixar apenas este campo destravado, respectivamente.

Abs