Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Ajuda - Varios Checkbox em uma unica célula

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
marcos22
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Qua Mai 09, 2018 2:32 am

Re: Ajuda - Varios Checkbox em uma unica célula

Mensagem por marcos22 » Qua Mai 09, 2018 4:18 pm

E o seu que estou tentando colocar mais uma pagina no multpagina.
Mias não estou conseguindo.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


marcos22
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Qua Mai 09, 2018 2:32 am

Re: Ajuda - Varios Checkbox em uma unica célula

Mensagem por marcos22 » Qua Mai 09, 2018 4:27 pm

tudo igual.... e so para acrescentar mais uma.



srobles
Sabe muito
Sabe muito
Mensagens: 743
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Ajuda - Varios Checkbox em uma unica célula

Mensagem por srobles » Qua Mai 09, 2018 10:49 pm

Marcos,

Para adicionar novas abas em modo de Design, clique com o botão direito sobre o MultiPage que a opção Nova aba surgirá.

Abaixo deixo novo modelo, pois neste caso, o melhor foi reelaborar as rotinas, para que ficassem "mais automáticas".

Caso queira adicionar novas abas, basta mudar a variável de contagem dos controles Checkbox novos, adicionar os eventos Click de cada CheckBox adicional, e adicionar a validação adicional para cada novo controle TextBox de cada nova aba. O restante é por conta da rotina.

Espero ter ajudado.

Abs
Anexos
modelo_2.0.xlsm.zip
(24.59 KiB) Baixado 81 vezes


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

marcos22
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Qua Mai 09, 2018 2:32 am

Re: Ajuda - Varios Checkbox em uma unica célula

Mensagem por marcos22 » Qui Mai 10, 2018 11:30 am

Obrigado srobles que Deus lhe abençoe.
Abraços.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


netizzo
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qui Jan 03, 2019 6:29 pm

Re: Ajuda - Varios Checkbox em uma unica célula

Mensagem por netizzo » Qui Jan 03, 2019 6:41 pm

Olá,

Em relação a esta sua última linha...

'Escrevemos na célula A1 o resultado final
ThisWorkbook.Sheets("Plan1").Range("A1") = Mid(listaOpcoes, 1, Len(listaOpcoes))

Eu preciso que os valores do CheckBox sejam inseridos na última linha ativa, que esta entrando os demais dados que estou cadastrando, e não sempre na célula A1



srobles
Sabe muito
Sabe muito
Mensagens: 743
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Ajuda - Varios Checkbox em uma unica célula

Mensagem por srobles » Sex Abr 05, 2019 10:44 pm

netizzo,
Adicione uma variável do tipo long, antes de realizar o cadastro :

Código: Selecionar todos

   Dim novaLinha As Long
E então substitua esta linha que citou, por :

Código: Selecionar todos

    With ThisWorkbook.Sheets("Plan1")
        novaLinha = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(novaLinha, 1) = Mid(listaOpcoes, 1, Len(listaOpcoes))
    End With
Espero ter ajudado.

Abs


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder