Boa tarde, Laoni Barbosa
Como tu informou no post #12 (acima) que os Itens citados do Combobox Status do Sinistro,
e os itens do Formulário "Roubo" nem todos necessitem serem preenchidos, tu terás que
alterar todas as linhas como mostradas abaixo (exemplo de 3 trechos de código), conforme
a necessidade de cada "item" do combobox:
Private Sub botao_cadastrar_roubo_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
If Comb_sinistrostatus.Text = "Enviado seguradora - OK" _
Or Comb_sinistrostatus.Text = "Em Análise" _
And Comb_datasinistro.Value = "" Then
MsgBox "Este campo Data Sinistro se encontra em BRANCO!", vbCritical, "PREENCHIMENTO OBRIGATÓRIO!"
Comb_datasinistro.SetFocus
ElseIf Comb_sinistrostatus.Text = "Enviado seguradora - OK" _
Or Comb_sinistrostatus.Text = "Em Análise" _
And Comb_dataaviso.Value = "" Then
MsgBox "Este campo Data Aviso se encontra em BRANCO!", vbCritical, "PREENCHIMENTO OBRIGATÓRIO!"
Comb_dataaviso.SetFocus
ElseIf Comb_sinistrostatus.Text = "Enviado seguradora - OK" _
Or Comb_sinistrostatus.Text = "Enviado seguradora - S/Cobertura" _
And Text_nsinistroreguladora.Value = "" Then
MsgBox "Este campo Nº Sinistroreguladora se encontra em BRANCO!", vbCritical, "PREENCHIMENTO OBRIGATÓRIO!"
Text_nsinistroreguladora.SetFocus
Else
Call RotinaRoubo
End If
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Observe que o código depois do "Else" foi "excluído", pois este código agora será colocado em um módulo,
para facilitar; então este código se encontra abaixo, agora copie e cole "ele" para o módulo que criastes:
Sub RotinaRoubo()
Dim ws As Worksheet
Set ws = Worksheets("geral"
linha = Range("B1".End(xlDown).Row + 1
RESPOSTA = MsgBox("Tem certeza que deseja concluir o cadastro?", vbYesNo, "SISTEMA"
If RESPOSTA = vbYes Then
ws.Cells(linha, 2) = ROUBO.Comb_datasinistro.Value
ws.Cells(linha, 3) = ROUBO.Comb_dataaviso.Value
ws.Cells(linha, 4) = ROUBO.Text_nsinistroreguladora.Value
ws.Cells(linha, 5) = ROUBO.Comb_tipoapolice.Value
ws.Cells(linha, 6) = ROUBO.Text_nprocessoallianz.Value
ws.Cells(linha, 7) = ROUBO.Text_segurado.Value
ws.Cells(linha, 8) = ROUBO.Text_napolice.Value
ws.Cells(linha, 9) = ROUBO.Comb_setor.Value
ws.Cells(linha, 10) = ROUBO.Comb_produto.Value
ws.Cells(linha, 11) = ROUBO.Comb_ramotecnico.Value
ws.Cells(linha, 12) = ROUBO.Comb_natureza.Value
ws.Cells(linha, 13) = ROUBO.Text_empresadestino.Value
ws.Cells(linha, 14) = ROUBO.Comb_tipoveiculo.Value
ws.Cells(linha, 15) = ROUBO.Comb_tipocarroceria.Value
ws.Cells(linha, 16) = ROUBO.Comb_regulador.Value
ws.Cells(linha, 17) = ROUBO.Text_transportador.Value
ws.Cells(linha, 18) = ROUBO.Comb_tipoembalagem.Value
ws.Cells(linha, 19) = ROUBO.Comb_paletizacao.Value
ws.Cells(linha, 20) = ROUBO.Comb_modal.Value
ws.Cells(linha, 21) = ROUBO.est_origem.Value
ws.Cells(linha, 22) = ROUBO.cidade_orig.Value
ws.Cells(linha, 23) = ROUBO.Text_paisorigem.Value
ws.Cells(linha, 24) = ROUBO.estado_dest.Value
ws.Cells(linha, 25) = ROUBO.cidade_dest.Value
ws.Cells(linha, 26) = ROUBO.Text_paisdestino.Value
ws.Cells(linha, 27) = ROUBO.estado_ocor.Value
ws.Cells(linha, 28) = ROUBO.cidade_ocor.Value
ws.Cells(linha, 29) = ROUBO.Text_paisocorrencia.Value
ws.Cells(linha, 30) = ROUBO.Text_latlong.Value
ws.Cells(linha, 31) = ROUBO.Comb_tipooperacao.Value
ws.Cells(linha, 32) = ROUBO.Comb_moeda.Value
ws.Cells(linha, 33) = ROUBO.Text_horariosinistro.Value
ws.Cells(linha, 34) = ROUBO.Comb_tipoabordagem.Value
ws.Cells(linha, 35) = ROUBO.Comb_monitoramento.Value
ws.Cells(linha, 36) = ROUBO.Comb_isca.Value
ws.Cells(linha, 37) = ROUBO.Comb_iscaqtde.Value
ws.Cells(linha, 38) = ROUBO.Comb_iscafornecedor.Value
ws.Cells(linha, 39) = ROUBO.Comb_escolta.Value
ws.Cells(linha, 40) = ROUBO.Comb_escoltaconfronto.Value
ws.Cells(linha, 41) = ROUBO.Comb_motoristavinculo.Value
ws.Cells(linha, 42) = ROUBO.Comb_motoristaAPP.Value
ws.Cells(linha, 43) = ROUBO.Comb_motoristapesquisa.Value
ws.Cells(linha, 44) = ROUBO.Comb_pesquisavitimologia.Value
ws.Cells(linha, 45) = ROUBO.Comb_cargarecuperada.Value
ws.Cells(linha, 46) = ROUBO.Comb_pesquisaveiculo.Value
ws.Cells(linha, 47) = ROUBO.Comb_desviorota.Value
ws.Cells(linha, 48) = ROUBO.Comb_envolvimentomotorista.Value
ws.Cells(linha, 49) = ROUBO.Comb_pgr.Value
ws.Cells(linha, 50) = ROUBO.Comb_pgritem.Value
ws.Cells(linha, 51) = ROUBO.Text_valorembarque.Value
ws.Cells(linha, 52) = ROUBO.Text_valorprejuizo.Value
ws.Cells(linha, 53) = ROUBO.Text_valorprejuizoliquidofranquia.Value
ws.Cells(linha, 54) = ROUBO.Text_valorfranquia.Value
ws.Cells(linha, 55) = ROUBO.Text_descricaoevento.Value
ws.Cells(linha, 56) = ROUBO.Comb_sinistrostatus.Value
MsgBox ("Cadastro Realizado com Susesso!"
'LIMPA DADOS DA CAIXAS
ROUBO.Comb_datasinistro = ""
ROUBO.Comb_dataaviso = ""
ROUBO.Text_nsinistroreguladora = ""
ROUBO.Comb_tipoapolice = ""
ROUBO.Text_nprocessoallianz = ""
ROUBO.Text_segurado = ""
ROUBO.Text_napolice = ""
ROUBO.Comb_setor = ""
ROUBO.Comb_produto = ""
ROUBO.Comb_ramotecnico = ""
ROUBO.Comb_natureza = ""
ROUBO.Text_empresadestino = ""
ROUBO.Comb_tipoveiculo = ""
ROUBO.Comb_tipocarroceria = ""
ROUBO.Comb_regulador = ""
ROUBO.Text_transportador = ""
ROUBO.Comb_tipoembalagem = ""
ROUBO.Comb_paletizacao = ""
ROUBO.Comb_modal = ""
ROUBO.est_origem = ""
ROUBO.cidade_orig = ""
ROUBO.Text_paisorigem = ""
ROUBO.estado_dest = ""
ROUBO.cidade_dest = ""
ROUBO.Text_paisdestino = ""
ROUBO.estado_ocor = ""
ROUBO.cidade_ocor = ""
ROUBO.Text_paisocorrencia = ""
ROUBO.Text_latlong = ""
ROUBO.Comb_tipooperacao = ""
ROUBO.Comb_moeda = ""
ROUBO.Text_horariosinistro = ""
ROUBO.Comb_tipoabordagem = ""
ROUBO.Comb_monitoramento = ""
ROUBO.Comb_isca = ""
ROUBO.Comb_iscaqtde = ""
ROUBO.Comb_iscafornecedor = ""
ROUBO.Comb_escolta = ""
ROUBO.Comb_escoltaconfronto = ""
ROUBO.Comb_motoristavinculo = ""
ROUBO.Comb_motoristaAPP = ""
ROUBO.Comb_motoristapesquisa = ""
ROUBO.Comb_pesquisavitimologia = ""
ROUBO.Comb_cargarecuperada = ""
ROUBO.Comb_pesquisaveiculo = ""
ROUBO.Comb_desviorota = ""
ROUBO.Comb_envolvimentomotorista = ""
ROUBO.Comb_pgr = ""
ROUBO.Comb_pgritem = ""
ROUBO.Text_valorembarque = ""
ROUBO.Text_valorprejuizo = ""
ROUBO.Text_valorprejuizoliquidofranquia = ""
ROUBO.Text_valorfranquia = ""
ROUBO.Text_descricaoevento = ""
ROUBO.Comb_sinistrostatus = ""
Else
MsgBox "sinistro não cadastrado"
End If
Set ws = Nothing
End Sub
Seja a imagem abaixo com explicações informativas:
Então somente quando alterar os mais de 52 trechos do Código (de acordo como quer que cada item
verifique se será obrigatório o preenchimento do campo), será executado o "registro" das informações
na Sheet "Roubo".
Verifique se era isso que queria, qualquer coisa estamos aqui
Aguardando sua resposta e seu Feed Back ... e não esqueça de Clicar no Botão "Curtir" ...
LaerteB