Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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: 8
Registrado em: Qua Mai 09, 2018 2:32 am

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

Mensagem por marcos22 »

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: 8
Registrado em: Qua Mai 09, 2018 2:32 am

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

Mensagem por marcos22 »

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


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

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

Mensagem por srobles »

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 560 vezes


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

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

Mensagem por marcos22 »

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 »

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
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

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

Mensagem por srobles »

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


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