ComboBox VBA Excel

Question

Boa tarde,

Ser&aacute; que alguem pode me ajudar?

Criei uns formularios de cadastro (cliente, pordutos, etc.) e estou com dificuldade em usar a ComboBox.

Tenho uma caixa de combina&ccedil;&atilde;o e preciso que quando seleccionado determinado item desse combobox,  todos os itens da texbox e das combobox sejam preenchidos obrigatoriamente.

Answer

Boa noite, Laoni Barbosa

Como todos aqui, temos compromissos e n&atilde;o temos muito tempo para criar um arquivo do zero, pois
ajudamos somente no nosso tempo livre... &eacute; muito importante voc&ecirc; anexar uma planilha de
exemplo com dados (fict&iacute;cios) e que n&atilde;o seja o projeto inteiro ; explicando com as informa&ccedil;&otilde;es
necess&aacute;rias para alcan&ccedil;ar o seu objetivo, desta forma poderemos ajud&aacute;-lo com maior rapidez e
efic&aacute;cia (a maioria nem olharia este T&oacute;pico sem um arquivo exemplo, pois existe muitas
vari&aacute;veis que podem impossibilitar o sucesso parcial ou total da solu&ccedil;&atilde;o proposta,se n&atilde;o tiver um
arquivo exemplo que for disponibilizado) :boa: ..

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

LaerteB :)

Answer

Boa tarde, Laoni Barbosa

Abri o seu arquivo Formul&aacute;rio de sinistro (1) (somente o primeiro, acho que o segundo seja igual), e 
me deparei com o seu projeto inteiro e fiquei muito confuso:confused:, sem entender o que tu queres realmente :de_olho:..

Olha tu n&atilde;o precisaria colocar o seu projeto inteiro (podia criar um [COLOR=#ff0000]arquivo exemplo simples[/COLOR] para facilitar)...

Acho que n&atilde;o entendeu o que informei na mensagem acima:
...&eacute; muito importante voc&ecirc; anexar uma planilha de exemplo [COLOR=#ff0000]com dados (fict&iacute;cios) e que n&atilde;o seja o projeto inteiro[/COLOR] ; 
[COLOR=#0000ff]explicando com as informa&ccedil;&otilde;es necess&aacute;rias para alcan&ccedil;ar o seu objetivo[/COLOR]...

Agora as quest&otilde;es pertinentes que tu tens que responder, para podermos analisar e te ajudar melhor a alcan&ccedil;ar o 
seu objetivo; veja abaixo:

1 - Informar qual ou quais combobox que precisa de ajuda;
2 - Explicar melhor e com mais detalhes de como ser&aacute; o resultado final;
3 - Pode colocar imagens ilustrativas, identificando os campos e explicando como deve ser o seu resultado;
4 - Quando fala de preencher todos os TextBox seria com o item selecionado de qual ou quais combobox?
5 - Existe um UserForm espec&iacute;fico para selecionar esse item que ir&aacute; preencher os TextBox?

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

LaerteB :)

Answer

Bom dia,

Verificando meu coment&aacute;rio n&atilde;o fui bem especifico do que estou precisando.

1 - Informar qual ou quais combobox que precisa de ajuda;

R: STATUS DO SINISTRO 
Onde existem v&aacute;rios itens, o que necessito que se for preenchido com o item Enviado Seguradora- ok todos os texbox e combobox sejam obrigat&oacute;rios o preenchimento..

2 - Explicar melhor e com mais detalhes de como ser&aacute; o resultado final;

R: Caso esse item seja determinado  Enviado Seguradora- ok todos os itens deste Form precisam ser obrigat&oacute;rio.
Form 01

[ATTACH=full]118766[/ATTACH]

3 - Pode colocar imagens ilustrativas, identificando os campos e explicando como deve ser o seu resultado;

Segue em anexo as imagens.

4 - Quando fala de preencher todos os TextBox seria com o item selecionado de qual ou quais combobox?

Esta na imagem Form02  destacado com um risco em negrito.

[ATTACH=full]118768[/ATTACH]

5 - Existe um UserForm espec&iacute;fico para selecionar esse item que ir&aacute; preencher os TextBox?

O form especifico &eacute; o de Form Roubo,

Outro ponto esse projeto esta com senha a que se refere e  123

Answer

Boa tarde, Laoni Barbosa

Valeu pelas informa&ccedil;&otilde;es, agora ficou claro suas d&uacute;vidas :boa:...

Vamos agora para a solu&ccedil;&atilde;o; voc&ecirc; tens que incluir o c&oacute;digo dentro do bot&atilde;o Cadastrar:
Private Sub botao_cadastrar_roubo_Click()

antes deste trecho:
linha = Range(B1).End(xlDown).Row + 1
....

o c&oacute;digo que ter&aacute; que ser inclu&iacute;do &eacute; este abaixo (contudo n&atilde;o est&aacute; completo, tu
ter&aacute;s que completar com todos os outros TextBox e Combobox que comp&otilde;e o seu
UserForm ROUBO, antes do comando Else):
  If Comb_sinistrostatus.Value = Enviado seguradora - OK Then  'C&oacute;digo corrigido letras em mai&uacute;sculo, min&uacute;sculo e espa&ccedil;o entre -
'if Comb_sinistrostatus.Text = Enviado Seguradora- ok  'Esta linha est&aacute; incorreta letras n&atilde;o corrigidas a linha acima &eacute; a correta
If Comb_datasinistro.Value =  Then
  MsgBox Este campo se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
  Comb_datasinistro.SetFocus

ElseIf Comb_dataaviso.Value =  Then
  MsgBox Este campo se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
  Comb_dataaviso.SetFocus

ElseIf Comb_tipoapolice.Value =  Then
  MsgBox Este campo se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
  Comb_tipoapolice.SetFocus

ElseIf Text_nprocessoallianz.Value =  Then
  MsgBox Este campo se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
  Text_nprocessoallianz.SetFocus

Else

e no final deste trecho abaixo:
MsgBox sinistro n&atilde;o cadastrado

End If

inserir mais dois:
End If
End If

[COLOR=#b30000]OBS: corre&ccedil;&atilde;o feita na linha, que se segue e acima o c&oacute;digo j&aacute; corrigido:[/COLOR]
[COLOR=#000000] If Comb_sinistrostatus.Value = Enviado seguradora - OK Then 
[/COLOR]
[COLOR=#0059b3]OBS2: Imagem exemplo de como colocar Resolvido no T&oacute;pico quando solucionado:[/COLOR]

Espero que seja isto que queria:cadeado_alegrinho:...

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

LaerteB:)

Answer

Boa tarde,

Hj termiando o meu projeto constatei um erro diferente qwue n&atilde;o tinha aparecido antes.

Apos testar o codigo com as altera&ccedil;&otilde;es que vc informou, pude constatar que mesmo n&atilde;o preenchedo todos os itens conforme print abaixo

[ATTACH=full]119384[/ATTACH]

e clicnado em cadastrar, aparece as msg 
[ATTACH=full]119386[/ATTACH] isso &eacute; correto

e aparece a msg

[ATTACH=full]119388[/ATTACH] tamb&eacute;m &eacute; um item correto .

mas se clicar em sim ele cadastra mesmo n&atilde;o preenchedo todos os itenns , oque n&atilde;o deveria ocorrer e envia as informa&ccedil;&otilde;es par aa planilha.

[ATTACH=full]119390[/ATTACH]

Answer

Boa tarde, Laoni Barbosa

Como tu n&atilde;o colocou o arquivo exemplo para eu dar uma olhada, ent&atilde;o vai mesmo no
chut&ocirc;metro, tenho quase certeza que tu n&atilde;o completou mais nenhum Textbox e
Combobox no c&oacute;digo que te passei acima ([COLOR=#ff0000]tinha que incluir mais 52 comandos 
iguais - s&oacute; trocando os nomes dos Textbox e Combobox que faltavam[/COLOR]), pois est&aacute; correto
o c&oacute;digo que te passei; fiz um teste no dia 11/08/20 e hoje mesmo fiz outro teste
e funciona normal, por isso que entrou a mensagem se queria concluir o cadastro,
pelo fato que n&atilde;o existe mais comandos ap&oacute;s n&ordm; de processo Allianz
(ent&atilde;o o &uacute;ltimo comando foi Text_nprocessoallianz que est&aacute; inclu&iacute;do acima -
obs: faltou tb o n&ordm; de sinistro reguladora entre eles que coloquei no c&oacute;digo na minha
&uacute;ltima mensagem).

Por gentileza verificar e completar todos os 52 outros comandos que faltou; na imagem abaixo
mostra onde come&ccedil;ar a incluir os comandos.

[ATTACH=full]119398[/ATTACH] 
Quando completar vai funcionar de acordo, mas caso n&atilde;o resolva por gentileza incluir o arquivo exemplo do erro e imagens tamb&eacute;m :boa:.
Aguardando sua resposta e seu Feed Back ... se foi &uacute;til, n&atilde;o esque&ccedil;a de Clicar no Bot&atilde;o Curtir:bom_trabalho:...

LaerteB:)

Answer

Boa noite,

Veirficando os c&oacute;digos e faltou o Text_napolice, confforme vc havia informado.

Apos inserir esse textbox o c&oacute;digo funcionou 50 %.

Segue abaixo todo o c&oacute;digo, e no final esta o erro que esta aparecendo.

[ATTACH=full]119504[/ATTACH]
[ATTACH=full]119506[/ATTACH]
[ATTACH=full]119508[/ATTACH]
[ATTACH=full]119510[/ATTACH]

[ATTACH=full]119512[/ATTACH]
[ATTACH=full]119514[/ATTACH]
O erro que esta apresentando &eacute; o seguinte:

Quando o operador for inserir as informa&ccedil;&otilde;es caso ele n&atilde;o preencha todos os campos mesmo com a op&ccedil;&atilde;o Enviado seguradora - OK
o sistema esta deixando concluir

telas

Aqui esta correto

[ATTACH=full]119516[/ATTACH]

Aqui esta o erro, ele esta deixando conluir sem estar com o dados completos

[ATTACH=full]119518[/ATTACH]

[ATTACH=full]119520[/ATTACH]

O erro esta nesse MSGBOX
Segue a planilha completa a senha &eacute; 123 para abrir o VBA

Answer

Boa noite, Laoni Barbosa

Parece que n&atilde;o me fiz entender o que estava informando na minha &uacute;ltima mensagem,
o que te passei est&aacute; correto e foi testado antes como agora, n&atilde;o havendo nenhum
erro como o que tu informou acima...

Vamos as explica&ccedil;&otilde;es para arrumar o que est&aacute; gerando esse erro no seu projeto;

1&ordm; que quando falo em colocar os 2 End If seria no final de todo o C&oacute;digo, depois do
&uacute;ltimo End If do procedimento:
Private Sub botao_cadastrar_roubo_Click()

2&ordm; a linha abaixo, n&atilde;o era para existir neste trecho do c&oacute;digo, somente tem que aparecer no
final do c&oacute;digo como j&aacute; estava registrado no seu 1&ordm; arquivo exemplo:
MsgBox SINISTRO N&Atilde;O CADASTRADO

Abaixo as imagens com suas explica&ccedil;&otilde;es para melhor visualizar o que estou informando:
[ATTACH=full]119526[/ATTACH]

[ATTACH=full]119528[/ATTACH]

Abaixo o trecho do C&oacute;digo para tu observar os 2 End If onde tem que ser inseridos: 
'LIMPA DADOS DA CAIXAS

Comb_datasinistro = 
        Comb_dataaviso = 
        Text_nsinistroreguladora = 
        ...........
        Text_valorprejuizoliquidofranquia = 
        Text_valorfranquia = 
        Text_descricaoevento = 
        Comb_sinistrostatus =

Else

MsgBox sinistro n&atilde;o cadastrado

End If

End If
End If

End Sub

Espero que agora ficou mais claro o que estava informando nas mensagens acima e desculpe se n&atilde;o me fiz entender antes :(.

Fa&ccedil;a essas altera&ccedil;&otilde;es e verifique se est&aacute; tudo OK :bom_trabalho:, qualquer coisa estamos aqui para ajud&aacute;-lo :cadeado_alegrinho:.

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

LaerteB :)

Answer

Boa tarde,

Agora deu certo com a op&ccedil;&atilde;o Enviado seguradora - OK, por&eacute;m mudando para outros status da Combox  [ATTACH=full]119574[/ATTACH]
o projeto n&atilde;o registrou com o bot&atilde;o cadastrar.

[ATTACH=full]119576[/ATTACH]

Answer

Boa tarde, Laoni Barbosa

Faltou completar os outros itens do combobox Status do Sinistro; abaixo o Trecho do 
c&oacute;digo que faltou &eacute; s&oacute; tu completar como se encontra neste trecho:
Private Sub botao_cadastrar_roubo_Click()

linha = Range(B1).End(xlDown).Row + 1

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 Then

Abaixo a imagem com as informa&ccedil;&otilde;es, para melhor visualiza&ccedil;&atilde;o.
[ATTACH=full]119612[/ATTACH] 
Fa&ccedil;a essas altera&ccedil;&otilde;es e verifique se est&aacute; tudo OK :bom_trabalho:, 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 noite,

Acho que n&atilde;o me expressei corretamente.

Se no combobox Status do Sinistro estiver com os itens abaixo

Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
Comb_sinistrostatus.Text = Em An&aacute;lise _
Comb_sinistrostatus.Text = Encerrado ou Cancelado

N&atilde;o ha necessidade que todos os itens do form ROUBO seja preechido.

E quando vai cadastrar ele n&atilde;o registra processa as informa&ccedil;&otilde;es que se encontram no projeto.

Answer

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&aacute;rio Roubo nem todos necessitem serem preenchidos, tu ter&aacute;s que
  alterar todas as linhas como mostradas abaixo (exemplo de 3 trechos de c&oacute;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&aacute;lise _
    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 = Em An&aacute;lise _
   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 _
   And Text_nsinistroreguladora.Value =  Then
     MsgBox Este campo N&ordm; Sinistroreguladora se encontra em BRANCO!, vbCritical, PREENCHIMENTO OBRIGAT&Oacute;RIO!
    Text_nsinistroreguladora.SetFocus
    
     Else
     Call RotinaRoubo
     End If

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

End Sub

Observe que o c&oacute;digo depois do Else foi exclu&iacute;do, pois este c&oacute;digo agora ser&aacute; colocado em um m&oacute;dulo, 
para facilitar; ent&atilde;o este c&oacute;digo se encontra abaixo, agora copie e cole ele para o m&oacute;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&atilde;o cadastrado
   
    End If

Set ws = Nothing

End Sub

Seja a imagem abaixo com explica&ccedil;&otilde;es informativas:
[ATTACH=full]119634[/ATTACH]

Ent&atilde;o somente quando alterar os mais de 52 trechos do C&oacute;digo (de acordo como quer que cada item
verifique se ser&aacute; obrigat&oacute;rio o preenchimento do campo), ser&aacute; executado o registro das informa&ccedil;&otilde;es 
na Sheet Roubo.

Verifique se era isso que queria, qualquer coisa estamos aqui :boa:

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 noite,

Acho que n&atilde;o expressei corretamente.

O projeto vai salvar  todas as informa&ccedil;&otilde;es na planilha geral.

E no c&oacute;digo anteriror que vc havia me passado ele estava registrando corretamente qdo estava no Combox Enviado seguradora - OK, por&eacute;m quando se muda para alguns dos itens abaixo:

Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
Comb_sinistrostatus.Text = Em An&aacute;lise _
Comb_sinistrostatus.Text = Encerrado ou Cancelado

Ele n&atilde;o esta salvando.

Outro ponto &eacute; que quando alguns desses itens desse combobox

Comb_sinistrostatus.Text = Enviado seguradora - S/Cobertura _
Comb_sinistrostatus.Text = Em An&aacute;lise _
Comb_sinistrostatus.Text = Encerrado ou Cancelado

Estiver marcado n&atilde;o h&aacute; necessidade de que todos os outros txt e cbb dessa mascara estejam completos como no exemplo abaixo destacado em cores

[ATTACH=full]119668[/ATTACH]

A planilha j&aacute; esta acima.

Answer

Boa noite, Laoni Barbosa

Vamos em partes:

Voc&ecirc; se expressou corretamente, por isso na minha &uacute;ltima mensagem no post #13,
j&aacute; est&aacute; tudo explicado de como tu deves fazer; e perceba que no c&oacute;digo que
fica no m&oacute;dulo est&aacute; direcionado para a Sheet geral enviando assim todos
os seus dados para ela quando clicado no Bot&atilde;o Cadastrar...

Sim, no meu c&oacute;digo (na mensagem do post #11) s&oacute; estava registrando
o item Enviado seguradora - OK do Combobox Status do Sinistro, os demais n&atilde;o ...

Em rela&ccedil;&atilde;o a que os outros itens n&atilde;o precisem serem obrigat&oacute;rio seu preenchimento,
j&aacute; arrumei no &uacute;ltimo post #13; quando clicado no Bot&atilde;o Cadastrar ser&aacute; salvo
todos os dados(dos campos do formul&aacute;rio ROUBO)  conforme cada item que tu 
selecionar no Combobox Status do Sinistro...

Verifique e analise o post #13, j&aacute; est&aacute; tudo explicado e ainda inseri o c&oacute;digo
que envia os dados para a planilha em um m&oacute;dulo, para facilitar...

O que tu tens que fazer &eacute; alterar todos os trechos de c&oacute;digo (est&aacute; explicado na
imagem do post #13) que s&atilde;o mais ou menos 55 campos entre Textbox e Combobox..

Como fazer isso? &eacute; s&oacute; informar os itens do Combobox Status do Sinistro que
precisam serem obrigat&oacute;rio para tal Textbox ou Combox, separados pelo comando
or e para o campo que tem que ser preenchido separados dos demais pelo
comando and (verifique na imagem do post #13).. uma dica se quiser pular uma
linha coloque o sinal _, n&atilde;o esquecendo do espa&ccedil;o..

Espero que ficou mais claro o que postei na minha &uacute;ltima mensagem;
altere de acordo com o que voc&ecirc; precisa e teste, vai funcionar corretamente...

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:)

Ferramentas

Mover Tópico