ComboBox VBA Excel

Question

Boa tarde,

Veirficnado ponto por ponto oo c&oacute;digo  agora ele esta salvando tudo, por&eacute;m esta com a informa&ccedil;&atilde;o de DATA SINISTROem branco

[ATTACH=full]119702[/ATTACH]

E aparece a informa&ccedil;&atilde;o de que se deseja concluir o cadastro.
[ATTACH=full]119704[/ATTACH]

C&oacute;digo (Text):

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 = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_datasinistro.Value =  Then
    MsgBox Este campo Data Sinistro se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
    Comb_datasinistro.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_dataaviso.Value =  Then
    MsgBox Este campo Data Aviso se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
    Comb_dataaviso.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_nsinistroreguladora.Value =  Then
    MsgBox Este campo N&ordm; Sinistro Reguladora se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
    Text_nsinistroreguladora.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_tipoapolice.Value =  Then
    MsgBox Este campo Tipo Ap&oacute;lice se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
    Comb_tipoapolice.SetFocus
  
   ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_nprocessoallianz.Value =  Then
        MsgBox Este campo N&ordm; Processo Allianz se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_nprocessoallianz.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_segurado.Value =  Then
        MsgBox Este campo Segurado se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_segurado.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_napolice.Value =  Then
        MsgBox Este campo N&ordm; Ap&oacute;lice se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_napolice.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_setor.Value =  Then
        MsgBox Este campo Setor se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_setor.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_ramotecnico.Value =  Then
        MsgBox Este campo Ramo T&eacute;cnico se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_ramotecnico.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_natureza.Value =  Then
        MsgBox Este campo Natureza se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_natureza.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_empresadestino.Value =  Then
        MsgBox Este campo Empresa Destino se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_empresadestino.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_tipoveiculo.Value =  Then
        MsgBox Este campo Tipo Ve&Iacute;culo se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_tipoveiculo.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_tipocarroceria.Value =  Then
        MsgBox Este campo Tipo Carroceria se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_tipocarroceria.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_regulador.Value =  Then
        MsgBox Este campo Regulador se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_tipocarroceria.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_transportador.Value =  Then
        MsgBox Este campo Transportador se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_transportador.SetFocus
    
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_tipoembalagem.Value =  Then
        MsgBox Este campo Tipo Embalagem se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_tipoembalagem.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_paletizacao.Value =  Then
        MsgBox Este campo Paletiza&ccedil;&atilde;o se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_paletizacao.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_modal.Value =  Then
        MsgBox Este campo Modal se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_modal.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And est_origem.Value =  Then
        MsgBox Este campo Origem se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        est_origem.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And cidade_orig.Value =  Then
        MsgBox Este campo Cidade Origem se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        cidade_orig.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_paisorigem.Value =  Then
        MsgBox Este campo Pais Origem se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_paisorigem.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And estado_dest.Value =  Then
        MsgBox Este campo Estado Destino se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        estado_dest.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And cidade_dest.Value =  Then
        MsgBox Este campo Cidade Destino se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        cidade_dest.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_paisdestino.Value =  Then
        MsgBox Este campo Pa&iacute;s Destino se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_paisdestino.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And estado_ocor.Value =  Then
        MsgBox Este campo Estado Ocorr&ecirc;ncia se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        estado_ocor.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And cidade_ocor.Value =  Then
        MsgBox Este campo Cidade Ocorr&ecirc;ncia se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        cidade_ocor.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_paisocorrencia.Value =  Then
        MsgBox Este campo Pa&iacute;s Ocorr&ecirc;ncia se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_paisocorrencia.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_latlong.Value =  Then
        MsgBox Este campo Lat Long se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_latlong.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_tipooperacao.Value =  Then
        MsgBox Este campo Tipo Opera&ccedil;&atilde;o se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_tipooperacao.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_moeda.Value =  Then
        MsgBox Este campo Moeda se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_moeda.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_horariosinistro.Value =  Then
        MsgBox Este campo Hor&aacute;rio Sinistro se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_horariosinistro.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_tipoabordagem.Value =  Then
        MsgBox Este campo Tipo Abordagem se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_tipoabordagem.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_monitoramento.Value =  Then
        MsgBox Este campo Monitoramento se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_monitoramento.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_isca.Value =  Then
        MsgBox Este campo &Iacute;sca se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_isca.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_iscaqtde.Value =  Then
        MsgBox Este campo Qtde &Iacute;sca se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_iscaqtde.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_iscafornecedor.Value =  Then
        MsgBox Este campo Isca Fornecedor se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_iscafornecedor.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_escolta.Value =  Then
        MsgBox Este campo Escolta se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_escolta.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_escoltaconfronto.Value =  Then
        MsgBox Este campo Escolta Confronto se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_escoltaconfronto.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_motoristavinculo.Value =  Then
        MsgBox Este campo Motorista V&iacute;nculo se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_motoristavinculo.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_motoristaAPP.Value =  Then
        MsgBox Este campo Motorista APP se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_motoristaAPP.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_motoristapesquisa.Value =  Then
        MsgBox Este campo Motorista Pesquisa se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_motoristapesquisa.SetFocus
      
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_pesquisavitimologia.Value =  Then
        MsgBox Este campo Pesquisa Vitimologia se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_pesquisavitimologia.SetFocus
              
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_cargarecuperada.Value =  Then
        MsgBox Este campo Carga Recuperada se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_cargarecuperada.SetFocus
              
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_pesquisaveiculo.Value =  Then
        MsgBox Este campo Pesquisa Ve&iacute;culo se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_pesquisaveiculo.SetFocus
              
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_desviorota.Value =  Then
        MsgBox Este campo Desvio Rota se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_desviorota.SetFocus
              
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_envolvimentomotorista.Value =  Then
        MsgBox Este campo Envolvimento Motorista se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_envolvimentomotorista.SetFocus
              
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_pgr.Value =  Then
        MsgBox Este campo PGR se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_pgr.SetFocus
              
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Comb_pgritem.Value =  Then
        MsgBox Este campo PGR Item se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Comb_pgritem.SetFocus
              
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_valorembarque.Value =  Then
        MsgBox Este campo Descri&ccedil;&atilde;o Evento se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_descricaoevento.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_valorprejuizo.Value =  Then
        MsgBox Este campo Descri&ccedil;&atilde;o Evento se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_descricaoevento.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_valorfranquia.Value =  Then
        MsgBox Este campo Descri&ccedil;&atilde;o Evento se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_descricaoevento.SetFocus
              
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_valorprejuizoliquidofranquia.Value =  Then
        MsgBox Este campo Descri&ccedil;&atilde;o Evento se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_descricaoevento.SetFocus
  
    ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK _
    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
    Or Comb_sinistrostatus.Text =  -  _
    And Text_descricaoevento.Value =  Then
        MsgBox Este campo Descri&ccedil;&atilde;o Evento se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
        Text_descricaoevento.SetFocus

Else
  
   End If
     Call RotinaRoubo

Application.Calculation = xlCalculationAutomatic
  Application.EnableEvents = True
  Application.ScreenUpdating = True
End Sub

Answer

Bom dia, Laoni Barbosa

Observei que esqueci de incluir o and conforme a imagem abaixo (j&aacute; com explica&ccedil;&atilde;o) desta
forma n&atilde;o ocorrer&aacute; de informar que se o campo em quest&atilde;o est&aacute; em branco (caso n&atilde;o esteja vazio),
contudo tu tinhas comentado nas mensagens acima que n&atilde;o era necess&aacute;rio que todos os
itens do ComboBox Status do Sinistro precisavam preencher todos os campos do
formul&aacute;rio - se for assim tire as linhas com o item n&atilde;o necess&aacute;rio para o preenchimento
do respectivo campo no formul&aacute;rio :boa:.
[ATTACH=full]119724[/ATTACH]

Fazer isso em todos os trechos do seu c&oacute;digo :bom_trabalho:.

Agora em rela&ccedil;&atilde;o a janela que abria e informava se desejava concluir o Cadastro, era que o comando
referente ao c&oacute;digo que se encontra no seu m&oacute;dulo, tinha sido inserido no lugar errado; veja a imagem
abaixo explicando o lugar correto:
[ATTACH=full]119726[/ATTACH]

Altere o que for necess&aacute;rio, verifique e teste, agora estar&aacute; funcionando de acordo...

Qualquer coisa estamos aqui para ajud&aacute;-lo:cadeado_alegrinho:.

Aguardando sua resposta e seu Feed Back ... e n&atilde;o esque&ccedil;a de Clicar no Bot&atilde;o Curtir :bom_trabalho:...

LaerteB:)

Answer

Boa tarde,

Fiz as altera&ccedil;&otilde;es conforme vc me informou por&eacute;m n&atilde;o registra conforme deveria.

segue abaixco o c&oacute;digo com os itens que n&atilde;o necessitam o preenchimento.

Private Sub botao_cadastrar_roubo_Click()
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  Application.EnableEvents = False
     If Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'    And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'    And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_datasinistro.Value =   Then
     MsgBox Este campo Data Sinistro se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
     Comb_datasinistro.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'    And Comb_dataaviso.Value =  _
'    Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura
'    And Comb_dataaviso.Value =  _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_dataaviso.Value =  _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_dataaviso.Value =  _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_dataaviso.Value =  Then
     MsgBox Este campo Data Aviso se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
     Comb_dataaviso.SetFocus
   
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_nsinistroreguladora.Value =  Then
     MsgBox Este campo N&ordm; Sinistro Reguladora se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
     Text_nsinistroreguladora.SetFocus
   
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_tipoapolice.Value =  Then
     MsgBox Este campo Tipo Ap&oacute;lice se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
     Comb_tipoapolice.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_nprocessoallianz.Value =  Then
         MsgBox Este campo N&ordm; Processo Allianz se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_nprocessoallianz.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_segurado.Value =  Then
         MsgBox Este campo Segurado se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_segurado.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_napolice.Value =  Then
         MsgBox Este campo N&ordm; Ap&oacute;lice se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_napolice.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_setor.Value =  Then
         MsgBox Este campo Setor se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_setor.SetFocus
         
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_ramotecnico.Value =  Then
         MsgBox Este campo Ramo T&eacute;cnico se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_ramotecnico.SetFocus
   
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_natureza.Value =  Then
         MsgBox Este campo Natureza se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_natureza.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_empresadestino.Value =  Then
         MsgBox Este campo Empresa Destino se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_empresadestino.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_tipoveiculo.Value =  Then
         MsgBox Este campo Tipo Ve&Iacute;culo se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_tipoveiculo.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_tipocarroceria.Value =  Then
         MsgBox Este campo Tipo Carroceria se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_tipocarroceria.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_regulador.Value =  Then
         MsgBox Este campo Regulador se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_tipocarroceria.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_transportador.Value =  Then
         MsgBox Este campo Transportador se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_transportador.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_tipoembalagem.Value =  Then
         MsgBox Este campo Tipo Embalagem se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_tipoembalagem.SetFocus
         
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_paletizacao.Value =  Then
         MsgBox Este campo Paletiza&ccedil;&atilde;o se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_paletizacao.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_modal.Value =  Then
         MsgBox Este campo Modal se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_modal.SetFocus
         
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf est_origem.Value =  Then
         MsgBox Este campo Origem se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         est_origem.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf cidade_orig.Value =  Then
         MsgBox Este campo Cidade Origem se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         cidade_orig.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_paisorigem.Value =  Then
         MsgBox Este campo Pais Origem se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_paisorigem.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf estado_dest.Value =  Then
         MsgBox Este campo Estado Destino se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         estado_dest.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf cidade_dest.Value =  Then
         MsgBox Este campo Cidade Destino se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         cidade_dest.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_paisdestino.Value =  Then
         MsgBox Este campo Pa&iacute;s Destino se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_paisdestino.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf estado_ocor.Value =  Then
         MsgBox Este campo Estado Ocorr&ecirc;ncia se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         estado_ocor.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf cidade_ocor.Value =  Then
         MsgBox Este campo Cidade Ocorr&ecirc;ncia se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         cidade_ocor.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_paisocorrencia.Value =  Then
         MsgBox Este campo Pa&iacute;s Ocorr&ecirc;ncia se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_paisocorrencia.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_latlong.Value =  Then
         MsgBox Este campo Lat Long se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_latlong.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_tipooperacao.Value =  Then
         MsgBox Este campo Tipo Opera&ccedil;&atilde;o se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_tipooperacao.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_moeda.Value =  Then
         MsgBox Este campo Moeda se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_moeda.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_horariosinistro.Value =  Then
         MsgBox Este campo Hor&aacute;rio Sinistro se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_horariosinistro.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_tipoabordagem.Value =  Then
         MsgBox Este campo Tipo Abordagem se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_tipoabordagem.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_monitoramento.Value =  Then
         MsgBox Este campo Monitoramento se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_monitoramento.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_isca.Value =  Then
         MsgBox Este campo &Iacute;sca se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_isca.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_iscaqtde.Value =  Then
         MsgBox Este campo Qtde &Iacute;sca se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_iscaqtde.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_iscafornecedor.Value =  Then
         MsgBox Este campo Isca Fornecedor se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_iscafornecedor.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'    Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'    Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_escolta.Value =  Then
         MsgBox Este campo Escolta se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_escolta.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_escoltaconfronto.Value =  Then
         MsgBox Este campo Escolta Confronto se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_escoltaconfronto.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_motoristavinculo.Value =  Then
         MsgBox Este campo Motorista V&iacute;nculo se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_motoristavinculo.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_motoristaAPP.Value =  Then
         MsgBox Este campo Motorista APP se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_motoristaAPP.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_motoristapesquisa.Value =  Then
         MsgBox Este campo Motorista Pesquisa se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_motoristapesquisa.SetFocus
       
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_pesquisavitimologia.Value =  Then
         MsgBox Este campo Pesquisa Vitimologia se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_pesquisavitimologia.SetFocus
               
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_cargarecuperada.Value =  Then
         MsgBox Este campo Carga Recuperada se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_cargarecuperada.SetFocus
               
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_pesquisaveiculo.Value =  Then
         MsgBox Este campo Pesquisa Ve&iacute;culo se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_pesquisaveiculo.SetFocus
               
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_desviorota.Value =  Then
         MsgBox Este campo Desvio Rota se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_desviorota.SetFocus
               
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_envolvimentomotorista.Value =  Then
         MsgBox Este campo Envolvimento Motorista se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_envolvimentomotorista.SetFocus
               
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_pgr.Value =  Then
         MsgBox Este campo PGR se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_pgr.SetFocus
               
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Comb_pgritem.Value =  Then
         MsgBox Este campo PGR Item se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Comb_pgritem.SetFocus
               
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_valorembarque.Value =  Then
         MsgBox Este campo Descri&ccedil;&atilde;o Evento se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_descricaoevento.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_valorprejuizo.Value =  Then
         MsgBox Este campo Descri&ccedil;&atilde;o Evento se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_descricaoevento.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_valorfranquia.Value =  Then
         MsgBox Este campo Descri&ccedil;&atilde;o Evento se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_descricaoevento.SetFocus
               
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_valorprejuizoliquidofranquia.Value =  Then
         MsgBox Este campo Descri&ccedil;&atilde;o Evento se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_descricaoevento.SetFocus
     
     ElseIf Comb_sinistrostatus.Text = Enviado seguradora - OK Then
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Em An&aacute;lise _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text = Encerrado ou Cancelado _
'     And Comb_datasinistro.Value =   _
'     Or Comb_sinistrostatus.Text =  -  _
     ElseIf Text_descricaoevento.Value =  Then
         MsgBox Este campo Descri&ccedil;&atilde;o Evento se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
         Text_descricaoevento.SetFocus

Else
   
      Call RotinaRoubo
     
   End If

Application.Calculation = xlCalculationAutomatic
  Application.EnableEvents = True
  Application.ScreenUpdating = True
End Sub

[ATTACH=full]119770[/ATTACH]

Retirei os itens que n&atilde;o necessito agora o item Enviado seguradora - OK n&atilde;o registra.

Answer

Boa noite, Laoni Barbosa

Amigo, percebo que voc&ecirc; tem dificuldades em VBA, mas &eacute; normal para quem
&eacute; iniciante :bom_trabalho:.. ent&atilde;o vamos passo a passo para que fique bem explicado e
consiga solucionar as suas d&uacute;vidas :rindo_atoa:...

1&ordm; Voc&ecirc; n&atilde;o fez as altera&ccedil;&otilde;es como te informei no post #17, quase
completou o c&oacute;digo corretamente; veja na imagem abaixo um pequeno trecho 
do seu c&oacute;digo e o que te informei no post #17 (com informa&ccedil;&otilde;es para melhor 
visualiza&ccedil;&atilde;o):
[ATTACH=full]119804[/ATTACH]

2&ordm; Em rela&ccedil;&atilde;o aos itens que tu n&atilde;o necessita (agora tu tirou todos s&oacute;
ficando o item Enviado seguradora - OK), mas eu pensei que como voc&ecirc;
informou no post #14 ...n&atilde;o h&aacute; necessidade de que todos os 
outros txt e cbb dessa mascara estejam completos... [COLOR=#0080ff]teria alguns 
campos txt e cbb que seriam preenchido obrigatoriamente[/COLOR]..
por&eacute;m se n&atilde;o h&aacute; necessidade disso para os outros itens, a imagem
abaixo mostra como deve ser feito n&atilde;o incluindo os itens, somente
o Enviado seguradora - OK seria necess&aacute;rio (se n&atilde;o for isso &eacute; s&oacute;
colocar o item que necessita ser preenchido e em qual txt ou
cbb na imagem abaixo tb tem esse modelo para ti como exemplo):
[ATTACH=full]119806[/ATTACH]

3&ordm; Para o n&atilde;o registro do item Enviado seguradora - OK est&aacute;
relacionado as linhas que est&atilde;o erradas.. as imagens
acima informam o correto lugar para elas, com isso
funcionar&aacute; corretamente :boa:...

4&ordm; Os c&oacute;digos inseridos aqui nos post tem que seguir um padr&atilde;o,
na imagem abaixo estou mostrando como voc&ecirc; coloca o seu c&oacute;digo
dentro ; outra coisa se for repetido (somente algumas mudan&ccedil;as
em algumas linhas) e extenso, tu podes colocar somente um trecho ou
anexar um arquivo exemplo (que neste caso seria muito melhor at&eacute;
para analisar):
[ATTACH=full]119808[/ATTACH]

Espero que essas informa&ccedil;&otilde;es estejam bem claras e tu consiga alterar
de acordo; verifique e teste com essas mudan&ccedil;as, funcionar&aacute; corretamente...

Caso ainda tenha problemas, por gentileza anexar o arquivo exemplo que cont&eacute;m esses erros, 
para podermos analisar melhor :cadeado_alegrinho:.

Aguardando sua resposta e seu Feed Back ... e n&atilde;o esque&ccedil;a de Clicar no Bot&atilde;o Curtir ...

LaerteB:)

Answer

Boa tarde,

Fiz as altera&ccedil;&otilde;es e realizaei varios testes e  funcionou corretamente

Ferramentas

Mover Tópico