Este fórum está sendo desativado

[orivaljunior10]

Tenho um Form_Conferir_Cad_Motorista que ao ser digitado o CPF deve pesquisar se já esta cadastrado:
Caso esteja abre o Form_Reg_Entr_Veiculo ou..
Caso não abre o Form_Cad_motorista.

Agradeço,
orivaljunior10

[laennder]

orival, poste seu anexo novamente.

São permitidos apenas arquivos compactados (zip, rar ou semelhantes)

[orivaljunior10]

Estou a apanhar aqui,, quando tento responder não acho o icone para anexar o arquivo em rar. Me auxilie por favor.

[orivaljunior10]

Vamos tentar por link do DropBox. Obrigado.

https://www.dropbox.com/s/nkt0ej1zyv0ed ... .xlsm?dl=0

[alexandrevba]

Bom dia!!

Ao clicar em responder, mova para baixo a barra de rolagem, havera duas opções Opções e Adicionar um anexo.

O mesmo deve está compactado!!!

Veja meu anexo com a imagem.

Att

[orivaljunior10]

Segue arquivo zipado.
Obrigado.
orivaljunior10

[orivaljunior10]

Adiciono mais uma dúvida sobre esta planilha;
Seria melhor colocar todos os dados em uma unica planilha ou dividi-la como estou fazendo?

Pois reparem que os registros de entrada e saída do veículo estão em outra planilha..sendo que estes dados referem-se ao cadastro do motorista. Talvez esta concatenação entre as planilhas torne o gerenciamento destes dados mais complexos.
obrigado novamente.
orivaljunior10

[Gerson]

Caro Amigo

acredito que consegui solucionar a sua solicitação.

segue o arquivo

[Yera]

Olá,

para a primeira questão (como abrir um outro formulário preenchido) é bastante simples.
Seguindo o código que o gerson mandou no arquivo, após identificar o motorista você só precisaria popular o formulario de entrada de veículo com essas informações.

Ficaria algo mais ou menos desse tipo:
Na função: Bt_Conferir_Cpf_Click

For linha = 2 To ultimoregistro
If Sheets("Plan_Cadastro_Motorista").Cells(linha, 2) = dado Then
' NomeMotorista = (buscarDaSuaOutraPlanilhaComOsMotoristas ou ColocarNumaOutraAbaDessaPlanilha)
Form_Reg_Entrad_Veiculo.Campo_Nome_Reg_Entr_Veiculo.text = NomeMotorista
'E assim para todos os outros campos a serem preenchidos
Form_Reg_Entrad_Veiculo.Show
Exit Sub
Else
End If
Next

Grande abraço.