Enviar dados de um checkbox para planilha

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

Fala aí pessoal, tudo na paz?

Pessoas? To com um problema aqui (problema apenas para leigo como eu). É que to montando um form para cadastro de clientes e neste form tenho a opção de escolher quais dados serão obrigatórios o preenchimento. Ta até complicado de formular minha dúvida, mas vou tentar.

Consegui fazer com que os dados das checkbox sejam transportados para a planilha.

1º Queria ver se dá para resumir o código, pq ficou enorme.

2º Quero que ao abrir novamente o form com os checkbox, eles estejam preenchidos de acordo com minha última escolha. Como está agora, quando eu fecho o form e entro nele de novo, os campos que escolhi anteriormente ficam limpos, desta forma, não saberei quais opções havia escolhido, até pq não terei acesso à planilha, acessando apenas os formulários.

3º Quando uma das opções estiver marcada, para que a outra seja marcada, terei que ser questionado sobre isso, com por exemplo uma msgbox. Como está agora, as 2 opções podem ser marcadas. e assim o formulário não é preenchido corretamente.

Bom, basicamente é isso. Se me derem um exemplo posso fazer com o restante do código. Segue a planilha.

Postado : 16/09/2012 5:04 pm

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

pq não usa combobox?

Postado : 16/09/2012 7:16 pm

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

fiz com combobox mas não gostei. Se puderem me mostrar um exemplo na minha planilha, posso fazer o restante. Presico que os 2 últimos pontos que levantei sejam atendidos. Por exemplo, no modelo que fiz com combobox, qundo volto a acessar o form, ele não está marcado, dessa forma não sei quais opçoes escolhi anteriormente. No form com o combobox consegui colocar mensagem me questionando sobre a mudança da opção, já no checkbox, por serem 2 botões, eu não consegui. Lembrem-se: sou um leigo que estou aprendendo com ajuda do pessoal aqui do site e com minha vontade de aprender. Pode ser que seja coia simples ou mesmo complicada, se me derem um exemplo, eu consigo fazer o restante.

Postado : 16/09/2012 11:32 pm

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

poxa... ainda espero...

Postado : 18/09/2012 1:43 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Veja no anexo se lhe auxilia.
Diminui o numero de controles, e o sim ou não é atraves de uma unica checkbox
Veja a sugestão nos codigos do comando click até a 6, dai em diante precisa ser alterado.
Para "carregar" as informações criado no evento Initialize do form, até check 4 ok os demais precisam ser alterados

Deixei tb um exemplo usando o ToggleButton1 ao inves do checkbox

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 18/09/2012 9:15 am

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

Reinaldo...

Boa tarde!

Vou utilizar a opção do ToggleButton1.... tenho um pequeno detalhe a acrescentar.
Conforme informado no início do tópico, quero ser questionado sobre a escolha do "NÃO" nas opções do preenchimento.
Coloquei a mensagem me perguntando se desejo continuar ou não, porém, quando clico em "NÃO"...(não desejo continuar), a opção deve voltar para 'SIM", só que não está voltando. Acho que o problema é exatamente no trecho da mensagem.

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
Label3.Caption = "SIM"
Sheets("validação").Range("B3") = "SIM"
Else
Label3.Caption = "NÃO"
Sheets("validação").Range("B3") = "NÃO"
MsgBox ("  Esta opção desobriga o preenchimento do" & Chr(13) & _
"''Nome Fantasia'' da empresa. Está certo disto?"), vbExclamation + vbYesNo, "Atenção"
End If
End Sub

Postado : 18/09/2012 11:59 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Experimente assim:

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
    Label3.Caption = "SIM"
    Sheets("validação").Range("B3") = "SIM"
Else
   mtb = MsgBox("  Esta opção desobriga o preenchimento do" & Chr(13) & _
    "''Nome Fantasia'' da empresa. Está certo disto?", vbExclamation + vbYesNo, "Atenção")
    If mtb = vbYes Then
        Label3.Caption = "NÃO"
        Sheets("validação").Range("B3") = "NÃO"
    Else
        Exit Sub
    End If
End If
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 18/09/2012 12:53 pm